1 package WWW
::Mechanize
::Script
::Plugin
::ResponseTimeTest
;
6 use parent
qw(WWW::Mechanize::Script::Plugin);
8 # ABSTRACT: check response time of request
10 our $VERSION = '0.001_003';
14 =method check_value_names
()
16 Returns
qw(min_elapsed_time max_elapsed_time)
22 return qw(min_elapsed_time max_elapsed_time);
25 =method check_response
(\
%check,$mech)
27 Proves whether I
<min_elapsed_time
> is greater than C
<client_elapsed_time
>
28 (and accumulate I
<min_elapsed_time_code
> into I
<$code> when true
) or
29 I
<max_elapsed_time
> is lower than C
<client_elapsed_time
> (and accumulate
30 I
<max_elapsed_time_code
> into I
<$code> when true
).
32 Return the accumulated I
<$code> and appropriate constructed message
, if
33 any coparisation failed
.
39 my ( $self, $check, $mech ) = @_;
44 my $min_time = 0 + $self->get_check_value( $check, "min_elapsed_time" );
45 my $max_time = 0 + $self->get_check_value( $check, "max_elapsed_time" );
46 my $total_time = 0 + $mech->client_elapsed_time();
48 if ( defined($min_time) and $min_time > $total_time )
50 my $err_code = $self->get_check_value( $check, "min_elapsed_time_code" ) // 1;
51 $code = &{ $check->{compute_code
} }( $code, $err_code );
52 $msg = "elapsed time $total_time exceeded lower threshold ($min_time)";
54 if ( defined($max_time) and $max_time < $total_time )
56 my $err_code = $self->get_check_value( $check, "max_elapsed_time_code" ) // 1;
57 $code = &{ $check->{compute_code
} }( $code, $err_code );
60 $msg .= " and upper threshold ($max_time)";
64 $msg = "elapsed time $total_time exceeded upper threshold ($max_time)";
68 return ( $code, ( $msg ?
($msg) : () ) );