File Coverage

inc/PerlIO.pm
Criterion Covered Total %
statement 7 8 87.5
branch 2 4 50.0
condition n/a
subroutine 1 1 100.0
pod n/a
total 10 13 76.9


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 3     3   461 {
11 3         17 my $class = shift;
12             while (@_)
13 3         6 {
14 3 50       11 my $layer = shift;
15             if (exists $alias{$layer})
16 0         0 {
17             $layer = $alias{$layer}
18             }
19             else
20 3         11 {
21             $layer = "${class}::$layer";
22 3         165 }
23 3 50       989 eval "require $layer";
24             warn $@ if $@;
25             }
26             }
27              
28             sub F_UTF8 () { 0x8000 }
29              
30             1;
31             __END__