File Coverage

blib/lib/JavaBin.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 23 23 100.0


line stmt bran cond sub pod time code
1             package JavaBin 0.9;
2              
3 13     13   35664 use strict;
  13         23  
  13         437  
4 13     13   64 use warnings;
  13         24  
  13         311  
5              
6 13     13   67 use XSLoader;
  13         27  
  13         694  
7              
8             XSLoader::load();
9              
10             sub import {
11 17     17   152 shift;
12              
13 17         46 my $pkg = caller . '::';
14              
15 13     13   65 no strict 'refs';
  13         21  
  13         1168  
16              
17 17 100       100 *{ $pkg . $_ } = \&$_ for @_ ? @_ : qw/from_javabin to_javabin/;
  31         652  
18             }
19              
20             1;