| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package common::sense; |
|
2
|
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
our $VERSION = 3.75; |
|
4
|
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
# overload should be included |
|
6
|
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
sub import { |
|
8
|
2
|
|
|
2
|
|
33
|
local $^W; # work around perl 5.16 spewing out warnings for next statement |
|
9
|
|
|
|
|
|
|
# use warnings |
|
10
|
2
|
|
|
|
|
10
|
${^WARNING_BITS} ^= ${^WARNING_BITS} ^ "\x0c\x3f\x33\x00\x03\xf0\x0f\xc0\xf0\xfc\x33\x00\x00\x00\x0c\x00\x00"; |
|
11
|
|
|
|
|
|
|
# use strict, use utf8; use feature; |
|
12
|
2
|
|
|
|
|
6
|
$^H |= 0x1c820fc0; |
|
13
|
2
|
|
|
|
|
2754
|
@^H{qw(feature___SUB__ feature_evalbytes feature_fc feature_say feature_state feature_switch feature_unicode)} = (1) x 7; |
|
14
|
|
|
|
|
|
|
} |
|
15
|
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
1 |