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 our $VERSION = '0.001_002';
   9
  10 use 5.014;
  11
  12 sub check_value_names
  13 {
  14     return qw(min_elapsed_time max_elapsed_time);
  15 }
  16
  17 sub check_response
  18 {
  19     my ( $self, $check, $mech ) = @_;
  20
  21     my $code = 0;
  22     my $msg;
  23
  24     my $min_time = $self->get_check_value( $check, "min_elapsed_time" );
  25     my $max_time = $self->get_check_value( $check, "max_elapsed_time" );
  26     my $total_time = $mech->client_elapsed_time();
  27
  28     if ( defined($min_time) and $min_time > $total_time )
  29     {
  30         my $err_code = $self->get_check_value( $check, "min_elapsed_time_code" ) // 1;
  31         $code = &{ $check->{compute_code} }( $code, $err_code );
  32         $msg = "elapsed time $total_time exceeded lower threshold ($min_time)";
  33     }
  34     if ( defined($max_time) and $max_time < $total_time )
  35     {
  36         my $err_code = $self->get_check_value( $check, "max_elapsed_time_code" ) // 1;
  37         $code = &{ $check->{compute_code} }( $code, $err_code );
  38         if ($msg)
  39         {
  40             $msg .= " and upper threshold ($max_time)";
  41         }
  42         else
  43         {
  44             $msg = "elapsed time $total_time exceeded upper threshold ($max_time)";
  45         }
  46     }
  47
  48     return ( $code, ( $msg ? ($msg) : () ) );
  49 }
  50
  51 1;
  52