File Coverage

blib/lib/Acme/NumericMethod.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 Acme::NumericMethod;
2 2     2   33646 use v5.8.8;
  2         9  
  2         127  
3 2     2   14 use strict;
  2         4  
  2         115  
4             our $VERSION='0.04';
5 2     2   2500 use Lingua::EN::Words2Nums;
  2         6285  
  2         396  
6              
7             sub import {
8 2     2   26 my $package = (caller)[0];
9 2     2   18 no strict 'refs';
  2         5  
  2         108  
10 2         2188 *{"${package}::AUTOLOAD"} = sub {
11 2     2   12 no strict;
  2         4  
  2         269  
12 1     1   12 my $n = $AUTOLOAD;
13 1         7 $n =~ s/.*:://;
14 1         7 return words2nums($n);
15 2         9 };
16             }
17              
18             1;
19             __END__