File Coverage

blib/lib/WWW/AUR/UserAgent.pm
Criterion Covered Total %
statement 17 17 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 1 2 50.0
total 25 27 92.5


line stmt bran cond sub pod time code
1             package WWW::AUR::UserAgent;
2              
3 9     9   32 use warnings 'FATAL' => 'all';
  9         9  
  9         306  
4 9     9   28 use strict;
  9         8  
  9         140  
5              
6 9     9   5187 use LWP::UserAgent qw();
  9         228954  
  9         181  
7 9     9   46 use WWW::AUR qw();
  9         12  
  9         887  
8              
9             our @ISA = qw(LWP::UserAgent);
10              
11             sub new
12             {
13 124     124 1 254 my $class = shift;
14              
15 124         784 $class->SUPER::new( 'agent' => "WWW::AUR/v$WWW::AUR::VERSION", @_ );
16             }
17              
18             #---CLASS METHOD---
19             sub InitTLS
20             {
21 115 50   115 0 178 eval { require LWP::Protocol::https; 1 } or
  115         3832  
  115         518088  
22             die "failed to load LWP::Protocol::https, error:\n$@\n"
23             . "(ensure that LWP::Protocol::https is installed)\n"
24             }
25              
26             1;