File Coverage

blib/lib/Template/Plugin/HTMLMobileJp.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1             package Template::Plugin::HTMLMobileJp;
2 2     2   114379 use strict;
  2         6  
  2         67  
3 2     2   9 use warnings;
  2         28  
  2         59  
4 2     2   10 use base 'Template::Plugin';
  2         5  
  2         824  
5             our $VERSION = '0.02';
6 2     2   8876 use HTML::MobileJp ();
  2         58985  
  2         88  
7              
8             for my $method (@HTML::MobileJp::EXPORT) {
9 2     2   16 no strict 'refs';
  2         19  
  2         241  
10             *{__PACKAGE__ . "::$method"} = sub {
11 2     2   6467 my ($self, $option) = @_;
12 2         8 *{"HTML::MobileJp::$method"}->(%$option);
  2         11  
13             };
14             }
15              
16             1;
17             __END__