Dave Cross: Still Munging Data With Perl: Online event - Mar 17 Learn more

SRI / Mojolicious-1.72 / lib / Mojolicious / Plugin / RequestTimer.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
—
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85

              
package Mojolicious::Plugin::RequestTimer;
use Mojo::Base 'Mojolicious::Plugin';
use Time::HiRes ();
# "I don't trust that doctor.
#  I bet I've lost more patients than he's even treated."
sub register {
  my ($self, $app) = @_;
  # Start timer
  $app->hook(
    after_static_dispatch => sub {
      my $self = shift;
      # Ignore static files
      my $stash = $self->stash;
      return if $stash->{'mojo.static'} || $stash->{'mojo.started'};
      my $req    = $self->req;
      my $method = $req->method;
      my $path   = $req->url->path->to_abs_string;
      my $ua     = $req->headers->user_agent || 'Anonymojo';
      $self->app->log->debug("$method $path ($ua).");
      $stash->{'mojo.started'} = [Time::HiRes::gettimeofday()];
    }
  );
  # End timer
  $app->hook(
    after_dispatch => sub {
      my $self = shift;
      # Ignore static files
      my $stash = $self->stash;
      return unless my $started = delete $stash->{'mojo.started'};
      return if $stash->{'mojo.static'};
      my $elapsed = sprintf '%f',
        Time::HiRes::tv_interval($started, [Time::HiRes::gettimeofday()]);
      my $rps     = $elapsed == 0 ? '??' : sprintf '%.3f', 1 / $elapsed;
      my $res     = $self->res;
      my $code    = $res->code || 200;
      my $message = $res->message || $res->default_message($code);
      $self->app->log->debug("$code $message (${elapsed}s, $rps/s).");
    }
  );
}
1;
__END__
=head1 NAME
Mojolicious::Plugin::RequestTimer - Request Timer Plugin
=head1 SYNOPSIS
  # Mojolicious
  $self->plugin('request_timer');
  # Mojolicious::Lite
  plugin 'request_timer';
=head1 DESCRIPTION
L<Mojolicious::Plugin::RequestTimer> is a plugin to gather and log request
timing information.
This is a core plugin, that means it is always enabled and its code a good
example for learning to build new plugins.
=head1 METHODS
L<Mojolicious::Plugin::RequestTimer> inherits all methods from
L<Mojolicious::Plugin> and implements the following new ones.
=head2 C<register>
  $plugin->register;
Register plugin hooks in L<Mojolicious> application.
=head1 SEE ALSO
L<Mojolicious>, L<Mojolicious::Guides>, L<http://mojolicio.us>.
=cut