d79bd38ff3d569278775ccc155c4f59f754a8944
1 package WWW
::Mechanize
::Script
::Plugin
::ResponseTimeTest
;
6 use parent
qw(WWW::Mechanize::Script::Plugin);
8 our $VERSION = '0.001_002';
14 return qw(min_elapsed_time max_elapsed_time);
19 my ( $self, $check, $mech ) = @_;
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();
28 if ( defined($min_time) and $min_time > $total_time )
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)";
34 if ( defined($max_time) and $max_time < $total_time )
36 my $err_code = $self->get_check_value( $check, "max_elapsed_time_code" ) // 1;
37 $code = &{ $check->{compute_code
} }( $code, $err_code );
40 $msg .= " and upper threshold ($max_time)";
44 $msg = "elapsed time $total_time exceeded upper threshold ($max_time)";
48 return ( $code, ( $msg ?
($msg) : () ) );