File Coverage

blib/lib/WWW/IRail/API/Client/LWP.pm

Criterion	Covered	Total	%
statement	14	25	56.0
branch	0	2	0.0
condition	0	3	0.0
subroutine	6	8	75.0
pod	0	2	0.0
total	20	40	50.0

package WWW::IRail::API::Client::LWP;
BEGIN {
  $WWW::IRail::API::Client::LWP::AUTHORITY = 'cpan:ESSELENS';
}
BEGIN {
  $WWW::IRail::API::Client::LWP::VERSION = '0.003';
}
use parent 'Exporter';
use strict;
use Carp qw/croak/;
use LWP::UserAgent;

our $VERSION;

sub new {
    my ($proto) = @_;
    my $class = ref $proto || $proto;
    my %attr = ( _client => new LWP::UserAgent);

    $attr{_client}->timeout(10);
    $attr{_client}->agent("WWW::IRail::API::Client::LWP/$VERSION ");

    return bless {%attr}, $class;
}

sub process {
    my $self = shift;
    my $http_req = shift;

    my $response = $self->{_client}->request($http_req);
    $response->is_success or croak 'unable to process request: '.$response->status_line;

    return $response;
}

42;

__END__