File Coverage

inc/PerlIO.pm
Criterion Covered Total %
statement 0 8 0.0
branch 0 4 0.0
condition n/a
subroutine 0 1 0.0
pod n/a
total 0 13 0.0


line stmt bran cond sub pod time code
1             #line 1
2             package PerlIO;
3              
4             our $VERSION = '1.07';
5              
6             # Map layer name to package that defines it
7             our %alias;
8              
9             sub import
10 0     0     {
11 0           my $class = shift;
12             while (@_)
13 0           {
14 0 0         my $layer = shift;
15             if (exists $alias{$layer})
16 0           {
17             $layer = $alias{$layer}
18             }
19             else
20 0           {
21             $layer = "${class}::$layer";
22 0           }
23 0 0         eval "require $layer";
24             warn $@ if $@;
25             }
26             }
27              
28             sub F_UTF8 () { 0x8000 }
29              
30             1;
31             __END__