File Coverage

blib/lib/Encode/KR.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::KR;
2             BEGIN {
3 8     8   230 if ( ord("A") == 193 ) {
4             die "Encode::KR not supported on EBCDIC\n";
5             }
6             }
7 8     8   41 use strict;
  8         15  
  8         173  
8 8     8   36 use warnings;
  8         14  
  8         206  
9 8     8   37 use Encode;
  8         15  
  8         1163  
10             our $VERSION = do { my @r = ( q$Revision: 2.3 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
11 8     8   54 use XSLoader;
  8         16  
  8         276  
12             XSLoader::load( __PACKAGE__, $VERSION );
13              
14 8     8   2329 use Encode::KR::2022_KR;
  8         16  
  8         219  
15              
16             1;
17             __END__