Filename | /usr/lib/x86_64-linux-gnu/perl5/5.20/common/sense.pm |
Statements | Executed 6 statements in 28µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 20µs | 20µs | import | common::sense::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package common::sense; | ||||
2 | |||||
3 | 1 | 400ns | our $VERSION = 3.73; | ||
4 | |||||
5 | # overload should be included | ||||
6 | |||||
7 | # spent 20µs within common::sense::import which was called:
# once (20µs+0s) by JSON::XS::BEGIN@104 at line 104 of JSON/XS.pm | ||||
8 | 1 | 5µs | local $^W; # work around perl 5.16 spewing out warnings for next statement | ||
9 | # use warnings | ||||
10 | 1 | 3µs | ${^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 | 1 | 300ns | $^H |= 0x1c820fc0; | ||
13 | 1 | 16µs | @^H{qw(feature_evalbytes feature_say feature_state feature_switch feature_fc feature_unicode feature___SUB__)} = (1) x 7; | ||
14 | } | ||||
15 | |||||
16 | 1 | 3µs | 1 |