| Filename | /usr/share/perl5/Import/Into.pm |
| Statements | Executed 0 statements in 0s |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 2 | 1 | 1 | 174µs | 203µs | Import::Into::_make_action |
| 2 | 1 | 1 | 26µs | 28µs | Import::Into::_prelude |
| 2 | 1 | 1 | 22µs | 332µs | import::into |
| 1 | 1 | 1 | 18µs | 26µs | Import::Into::BEGIN@3 |
| 1 | 1 | 1 | 12µs | 17µs | Import::Into::BEGIN@5 |
| 1 | 1 | 1 | 9µs | 19µs | Import::Into::BEGIN@4 |
| 2 | 1 | 1 | 3µs | 3µs | Import::Into::CORE:match (opcode) |
| 0 | 0 | 0 | 0s | 0s | unimport::out_of |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package Import::Into; | ||||
| 2 | |||||
| 3 | 2 | 34µs | # spent 26µs (18+8) within Import::Into::BEGIN@3 which was called:
# once (18µs+8µs) by Moo::BEGIN@5 at line 3 # spent 26µs making 1 call to Import::Into::BEGIN@3
# spent 8µs making 1 call to strict::import | ||
| 4 | 2 | 28µs | # spent 19µs (9+10) within Import::Into::BEGIN@4 which was called:
# once (9µs+10µs) by Moo::BEGIN@5 at line 4 # spent 19µs making 1 call to Import::Into::BEGIN@4
# spent 10µs making 1 call to warnings::import | ||
| 5 | 2 | 22µs | # spent 17µs (12+5) within Import::Into::BEGIN@5 which was called:
# once (12µs+5µs) by Moo::BEGIN@5 at line 5 # spent 17µs making 1 call to Import::Into::BEGIN@5
# spent 5µs making 1 call to Module::Runtime::import | ||
| 6 | |||||
| 7 | our $VERSION = '1.002004'; | ||||
| 8 | |||||
| 9 | # spent 28µs (26+3) within Import::Into::_prelude which was called 2 times, avg 14µs/call:
# 2 times (26µs+3µs) by Import::Into::_make_action at line 29, avg 14µs/call | ||||
| 10 | my $target = shift; | ||||
| 11 | my ($package, $file, $line, $level) | ||||
| 12 | 2 | 3µs | = ref $target ? @{$target}{qw(package filename line)} # spent 3µs making 2 calls to Import::Into::CORE:match, avg 1µs/call | ||
| 13 | : $target =~ /[^0-9]/ ? ($target) | ||||
| 14 | : (undef, undef, undef, $target); | ||||
| 15 | if (defined $level) { | ||||
| 16 | my ($p, $fn, $ln) = caller($level + 2); | ||||
| 17 | $package ||= $p; | ||||
| 18 | $file ||= $fn; | ||||
| 19 | $line ||= $ln; | ||||
| 20 | } | ||||
| 21 | qq{package $package;\n} | ||||
| 22 | . ($file ? "#line $line \"$file\"\n" : '') | ||||
| 23 | } | ||||
| 24 | |||||
| 25 | # spent 203µs (174+28) within Import::Into::_make_action which was called 2 times, avg 101µs/call:
# 2 times (174µs+28µs) by import::into at line 36, avg 101µs/call | ||||
| 26 | my ($action, $target) = @_; | ||||
| 27 | my $version = ref $target && $target->{version}; | ||||
| 28 | my $ver_check = $version ? ', $version' : ''; | ||||
| 29 | 2 | 28µs | eval _prelude($target) # spent 28µs making 2 calls to Import::Into::_prelude, avg 14µs/call | ||
| 30 | . qq{sub { Module::Runtime::use_module( shift$ver_check )->$action(\@_) }} | ||||
| 31 | or die "Failed to build action sub to ${action} for ${target}: $@"; | ||||
| 32 | } | ||||
| 33 | |||||
| 34 | # spent 332µs (22+310) within import::into which was called 2 times, avg 166µs/call:
# 2 times (22µs+310µs) by Moo::import at line 24 of Moo.pm, avg 166µs/call | ||||
| 35 | my ($class, $target, @args) = @_; | ||||
| 36 | 4 | 310µs | _make_action(import => $target)->($class, @args); # spent 203µs making 2 calls to Import::Into::_make_action, avg 101µs/call
# spent 55µs making 1 call to Method::Generate::Constructor::__ANON__[Method/Generate/Constructor.pm:202]
# spent 52µs making 1 call to DBIx::Class::Storage::BlockRunner::__ANON__[DBIx/Class/Storage/BlockRunner.pm:29] | ||
| 37 | } | ||||
| 38 | |||||
| 39 | sub unimport::out_of { | ||||
| 40 | my ($class, $target, @args) = @_; | ||||
| 41 | _make_action(unimport => $target)->($class, @args); | ||||
| 42 | } | ||||
| 43 | |||||
| 44 | 1; | ||||
| 45 | |||||
| 46 | __END__ | ||||
# spent 3µs within Import::Into::CORE:match which was called 2 times, avg 1µs/call:
# 2 times (3µs+0s) by Import::Into::_prelude at line 12, avg 1µs/call |