File Coverage

blib/lib/HTTP/Tiny/UA.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	21	21	100.0

use strict;
use warnings;

package HTTP::Tiny::UA;
# ABSTRACT: Higher-level UA features for HTTP::Tiny

our $VERSION = '0.005';

use superclass 'HTTP::Tiny' => 0.036;

use HTTP::Tiny::UA::Response;

#pod =method new
#pod
#pod     $http = HTTP::Tiny::UA->new( %attributes );
#pod
#pod This is inherited from L.  The only difference so far is that
#pod C will be C.
#pod
#pod =for :list
#pod * C
#pod A user-agent string (defaults to 'HTTP-Tiny-UA/$VERSION'). If C ends in a space character, the default user-agent string is appended.
#pod * C
#pod An instance of L or equivalent class that supports the C and C methods
#pod * C
#pod A hashref of default headers to apply to requests
#pod * C
#pod The local IP address to bind to
#pod * C
#pod Maximum number of redirects allowed (defaults to 5)
#pod * C
#pod Maximum response size (only when not using a data callback).  If defined,
#pod responses larger than this will return an exception.
#pod * C
#pod URL of a proxy server to use (default is C<$ENV{http_proxy}> if set)
#pod * C
#pod List of domain suffixes that should not be proxied.  Must be a comma-separated string or an array reference. (default is C<$ENV{no_proxy}>)
#pod * C
#pod Request timeout in seconds (default is 60)
#pod * C
#pod A boolean that indicates whether to validate the SSL certificate of an C
#pod connection (default is false)
#pod * C
#pod A hashref of C options to pass through to L
#pod
#pod See L for more on the
#pod C and C attributes.
#pod
#pod =method get|head|put|post|post_form|mirror|delete
#pod
#pod These methods are inherited from L and work the same, except they
#pod invoke the L method and return a
#pod L object.
#pod
#pod =method request
#pod
#pod     my $res = HTTP::Tiny->new->get( $url );
#pod
#pod Just like L, but returns a
#pod L object.  All other C, C, etc. methods
#pod eventually invoke this one so all such methods return response objects now.
#pod
#pod =cut

sub request {
    my ( $self, @args ) = @_;
    my $res = $self->SUPER::request(@args);
    return HTTP::Tiny::UA::Response->new($res);
}

1;


# vim: ts=4 sts=4 sw=4 et:

__END__