Filename | /opt/perl-5.18.1/lib/5.18.1/parent.pm |
Statements | Executed 17 statements in 312µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 26µs | 39µs | import | parent::
1 | 1 | 1 | 15µs | 31µs | BEGIN@2 | parent::
1 | 1 | 1 | 13µs | 13µs | CORE:subst (opcode) | parent::
1 | 1 | 1 | 10µs | 37µs | BEGIN@3 | parent::
1 | 1 | 1 | 10µs | 24µs | BEGIN@25 | parent::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package parent; | ||||
2 | 2 | 34µs | 2 | 47µs | # spent 31µs (15+16) within parent::BEGIN@2 which was called:
# once (15µs+16µs) by Typed::BEGIN@14 at line 2 # spent 31µs making 1 call to parent::BEGIN@2
# spent 16µs making 1 call to strict::import |
3 | 2 | 162µs | 2 | 64µs | # spent 37µs (10+27) within parent::BEGIN@3 which was called:
# once (10µs+27µs) by Typed::BEGIN@14 at line 3 # spent 37µs making 1 call to parent::BEGIN@3
# spent 27µs making 1 call to vars::import |
4 | 1 | 700ns | $VERSION = '0.225'; | ||
5 | |||||
6 | # spent 39µs (26+13) within parent::import which was called:
# once (26µs+13µs) by Typed::BEGIN@14 at line 14 of Typed.pm | ||||
7 | 1 | 500ns | my $class = shift; | ||
8 | |||||
9 | 1 | 600ns | my $inheritor = caller(0); | ||
10 | |||||
11 | 1 | 1µs | if ( @_ and $_[0] eq '-norequire' ) { | ||
12 | shift @_; | ||||
13 | } else { | ||||
14 | 1 | 2µs | for ( my @filename = @_ ) { | ||
15 | 1 | 200ns | if ( $_ eq $inheritor ) { | ||
16 | warn "Class '$inheritor' tried to inherit from itself\n"; | ||||
17 | }; | ||||
18 | |||||
19 | 1 | 21µs | 1 | 13µs | s{::|'}{/}g; # spent 13µs making 1 call to parent::CORE:subst |
20 | 1 | 2µs | require "$_.pm"; # dies if the file is not found | ||
21 | } | ||||
22 | } | ||||
23 | |||||
24 | { | ||||
25 | 3 | 76µs | 2 | 39µs | # spent 24µs (10+14) within parent::BEGIN@25 which was called:
# once (10µs+14µs) by Typed::BEGIN@14 at line 25 # spent 24µs making 1 call to parent::BEGIN@25
# spent 14µs making 1 call to strict::unimport |
26 | 1 | 8µs | push @{"$inheritor\::ISA"}, @_; | ||
27 | }; | ||||
28 | }; | ||||
29 | |||||
30 | 1 | 4µs | "All your base are belong to us" | ||
31 | |||||
32 | __END__ | ||||
# spent 13µs within parent::CORE:subst which was called:
# once (13µs+0s) by parent::import at line 19 |