| Filename | /usr/share/perl/5.20/parent.pm |
| Statements | Executed 98 statements in 5.56ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 9 | 9 | 8 | 32.6ms | 52.9ms | parent::import (recurses: max depth 1, inclusive time 83µs) |
| 12 | 1 | 1 | 52µs | 52µs | parent::CORE:subst (opcode) |
| 1 | 1 | 1 | 16µs | 28µs | parent::BEGIN@2 |
| 1 | 1 | 1 | 7µs | 17µs | parent::BEGIN@25 |
| 1 | 1 | 1 | 7µs | 28µs | parent::BEGIN@3 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package parent; | ||||
| 2 | 2 | 29µs | 2 | 41µs | # spent 28µs (16+12) within parent::BEGIN@2 which was called:
# once (16µs+12µs) by DateTime::TimeZone::Floating::BEGIN@6 at line 2 # spent 28µs making 1 call to parent::BEGIN@2
# spent 12µs making 1 call to strict::import |
| 3 | 2 | 128µs | 2 | 49µs | # spent 28µs (7+21) within parent::BEGIN@3 which was called:
# once (7µs+21µs) by DateTime::TimeZone::Floating::BEGIN@6 at line 3 # spent 28µs making 1 call to parent::BEGIN@3
# spent 21µs making 1 call to vars::import |
| 4 | 1 | 400ns | $VERSION = '0.228'; | ||
| 5 | |||||
| 6 | # spent 52.9ms (32.6+20.2) within parent::import which was called 9 times, avg 5.87ms/call:
# once (27.9ms+6.57ms) by CGI::File::Temp::BEGIN@8 at line 8 of CGI/File/Temp.pm
# once (2.33ms+13.1ms) by DateTime::TimeZone::Floating::BEGIN@6 at line 6 of DateTime/TimeZone/Floating.pm
# once (886µs+607µs) by Crypt::Eksblowfish::BEGIN@52 at line 52 of Crypt/Eksblowfish.pm
# once (1.34ms+3µs) by CGI::File::Temp::BEGIN@9 at line 9 of CGI/File/Temp.pm
# once (27µs+3µs) by Crypt::Eksblowfish::Bcrypt::BEGIN@47 at line 47 of Crypt/Eksblowfish/Bcrypt.pm
# once (27µs+3µs) by Koha::Borrower::Debarments::BEGIN@24 at line 24 of Koha/Borrower/Debarments.pm
# once (19µs+-19µs) by DateTime::TimeZone::UTC::BEGIN@6 at line 6 of DateTime/TimeZone/UTC.pm
# once (22µs+-22µs) by DateTime::TimeZone::OffsetOnly::BEGIN@6 at line 6 of DateTime/TimeZone/OffsetOnly.pm
# once (24µs+-24µs) by File::Temp::BEGIN@31 at line 31 of File/Temp.pm | ||||
| 7 | 9 | 4µs | my $class = shift; | ||
| 8 | |||||
| 9 | 9 | 14µs | my $inheritor = caller(0); | ||
| 10 | |||||
| 11 | 9 | 12µs | if ( @_ and $_[0] eq '-norequire' ) { | ||
| 12 | shift @_; | ||||
| 13 | } else { | ||||
| 14 | 9 | 18µs | for ( my @filename = @_ ) { | ||
| 15 | 12 | 4µs | if ( $_ eq $inheritor ) { | ||
| 16 | warn "Class '$inheritor' tried to inherit from itself\n"; | ||||
| 17 | }; | ||||
| 18 | |||||
| 19 | 12 | 88µs | 12 | 52µs | s{::|'}{/}g; # spent 52µs making 12 calls to parent::CORE:subst, avg 4µs/call |
| 20 | 12 | 5.07ms | require "$_.pm"; # dies if the file is not found | ||
| 21 | } | ||||
| 22 | } | ||||
| 23 | |||||
| 24 | { | ||||
| 25 | 11 | 94µs | 2 | 26µs | # spent 17µs (7+10) within parent::BEGIN@25 which was called:
# once (7µs+10µs) by DateTime::TimeZone::Floating::BEGIN@6 at line 25 # spent 17µs making 1 call to parent::BEGIN@25
# spent 10µs making 1 call to strict::unimport |
| 26 | 9 | 99µs | push @{"$inheritor\::ISA"}, @_; | ||
| 27 | }; | ||||
| 28 | }; | ||||
| 29 | |||||
| 30 | 1 | 2µs | "All your base are belong to us" | ||
| 31 | |||||
| 32 | __END__ | ||||
# spent 52µs within parent::CORE:subst which was called 12 times, avg 4µs/call:
# 12 times (52µs+0s) by parent::import at line 19, avg 4µs/call |