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