File Coverage

blib/lib/Encode/EBCDIC.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Encode::EBCDIC;
2 5     5   44 use strict;
  5         15  
  5         177  
3 5     5   35 use warnings;
  5         14  
  5         182  
4 5     5   34 use Encode;
  5         14  
  5         842  
5             our $VERSION = do { my @r = ( q$Revision: 2.2 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
6              
7 5     5   44 use XSLoader;
  5         14  
  5         229  
8             XSLoader::load( __PACKAGE__, $VERSION );
9              
10             1;
11             __END__