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

   1 package WWW::Mechanize::Script::Plugin::StatusTest;
   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(response);
  15 }
  16
  17 sub check_response
  18 {
  19     my ( $self, $check, $mech ) = @_;
  20
  21     my $response_code = $self->get_check_value( $check, "response" );
  22
  23     if ( $response_code != $mech->status() )
  24     {
  25         my $err_code = $self->get_check_value( $check, "response_code" ) // 1;
  26         return ( $err_code, "response code " . $mech->status() . " != $response_code" );
  27     }
  28
  29     return (0);
  30 }
  31
  32 1;