File Coverage

blib/lib/Class/Easy/Import.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             package Class::Easy::Import;
2              
3             our $H = 0x8006c0;
4             our $WARN = "\x3c\x3f\x33\x00\x0f\xf0\x0f\xc0\xf0\xfc\x33\x00\x00\x00\xc0";
5              
6             sub import {
7             # use warnings
8 22     22   72 ${^WARNING_BITS} = $WARN;
9            
10             # use strict, use utf8;
11 22         50 $^H |= $H;
12            
13             # use feature
14 22         3915 $^H{feature_switch} = $^H{feature_say} = $^H{feature_state} = 1;
15              
16             }
17             1;