Filename | /usr/lib/x86_64-linux-gnu/perl5/5.20/common/sense.pm |
Statements | Executed 0 statements in 0s |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 21µs | 21µs | import | common::sense::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package common::sense; | ||||
2 | |||||
3 | our $VERSION = 3.73; | ||||
4 | |||||
5 | # overload should be included | ||||
6 | |||||
7 | # spent 21µs within common::sense::import which was called:
# once (21µs+0s) by JSON::XS::BEGIN@104 at line 104 of JSON/XS.pm | ||||
8 | local $^W; # work around perl 5.16 spewing out warnings for next statement | ||||
9 | # use warnings | ||||
10 | ${^WARNING_BITS} ^= ${^WARNING_BITS} ^ "\x0c\x3f\x33\x00\x0f\xf0\x0f\xc0\xf0\xfc\x33\x00\x00\x00\xc0"; | ||||
11 | # use strict, use utf8; use feature; | ||||
12 | $^H |= 0x1c820fc0; | ||||
13 | @^H{qw(feature_evalbytes feature_say feature_state feature_switch feature_fc feature_unicode feature___SUB__)} = (1) x 7; | ||||
14 | } | ||||
15 | |||||
16 | 1 |