File Coverage

blib/lib/Template/Provider/Unicode/Japanese.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 29 29 100.0


line stmt bran cond sub pod time code
1             #
2             # $Id: Japanese.pm,v 1.3 2007/05/04 07:58:52 hironori.yoshida Exp $
3             #
4             package Template::Provider::Unicode::Japanese;
5 2     2   122226 use strict;
  2         7  
  2         67  
6 2     2   11 use warnings;
  2         4  
  2         54  
7 2     2   9 use version; our $VERSION = qv('1.2.1');
  2         15  
  2         16  
8              
9 2     2   1106 use Template::Config;
  2         7442  
  2         58  
10 2     2   6627 use Unicode::Japanese;
  2         23000  
  2         16  
11              
12 2     2   111 use base ($Template::Config::PROVIDER);
  2         5  
  2         1290  
13              
14             sub _load {
15 5     5   654368 my $self = shift;
16              
17 5         29 my ( $data, $error ) = $self->SUPER::_load(@_);
18              
19 5         1416 $data->{text} = Unicode::Japanese->new( $data->{text}, 'auto' )->getu;
20              
21 5         6717 return ( $data, $error );
22             }
23              
24             1;
25              
26             __END__