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

   1 package WWW::Mechanize::Script::Plugin::ContentSizeTest;
   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_bytes max_bytes);
  15 }
  16
  17 sub check_response
  18 {
  19     my ( $self, $check, $mech ) = @_;
  20
  21     my $code = 0;
  22     my $msg;
  23
  24     my $min_bytes = $self->get_check_value( $check, "min_bytes" );
  25     my $max_bytes = $self->get_check_value( $check, "max_bytes" );
  26     my $content_len = length $mech->response()->content();
  27
  28     if ( defined($min_bytes) and $min_bytes > $content_len )
  29     {
  30         my $err_code = $self->get_check_value( $check, "min_bytes_code" ) // 1;
  31         $code = &{ $check->{compute_code} }( $code, $err_code );
  32         $msg = "received $content_len bytes exceeds lower threshold ($min_bytes)";
  33     }
  34
  35     if ( defined($max_bytes) and $max_bytes < $content_len )
  36     {
  37         my $err_code = $self->get_check_value( $check, "max_bytes_code" ) // 1;
  38         $code = &{ $check->{compute_code} }( $code, $err_code );
  39         if ($msg)
  40         {
  41             $msg .= " and upper threshold ($max_bytes )";
  42         }
  43         else
  44         {
  45             $msg = "received $content_len bytes exceeds upper limit ($max_bytes)";
  46         }
  47     }
  48
  49     return ( $code, ( $msg ? ($msg) : () ) );
  50 }
  51
  52 1;