File Coverage

blib/lib/Encode/CN.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 22 22 100.0


line stmt bran cond sub pod time code
1             package Encode::CN;
2             BEGIN {
3 9     9   1170 if ( ord("A") == 193 ) {
4             die "Encode::CN not supported on EBCDIC\n";
5             }
6             }
7 9     9   58 use strict;
  9         20  
  9         223  
8 9     9   49 use warnings;
  9         20  
  9         264  
9 9     9   62 use Encode;
  9         21  
  9         1218  
10             our $VERSION = do { my @r = ( q$Revision: 2.3 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
11 9     9   59 use XSLoader;
  9         19  
  9         346  
12             XSLoader::load( __PACKAGE__, $VERSION );
13              
14             # Relocated from Encode.pm
15              
16 9     9   3286 use Encode::CN::HZ;
  9         22  
  9         261  
17              
18             # use Encode::CN::2022_CN;
19              
20             1;
21             __END__