File Coverage

blib/lib/Template/Plugin/Num2Word.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition 1 2 50.0
subroutine 7 7 100.0
pod 1 1 100.0
total 31 32 96.8


line stmt bran cond sub pod time code
1             package Template::Plugin::Num2Word;
2              
3 2     2   98990 use warnings;
  2         5  
  2         70  
4 2     2   12 use strict;
  2         3  
  2         67  
5 2     2   54 use 5.008000;
  2         10  
  2         84  
6 2     2   11 use base qw(Template::Plugin::VMethods);
  2         3  
  2         2291  
7 2     2   35362 use vars qw(@SCALAR_OPS);
  2         5  
  2         69  
8              
9 2     2   1744 use Lingua::Num2Word;
  2         32159  
  2         336  
10             @SCALAR_OPS = qw(to_word);
11              
12             our $VERSION = '0.30';
13              
14             sub to_word {
15 1     1 1 210 my $str = shift;
16 1   50     10 my $lang = shift || "en";
17 1         5 my $n = Lingua::Num2Word->new;
18 1         6 scalar Lingua::Num2Word::cardinal($lang, $str);
19             }
20              
21             # Module implementation here
22              
23             1; # Magic true value required at end of module
24             __END__