File Coverage

inc/utf8.pm
Criterion Covered Total %
statement 2 7 28.5
branch 1 4 25.0
condition n/a
subroutine 1 3 33.3
pod n/a
total 4 14 28.5


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 3     3   6 sub import {
9 3 50       240 $^H |= $utf8::hint_bits;
10             $enc{caller()} = $_[1] if $_[1];
11             }
12              
13 0     0     sub unimport {
14             $^H &= ~$utf8::hint_bits;
15             }
16              
17 0     0     sub AUTOLOAD {
18 0 0         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__