lib/WWW/Mechanize/Script/Plugin/ResponseTimeTest.pm

   1 package WWW::Mechanize::Script::Plugin::ResponseTimeTest;
   2
   3 use strict;
   4 use warnings;
   5
   6 use parent qw(WWW::Mechanize::Script::Plugin);
   7
   8 # ABSTRACT: check response time of request
   9
  10 our $VERSION = '0.001_003';
  11
  12 use 5.014;
  13
  14 sub check_value_names
  15 {
  16     return qw(min_elapsed_time max_elapsed_time);
  17 }
  18
  19 sub check_response
  20 {
  21     my ( $self, $check, $mech ) = @_;
  22
  23     my $code = 0;
  24     my $msg;
  25
  26     my $min_time = $self->get_check_value( $check, "min_elapsed_time" );
  27     my $max_time = $self->get_check_value( $check, "max_elapsed_time" );
  28     my $total_time = $mech->client_elapsed_time();
  29
  30     if ( defined($min_time) and $min_time > $total_time )
  31     {
  32         my $err_code = $self->get_check_value( $check, "min_elapsed_time_code" ) // 1;
  33         $code = &{ $check->{compute_code} }( $code, $err_code );
  34         $msg = "elapsed time $total_time exceeded lower threshold ($min_time)";
  35     }
  36     if ( defined($max_time) and $max_time < $total_time )
  37     {
  38         my $err_code = $self->get_check_value( $check, "max_elapsed_time_code" ) // 1;
  39         $code = &{ $check->{compute_code} }( $code, $err_code );
  40         if ($msg)
  41         {
  42             $msg .= " and upper threshold ($max_time)";
  43         }
  44         else
  45         {
  46             $msg = "elapsed time $total_time exceeded upper threshold ($max_time)";
  47         }
  48     }
  49
  50     return ( $code, ( $msg ? ($msg) : () ) );
  51 }
  52
  53 1;
  54