File Coverage

blib/lib/WebService/Async/UserAgent/LWP.pm

Criterion	Covered	Total	%
statement	17	24	70.8
branch	0	2	0.0
condition	0	3	0.0
subroutine	6	8	75.0
pod	3	3	100.0
total	26	40	65.0

package WebService::Async::UserAgent::LWP;
$WebService::Async::UserAgent::LWP::VERSION = '0.004';
use strict;
use warnings;

use parent qw(WebService::Async::UserAgent);

=head1 NAME

WebService::Async::UserAgent::LWP - make requests using L

=head1 VERSION

version 0.004

=head1 DESCRIPTION

Provides a L method which will use L to make
requests and return a L containing the result. Used internally by
L.

=cut

use Future;
use LWP::UserAgent;

=head2 new

Instantiate.

=cut

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

=head2 request

Issues the request. Expects a single L object,
and returns a L which will resolve to the decoded
response content on success, or the failure reason on failure.

=cut

sub request {
	my $self = shift;
	my $req = shift;
	my $resp = $self->ua->request($req);
	return Future->new->done($resp->decoded_content) if $resp->is_success;

	my $status = join ' ', $resp->code, $resp->message;
	return Future->new->fail($status, $resp, $req)
}

=head2 ua

Returns the L instance.

=cut

sub ua { shift->{ua} ||= LWP::UserAgent->new }

1;

=head1 AUTHOR

Tom Molesworth

=head1 LICENSE

Copyright Tom Molesworth 2012-2015. Licensed under the same terms as Perl itself.