| Filename | /usr/share/perl/5.20/autouse.pm |
| Statements | Executed 20 statements in 910µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 447µs | 494µs | autouse::import |
| 1 | 1 | 1 | 16µs | 16µs | autouse::BEGIN@4 |
| 1 | 1 | 1 | 12µs | 14µs | autouse::vet_import |
| 1 | 1 | 1 | 10µs | 25µs | autouse::BEGIN@56 |
| 2 | 2 | 1 | 3µs | 3µs | autouse::CORE:subst (opcode) |
| 0 | 0 | 0 | 0s | 0s | autouse::__ANON__[:62] |
| 0 | 0 | 0 | 0s | 0s | autouse::croak |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package autouse; | ||||
| 2 | |||||
| 3 | #use strict; # debugging only | ||||
| 4 | 2 | 278µs | 1 | 16µs | # spent 16µs within autouse::BEGIN@4 which was called:
# once (16µs+0s) by C4::Koha::BEGIN@31 at line 4 # spent 16µs making 1 call to autouse::BEGIN@4 |
| 5 | |||||
| 6 | 1 | 400ns | $autouse::VERSION = '1.08'; | ||
| 7 | |||||
| 8 | 1 | 200ns | $autouse::DEBUG ||= 0; | ||
| 9 | |||||
| 10 | sub vet_import ($); | ||||
| 11 | |||||
| 12 | sub croak { | ||||
| 13 | require Carp; | ||||
| 14 | Carp::croak(@_); | ||||
| 15 | } | ||||
| 16 | |||||
| 17 | # spent 494µs (447+46) within autouse::import which was called:
# once (447µs+46µs) by C4::Koha::BEGIN@31 at line 31 of C4/Koha.pm | ||||
| 18 | 1 | 600ns | my $class = @_ ? shift : 'autouse'; | ||
| 19 | 1 | 200ns | croak "usage: use $class MODULE [,SUBS...]" unless @_; | ||
| 20 | 1 | 200ns | my $module = shift; | ||
| 21 | |||||
| 22 | 1 | 436µs | 1 | 2µs | (my $pm = $module) =~ s{::}{/}g; # spent 2µs making 1 call to autouse::CORE:subst |
| 23 | 1 | 500ns | $pm .= '.pm'; | ||
| 24 | 1 | 700ns | if (exists $INC{$pm}) { | ||
| 25 | 1 | 1µs | 1 | 14µs | vet_import $module; # spent 14µs making 1 call to autouse::vet_import |
| 26 | 1 | 600ns | local $Exporter::ExportLevel = $Exporter::ExportLevel + 1; | ||
| 27 | # $Exporter::Verbose = 1; | ||||
| 28 | 3 | 8µs | 2 | 30µs | return $module->import(map { (my $f = $_) =~ s/\(.*?\)$//; $f } @_); # spent 30µs making 1 call to Exporter::import
# spent 700ns making 1 call to autouse::CORE:subst |
| 29 | } | ||||
| 30 | |||||
| 31 | # It is not loaded: need to do real work. | ||||
| 32 | my $callpkg = caller(0); | ||||
| 33 | print "autouse called from $callpkg\n" if $autouse::DEBUG; | ||||
| 34 | |||||
| 35 | my $index; | ||||
| 36 | for my $f (@_) { | ||||
| 37 | my $proto; | ||||
| 38 | $proto = $1 if (my $func = $f) =~ s/\((.*)\)$//; | ||||
| 39 | |||||
| 40 | my $closure_import_func = $func; # Full name | ||||
| 41 | my $closure_func = $func; # Name inside package | ||||
| 42 | my $index = rindex($func, '::'); | ||||
| 43 | if ($index == -1) { | ||||
| 44 | $closure_import_func = "${callpkg}::$func"; | ||||
| 45 | } else { | ||||
| 46 | $closure_func = substr $func, $index + 2; | ||||
| 47 | croak "autouse into different package attempted" | ||||
| 48 | unless substr($func, 0, $index) eq $module; | ||||
| 49 | } | ||||
| 50 | |||||
| 51 | my $load_sub = sub { | ||||
| 52 | unless ($INC{$pm}) { | ||||
| 53 | require $pm; | ||||
| 54 | vet_import $module; | ||||
| 55 | } | ||||
| 56 | 2 | 165µs | 2 | 39µs | # spent 25µs (10+15) within autouse::BEGIN@56 which was called:
# once (10µs+15µs) by C4::Koha::BEGIN@31 at line 56 # spent 25µs making 1 call to autouse::BEGIN@56
# spent 15µs making 1 call to warnings::unimport |
| 57 | *$closure_import_func = \&{"${module}::$closure_func"}; | ||||
| 58 | print "autousing $module; " | ||||
| 59 | ."imported $closure_func as $closure_import_func\n" | ||||
| 60 | if $autouse::DEBUG; | ||||
| 61 | goto &$closure_import_func; | ||||
| 62 | }; | ||||
| 63 | |||||
| 64 | if (defined $proto) { | ||||
| 65 | *$closure_import_func = eval "sub ($proto) { goto &\$load_sub }" | ||||
| 66 | || die; | ||||
| 67 | } else { | ||||
| 68 | *$closure_import_func = $load_sub; | ||||
| 69 | } | ||||
| 70 | } | ||||
| 71 | } | ||||
| 72 | |||||
| 73 | # spent 14µs (12+2) within autouse::vet_import which was called:
# once (12µs+2µs) by autouse::import at line 25 | ||||
| 74 | 1 | 400ns | my $module = shift; | ||
| 75 | 1 | 15µs | 1 | 2µs | if (my $import = $module->can('import')) { # spent 2µs making 1 call to UNIVERSAL::can |
| 76 | croak "autoused module $module has unique import() method" | ||||
| 77 | unless defined(&Exporter::import) | ||||
| 78 | && ($import == \&Exporter::import || | ||||
| 79 | $import == \&UNIVERSAL::import) | ||||
| 80 | } | ||||
| 81 | } | ||||
| 82 | |||||
| 83 | 1 | 2µs | 1; | ||
| 84 | |||||
| 85 | __END__ | ||||
sub autouse::CORE:subst; # opcode |