File Coverage

blib/lib/HTML/MobileJp.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 28 28 100.0


line stmt bran cond sub pod time code
1             package HTML::MobileJp;
2 6     6   87053 use strict;
  6         13  
  6         193  
3 6     6   33 use warnings;
  6         7  
  6         146  
4 6     6   151 use 5.00800;
  6         24  
  6         353  
5             our $VERSION = '0.08';
6 6     6   37 use base qw/Exporter/;
  6         15  
  6         1240  
7              
8             my @modules = map { __PACKAGE__ . "::Plugin::$_" } qw/
9             GPS
10             EZweb::Object
11             /;
12              
13             our @EXPORT;
14              
15             for my $module (@modules) {
16 6     6   3498 eval "use $module"; ## no critic.
  6     6   21  
  6         451  
  6         4705  
  6         16  
  6         291  
17             die $@ if $@;
18              
19             $module->import;
20              
21 6     6   28 no strict 'refs';
  6         9  
  6         518  
22             push @EXPORT, @{ "${module}::EXPORT"};
23             }
24              
25             1;
26             __END__