File Coverage

blib/lib/HTTP/MobileAttribute/Request/APRTable.pm
Criterion Covered Total %
statement 6 10 60.0
branch n/a
condition n/a
subroutine 2 4 50.0
pod 0 2 0.0
total 8 16 50.0


line stmt bran cond sub pod time code
1             package HTTP::MobileAttribute::Request::APRTable;
2 28     28   157 use strict;
  28         70  
  28         1059  
3 28     28   151 use warnings;
  28         69  
  28         3148  
4              
5             sub new {
6 0     0 0   my ($class, $stuff) = @_;
7 0           return bless { r => $stuff }, $class;
8             }
9              
10             sub get {
11 0     0 0   my ($self, $header) = @_;
12 0           return $self->{r}->{$header};
13             }
14              
15             1;