File Coverage

blib/lib/Encode/JIS2K.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Encode::JIS2K;
2             our $VERSION = sprintf "%d.%02d", q$Revision: 0.2 $ =~ /(\d+)/g;
3              
4 1     1   837 use Encode;
  1         2  
  1         103  
5 1     1   5 use XSLoader;
  1         2  
  1         36  
6             XSLoader::load(__PACKAGE__,$VERSION);
7              
8 1     1   544 use Encode::JIS2K::2022JP3;
  1         2  
  1         162  
9              
10             Encode::define_alias(qr/\beuc.*jp[ \-]?(?:2000|2k)$/i => '"euc-jisx0213"');
11             Encode::define_alias(qr/\bjp.*euc[ \-]?(2000|2k)$/i => '"euc-jisx0213"');
12             Encode::define_alias(qr/\bujis[ \-]?(?:2000|2k)$/i => '"euc-jisx0213"');
13              
14             Encode::define_alias(qr/\bshift.*jis(?:2000|2k)$/i => '"shiftjisx0213"');
15             Encode::define_alias(qr/\bsjisp \-]?(?:2000|2k)$/i => '"shiftjisx0213"');
16              
17              
18             1;
19             __END__