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

package WWW::AUR::UserAgent;

use warnings 'FATAL' => 'all';
use strict;

use LWP::UserAgent qw();
use WWW::AUR       qw();

our @ISA = qw(LWP::UserAgent);

sub new
{
    my $class = shift;

    $class->SUPER::new( 'agent' => "WWW::AUR/v$WWW::AUR::VERSION", @_ );
}

#---CLASS METHOD---
sub InitTLS
{
    eval { require LWP::Protocol::https; 1 } or
        die "failed to load LWP::Protocol::https, error:\n$@\n"
            . "(ensure that LWP::Protocol::https is installed)\n"
}

1;