| Filename | /usr/share/perl/5.36/ExtUtils/Liblist.pm |
| Statements | Executed 10 statements in 235µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 10µs | 10µs | ExtUtils::Liblist::BEGIN@9 |
| 1 | 1 | 1 | 9µs | 10µs | ExtUtils::Liblist::BEGIN@3 |
| 1 | 1 | 1 | 4µs | 16µs | ExtUtils::Liblist::BEGIN@4 |
| 1 | 1 | 1 | 300ns | 300ns | ExtUtils::Liblist::__ANON__ (xsub) |
| 0 | 0 | 0 | 0s | 0s | ExtUtils::Liblist::ext |
| 0 | 0 | 0 | 0s | 0s | ExtUtils::Liblist::lsdir |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package ExtUtils::Liblist; | ||||
| 2 | |||||
| 3 | 2 | 21µs | 2 | 12µs | # spent 10µs (9+2) within ExtUtils::Liblist::BEGIN@3 which was called:
# once (9µs+2µs) by IPC::Cmd::can_run at line 3 # spent 10µs making 1 call to ExtUtils::Liblist::BEGIN@3
# spent 2µs making 1 call to strict::import |
| 4 | 2 | 27µs | 2 | 29µs | # spent 16µs (4+13) within ExtUtils::Liblist::BEGIN@4 which was called:
# once (4µs+13µs) by IPC::Cmd::can_run at line 4 # spent 16µs making 1 call to ExtUtils::Liblist::BEGIN@4
# spent 13µs making 1 call to warnings::import |
| 5 | |||||
| 6 | 1 | 200ns | our $VERSION = '7.64'; | ||
| 7 | 1 | 500ns | $VERSION =~ tr/_//d; | ||
| 8 | |||||
| 9 | 2 | 91µs | 2 | 10µs | # spent 10µs (10+300ns) within ExtUtils::Liblist::BEGIN@9 which was called:
# once (10µs+300ns) by IPC::Cmd::can_run at line 9 # spent 10µs making 1 call to ExtUtils::Liblist::BEGIN@9
# spent 300ns making 1 call to ExtUtils::Liblist::__ANON__ |
| 10 | 1 | 85µs | require ExtUtils::Liblist::Kid; | ||
| 11 | 1 | 11µs | our @ISA = qw(ExtUtils::Liblist::Kid File::Spec); | ||
| 12 | |||||
| 13 | # Backwards compatibility with old interface. | ||||
| 14 | sub ext { | ||||
| 15 | goto &ExtUtils::Liblist::Kid::ext; | ||||
| 16 | } | ||||
| 17 | |||||
| 18 | sub lsdir { | ||||
| 19 | shift; | ||||
| 20 | my $rex = qr/$_[1]/; | ||||
| 21 | opendir my $dir_fh, $_[0]; | ||||
| 22 | my @out = grep /$rex/, readdir $dir_fh; | ||||
| 23 | closedir $dir_fh; | ||||
| 24 | return @out; | ||||
| 25 | } | ||||
| 26 | |||||
| 27 | __END__ | ||||
# spent 300ns within ExtUtils::Liblist::__ANON__ which was called:
# once (300ns+0s) by ExtUtils::Liblist::BEGIN@9 at line 9 |