File Coverage

blib/lib/HTTP/AnyUA/Backend.pm
Criterion Covered Total %
statement 11 12 91.6
branch 1 2 50.0
condition n/a
subroutine 5 6 83.3
pod 4 4 100.0
total 21 24 87.5


line stmt bran cond sub pod time code
1             package HTTP::AnyUA::Backend;
2             # ABSTRACT: A base class for HTTP::AnyUA backends
3              
4              
5 6     6   75882 use warnings;
  6         16  
  6         190  
6 6     6   33 use strict;
  6         14  
  6         759  
7              
8             our $VERSION = '0.903'; # VERSION
9              
10              
11              
12             sub new {
13 7     7 1 18 my $class = shift;
14 7 50       21 my $ua = shift or die 'User agent is required';
15 7         45 bless {ua => $ua}, $class;
16             }
17              
18              
19             sub request {
20 0     0 1 0 die 'Not yet implemented';
21             }
22              
23              
24 1     1 1 9 sub ua { shift->{ua} }
25              
26              
27 1     1 1 6 sub response_is_future { 0 }
28              
29             1;
30              
31             __END__