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 =method check_value_names()
  15
  16 Returns qw(response).
  17
  18 =cut
  19
  20 sub check_value_names
  21 {
  22     return qw(response);
  23 }
  24
  25 =method check_response(\%check,$mech)
  26
  27 This methods proves whether the HTTP status code of the response matches the
  28 value configured in I<response> and accumulates I<response_code> into I<$code>
  29 when not.
  30
  31 Return the accumulated I<$code> and appropriate constructed message, if
  32 coparisation failed.
  33
  34 =cut
  35
  36 sub check_response
  37 {
  38     my ( $self, $check, $mech ) = @_;
  39
  40     my $response_code = 0 + $self->get_check_value( $check, "response" );
  41
  42     if ( $response_code != $mech->status() )
  43     {
  44         my $err_code = $self->get_check_value( $check, "response_code" ) // 1;
  45         return ( $err_code, "response code " . $mech->status() . " != $response_code" );
  46     }
  47
  48     return (0);
  49 }
  50
  51 1;