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   75795 use warnings;
  6         15  
  6         189  
6 6     6   35 use strict;
  6         12  
  6         777  
7              
8             our $VERSION = '0.904'; # VERSION
9              
10              
11              
12             sub new {
13 7     7 1 15 my $class = shift;
14 7 50       22 my $ua = shift or die 'User agent is required';
15 7         102 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 10 sub ua { shift->{ua} }
25              
26              
27 1     1 1 6 sub response_is_future { 0 }
28              
29             1;
30              
31             __END__