File Coverage

blib/lib/Template/Plugin/Lingua/JA/Regular/Unicode.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 23 23 100.0


line stmt bran cond sub pod time code
1             package Template::Plugin::Lingua::JA::Regular::Unicode;
2              
3 8     8   577563 use strict;
  8         20  
  8         310  
4 8     8   44 use warnings;
  8         17  
  8         411  
5              
6             our $VERSION = '0.02';
7              
8 8     8   50 use base qw(Template::Plugin);
  8         17  
  8         7947  
9 8     8   26014 use Lingua::JA::Regular::Unicode;
  8         181977  
  8         9744  
10              
11             sub new {
12 11     11 1 15934 my ( $self, $context, @args ) = @_;
13 11         29 for my $method (@Lingua::JA::Regular::Unicode::EXPORT) {
14 88         437 $context->define_filter( $method,
15 88         1174 \&{"Lingua::JA::Regular::Unicode::$method"}, 0 );
16             }
17 11         187 return $self;
18             }
19              
20             1;
21             __END__