package WWW::Mechanize::Script::Plugin::StatusTest;

use strict;
use warnings;

use parent qw(WWW::Mechanize::Script::Plugin);

# ABSTRACT: prove expected HTTP status of the response

our $VERSION = '0.100';

use 5.014;


sub check_value_names
{
    return qw(response);
}


sub check_response
{
    my ( $self, $check, $mech ) = @_;

    my $response_code = 0 + $self->get_check_value( $check, "response" );

    if ( $response_code != $mech->status() )
    {
        my $err_code = $self->get_check_value( $check, "response_code" ) // 1;
        return ( $err_code, "response code " . $mech->status() . " != $response_code" );
    }

    return (0);
}

1;

__END__
=pod

=head1 NAME

WWW::Mechanize::Script::Plugin::StatusTest - prove expected HTTP status of the response

=head1 VERSION

version 0.100

=head1 METHODS

=head2 check_value_names()

Returns qw(response).

=head2 check_response(\%check,$mech)

This methods proves whether the HTTP status code of the response matches the
value configured in I<response> and accumulates I<response_code> into I<$code>
when not.

Return the accumulated I<$code> and appropriate constructed message, if
coparisation failed.

=head1 BUGS

Please report any bugs or feature requests on the bugtracker website
http://rt.cpan.org/NoAuth/Bugs.html?Dist=WWW-Mechanize-Script or by email
to bug-www-mechanize-script@rt.cpan.org.

When submitting a bug or request, please include a test-file or a
patch to an existing test-file that illustrates the bug or desired
feature.

=head1 AUTHOR

Jens Rehsack <rehsack@cpan.org>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2012 by Jens Rehsack.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut