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.03';
3 2     2   298204 use strict;
  2         4  
  2         92  
4 2     2   12 use warnings;
  2         4  
  2         67  
5 2     2   10 use base qw/Template::Plugin/;
  2         8  
  2         1685  
6              
7             # ABSTRACT: insert characters via unicode codepoints.
8              
9              
10             sub codepoint2char {
11 4     4 0 8237 my ($self, $input) = @_;
12 4         29 return chr(hex($input));
13             }
14              
15             1;
16              
17             __END__