File Coverage

blib/lib/URI/Fetch/Response.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	8	10	80.0
condition	2	3	66.6
subroutine	15	15	100.0
pod	11	12	91.6
total	68	72	94.4

package URI::Fetch::Response;
$URI::Fetch::Response::VERSION = '0.13';
use strict;
use warnings;

sub new {
    my $class = shift;
    my $feed = bless { }, $class;
    $feed;
}

sub _var {
    my $feed = shift;
    my $var = shift;
    $feed->{$var} = shift if @_;
    $feed->{$var};
}

sub status        { shift->_var('status',        @_) }
sub http_status   { shift->_var('http_status',   @_) }
sub http_response { shift->_var('http_response', @_) }
sub etag          { shift->_var('etag',          @_) }
sub last_modified { shift->_var('last_modified', @_) }
sub uri           { shift->_var('uri',           @_) }
sub content       { shift->_var('content',       @_) }
sub content_type  { shift->_var('content_type',  @_) }

sub is_success  {
    my $response = shift;
    if ($response->http_response) {
        return 1 if $response->http_response->code == 304
                 && defined($response->content);
        return $response->http_response->is_success;
    }
    return 1;
}

sub is_redirect {
    my $response = shift;
    return $response->http_response->is_redirect if $response->http_response;
    return;
}

sub is_error    {
    my $response = shift;
    return $response->http_response->is_error if $response->http_response;
    return;
}

1;
__END__