URI::Fetch::Response - Feed response for URI::Fetch

URI-Fetch documentation Contained in the URI-Fetch distribution.

Index

Code Index:

NAME

Top

URI::Fetch::Response - Feed response for URI::Fetch

SYNOPSIS

Top

    use URI::Fetch;
    my $res = URI::Fetch->fetch('http://example.com/atom.xml')
        or die URI::Fetch->errstr;
    print $res->content;

DESCRIPTION

Top

URI::Fetch::Response encapsulates the response from fetching a feed using URI::Fetch.

USAGE

Top

$res->content

The contents of the feed.

$res->uri

The URI of the feed. If the feed was moved, this reflects the new URI; otherwise, it will match the URI that you passed to fetch.

$res->etag

The ETag that was returned in the response, if any.

$res->last_modified

The Last-Modified date (in seconds since the epoch) that was returned in the response, if any.

$res->status

The status of the response, which will match one of the following enumerations:

* URI::Fetch::URI_OK()
* URI::Fetch::URI_MOVED_PERMANENTLY()
* URI::Fetch::URI_GONE()
* URI::Fetch::URI_NOT_MODIFIED()

$res->http_status

The HTTP status code from the response.

$res->http_response

The HTTP::Response object returned from the fetch.

$res->is_success

$res->is_redirect

$res->is_error

Wrappers around the $res->response methods of the same name, for convenience.

$res->content_type

The Content-Type header from the response.

AUTHOR & COPYRIGHT

Top

Please see the URI::Fetch manpage for author, copyright, and license information.

URI-Fetch documentation Contained in the URI-Fetch distribution. 
package URI::Fetch::Response;
use strict;

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;
    return $response->http_response->is_success if $response->http_response;
    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__