WWW::Webrobot::AssertDefault - default assertion

webrobot documentation Contained in the webrobot distribution.

Index

Code Index:

NAME

Top

WWW::Webrobot::AssertDefault - default assertion

SYNOPSIS

Top

For internal use only.

DESCRIPTION

Top

This is the default assertion for HTTP responses. It is true when the response code is 2xx.

webrobot documentation Contained in the webrobot distribution. 
package WWW::Webrobot::AssertDefault;
use strict;
use warnings;


# Author: Stefan Trcek
# Copyright(c) 2004 ABAS Software AG



sub new {
    my ($class) = shift;
    my $self = bless({}, ref($class) || $class);
    return $self;
}

sub check {
    my ($self, $r) = @_;
    return (undef, []) if !defined $r;
    return (200 <= $r->{_rc} && $r->{_rc} < 300) ? (0, []) : (1, []);
}


1;