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 # ABSTRACT: prove expected HTTP status of the response
   9
  10 our $VERSION = '0.001_003';
  11
  12 use 5.014;
  13
  14 sub check_value_names
  15 {
  16     return qw(response);
  17 }
  18
  19 sub check_response
  20 {
  21     my ( $self, $check, $mech ) = @_;
  22
  23     my $response_code = $self->get_check_value( $check, "response" );
  24
  25     if ( $response_code != $mech->status() )
  26     {
  27         my $err_code = $self->get_check_value( $check, "response_code" ) // 1;
  28         return ( $err_code, "response code " . $mech->status() . " != $response_code" );
  29     }
  30
  31     return (0);
  32 }
  33
  34 1;