File Coverage

blib/lib/uni/perl/utf.pm
Criterion Covered Total %
statement 9 9 100.0
branch 2 2 100.0
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 14 15 93.3


line stmt bran cond sub pod time code
1             package uni::perl::utf;
2              
3 7     7   42 use uni::perl ();
  7         12  
  7         153  
4 7     7   3699 use uni::perl::encodebase;
  7         18  
  7         944  
5             m{
6             use strict;
7             use warnings;
8             }x;
9              
10             our $LOADED;
11             sub load {
12 8 100   8 0 53 $LOADED++ and return;
13 7         43 uni::perl::encodebase::generate(['utf','utf8']);
14 7         22 return;
15             }
16              
17             1;