Filename | /home/ss5/perl5/perlbrew/perls/perl-5.22.0/lib/site_perl/5.22.0/Moo/sification.pm |
Statements | Executed 13 statements in 181µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
2 | 2 | 2 | 900µs | 2.69ms | import | Moo::sification::
1 | 1 | 1 | 9µs | 21µs | BEGIN@3 | Moo::sification::
1 | 1 | 1 | 8µs | 60µs | BEGIN@5 | Moo::sification::
1 | 1 | 1 | 5µs | 13µs | BEGIN@4 | Moo::sification::
0 | 0 | 0 | 0s | 0s | DESTROY | Moo::HandleMoose::AuthorityHack::
0 | 0 | 0 | 0s | 0s | unimport | Moo::sification::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package Moo::sification; | ||||
2 | |||||
3 | 2 | 17µs | 2 | 34µs | # spent 21µs (9+13) within Moo::sification::BEGIN@3 which was called:
# once (9µs+13µs) by CHI::Stats::BEGIN@6 at line 3 # spent 21µs making 1 call to Moo::sification::BEGIN@3
# spent 13µs making 1 call to Moo::_strictures::import |
4 | 2 | 15µs | 2 | 21µs | # spent 13µs (5+8) within Moo::sification::BEGIN@4 which was called:
# once (5µs+8µs) by CHI::Stats::BEGIN@6 at line 4 # spent 13µs making 1 call to Moo::sification::BEGIN@4
# spent 8µs making 1 call to warnings::unimport |
5 | 2 | 100µs | 2 | 92µs | # spent 60µs (8+51) within Moo::sification::BEGIN@5 which was called:
# once (8µs+51µs) by CHI::Stats::BEGIN@6 at line 5 # spent 60µs making 1 call to Moo::sification::BEGIN@5
# spent 33µs making 1 call to Sub::Exporter::Progressive::__ANON__[Sub/Exporter/Progressive.pm:40] |
6 | |||||
7 | sub unimport { | ||||
8 | die "Can't disable Moo::sification after inflation has been done" | ||||
9 | if $Moo::HandleMoose::SETUP_DONE; | ||||
10 | our $disabled = 1; | ||||
11 | } | ||||
12 | |||||
13 | sub Moo::HandleMoose::AuthorityHack::DESTROY { | ||||
14 | unless (our $disabled or in_global_destruction) { | ||||
15 | require Moo::HandleMoose; | ||||
16 | Moo::HandleMoose->import; | ||||
17 | } | ||||
18 | } | ||||
19 | |||||
20 | # spent 2.69ms (900µs+1.79) within Moo::sification::import which was called 2 times, avg 1.35ms/call:
# once (898µs+1.79ms) by CHI::Stats::BEGIN@6 at line 10 of Moo.pm
# once (2µs+0s) by CHI::BEGIN@8 at line 12 of Moo/Role.pm | ||||
21 | return | ||||
22 | 2 | 4µs | if our $setup_done; | ||
23 | 1 | 600ns | if ($INC{"Moose.pm"}) { | ||
24 | 1 | 39µs | require Moo::HandleMoose; | ||
25 | 1 | 1µs | 1 | 29µs | Moo::HandleMoose->import; # spent 29µs making 1 call to Moo::HandleMoose::import |
26 | } else { | ||||
27 | $Moose::AUTHORITY = bless({}, 'Moo::HandleMoose::AuthorityHack'); | ||||
28 | } | ||||
29 | 1 | 2µs | $setup_done = 1; | ||
30 | } | ||||
31 | |||||
32 | 1 | 2µs | 1; |