File Coverage

inc/utf8.pm
Criterion Covered Total %
statement 4 7 57.1
branch 2 4 50.0
condition n/a
subroutine 2 3 66.6
pod n/a
total 8 14 57.1


line stmt bran cond sub pod time code
1             #line 1
2             package utf8;
3              
4             $utf8::hint_bits = 0x00800000;
5              
6             our $VERSION = '1.09';
7              
8 2     2   7 sub import {
9 2 50       151 $^H |= $utf8::hint_bits;
10             $enc{caller()} = $_[1] if $_[1];
11             }
12              
13 0     0   0 sub unimport {
14             $^H &= ~$utf8::hint_bits;
15             }
16              
17 1     1   1034 sub AUTOLOAD {
18 1 50       10901 require "utf8_heavy.pl";
19 0           goto &$AUTOLOAD if defined &$AUTOLOAD;
20 0           require Carp;
21             Carp::croak("Undefined subroutine $AUTOLOAD called");
22             }
23              
24             1;
25             __END__
26              
27             #line 214