File Coverage

blib/lib/HTTP/MobileAttribute/Request/HTTPHeaders.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 14 16 87.5


line stmt bran cond sub pod time code
1             package HTTP::MobileAttribute::Request::HTTPHeaders;
2 28     28   150 use strict;
  28         58  
  28         925  
3 28     28   477 use warnings;
  28         59  
  28         3218  
4              
5             sub new {
6 1     1 0 2 my ($class, $stuff) = @_;
7 1         11 return bless { r => $stuff }, $class;
8             }
9              
10             sub get {
11 1     1 0 6 my ($self, $header) = @_;
12 1         9 return $self->{r}->header($header);
13             }
14              
15             1;