File Coverage

blib/lib/PerlIO/fse.pm
Criterion Covered Total %
statement 14 15 93.3
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 22 90.9


line stmt bran cond sub pod time code
1             package PerlIO::fse;
2              
3 2     2   64145 use 5.008_001;
  2         9  
  2         76  
4 2     2   11 use strict;
  2         4  
  2         109  
5              
6             our $VERSION = '0.02';
7              
8 2     2   20 use XSLoader;
  2         10  
  2         103  
9             XSLoader::load(__PACKAGE__, $VERSION);
10              
11 2     2   45228 use Encode ();
  2         39741  
  2         166  
12              
13             sub import{
14 2     2   16 my $class = shift;
15              
16 2 50       60 if(@_){
17 0           $class->set_fse(@_);
18             }
19             }
20              
21             1;
22             __END__