Changeset 22764 for lang/perl/Moxy

Timestamp:

11/05/08 17:14:43 (2 months ago)

Author:

tokuhirom

Message:

レスポンスタイムを計測できるようにしてみた

Location:

lang/perl/Moxy/trunk

Files:

• assets/plugins/ResponseTime (added)
• assets/plugins/ResponseTime/panel.tt (added)
• lib/Moxy.pm (modified) (6 diffs)
• lib/Moxy/Plugin/ResponseTime.pm (added)

lang/perl/Moxy/trunk/lib/Moxy.pm

@@ -3 +3 @@
 use strict;
 use warnings;
+use base qw/Class::Accessor::Fast/;
 use Class::Component 0.16;
 
@@ -26 +27 @@
 use URI;
 use YAML;
+use Time::HiRes ();
 use HTTP::MobileAttribute plugins => [
     qw/CarrierLetter IS/,
@@ -41 +43 @@
 
 __PACKAGE__->load_plugins(qw/DisplayWidth ControlPanel LocationBar Pictogram/);
+__PACKAGE__->mk_accessors(qw/response_time/);
 
 sub new {
@@ -281 +284 @@
         }
     }
+    $req->remove_header('Accept-Encoding'); # I HATE gziped CONTENT
 
     # do request
@@ -289 +293 @@
         parse_head        => 0,
     );
-    $req->remove_header('Accept-Encoding'); # I HATE gziped CONTENT
+
+    my $t1 = Time::HiRes::gettimeofday();
     my $response = $ua->request($req);
+    my $t2 = Time::HiRes::gettimeofday();
+    $self->response_time( $t2-$t1 );
+
     for my $hook ( 'security_filter', 'response_filter', "response_filter_$carrier", 'render_location_bar' ) {
         $self->run_hook(
@@ -301 +309 @@
         );
     }
+    $self->response_time( -1 ); # clear response time
+
     $response;
 }