File Coverage

blib/lib/Template/Plugin/Unicode.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 15 16 93.7


line stmt bran cond sub pod time code
1             package Template::Plugin::Unicode;
2             $Template::Plugin::Unicode::VERSION = '0.01';
3 2     2   131784 use strict;
  2         5  
  2         53  
4 2     2   10 use warnings;
  2         4  
  2         62  
5 2     2   8 use base qw/Template::Plugin/;
  2         8  
  2         4320356  
6              
7             # ABSTRACT: unicode chars via codepoint
8              
9              
10             sub codepoint2char {
11 4     4 0 8010 my ($self, $input) = @_;
12 4         25 return chr(hex($input));
13             }
14              
15             1;
16              
17             __END__