File Coverage

blib/lib/WebService/PayPal/PaymentsAdvanced/Role/HasUA.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package WebService::PayPal::PaymentsAdvanced::Role::HasUA;
2              
3 7     7   6564 use Moo::Role;
  7         36  
  7         64  
4              
5 7     7   2863 use namespace::autoclean;
  7         50  
  7         79  
6              
7             our $VERSION = '0.000028';
8              
9 7     7   1628 use LWP::UserAgent ();
  7         34617  
  7         190  
10 7     7   49 use Types::Standard qw( InstanceOf );
  7         26  
  7         154  
11              
12             has ua => (
13             is => 'ro',
14             isa => InstanceOf ['LWP::UserAgent'],
15             default => sub {
16             my $ua = LWP::UserAgent->new;
17             $ua->timeout(60);
18             return $ua;
19             },
20             );
21              
22             1;