File Coverage

blib/lib/Encode/JP.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::JP;
2             BEGIN {
3 10     10   254 if ( ord("A") == 193 ) {
4             die "Encode::JP not supported on EBCDIC\n";
5             }
6             }
7 10     10   88 use strict;
  10         18  
  10         192  
8 10     10   42 use warnings;
  10         16  
  10         272  
9 10     10   49 use Encode;
  10         18  
  10         1363  
10             our $VERSION = do { my @r = ( q$Revision: 2.4 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
11              
12 10     10   71 use XSLoader;
  10         17  
  10         423  
13             XSLoader::load( __PACKAGE__, $VERSION );
14              
15 10     10   2988 use Encode::JP::JIS7;
  10         24  
  10         287  
16              
17             1;
18             __END__