File Coverage

blib/lib/Template/Plugin/MobileAgent.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 21 21 100.0


line stmt bran cond sub pod time code
1             package Template::Plugin::MobileAgent;
2              
3 2     2   1608174 use strict;
  2         4  
  2         86  
4 2     2   10 use vars qw($VERSION);
  2         4  
  2         173  
5             $VERSION = 0.01;
6              
7             require Template::Plugin;
8 2     2   10 use base qw(Template::Plugin);
  2         7  
  2         2004  
9              
10 2     2   8950 use HTTP::MobileAgent;
  2         50342  
  2         174  
11              
12             sub new {
13 2     2 1 2977 my $class = shift;
14 2         3 my $context = shift;
15 2         9 return HTTP::MobileAgent->new(@_);
16             }
17              
18             1;
19             __END__