File Coverage

blib/lib/HTTP/MobileAttribute/Request/Apache.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 18 20 90.0


line stmt bran cond sub pod time code
1             package HTTP::MobileAttribute::Request::Apache;
2 28     28   236 use strict;
  28         66  
  28         920  
3 28     28   158 use warnings;
  28         55  
  28         761  
4 28     28   143 use Scalar::Util qw/blessed/;
  28         56  
  28         4657  
5              
6             sub new {
7 1     1 0 3 my ($class, $stuff) = @_;
8              
9 1         7 return bless { r => $stuff }, __PACKAGE__;
10             }
11              
12             sub get {
13 1     1 0 7 my ($self, $header) = @_;
14 1         9 return $self->{r}->header_in($header);
15             }
16              
17             1;