| Filename | /usr/lib/perl5/5.14/Exporter.pm |
| Statements | Executed 1697 statements in 13.0ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 102 | 102 | 55 | 8.45ms | 19.3ms | Exporter::import |
| 13 | 4 | 1 | 6.19ms | 6.59ms | Exporter::as_heavy |
| 447 | 2 | 1 | 394µs | 394µs | Exporter::CORE:match (opcode) |
| 370 | 2 | 1 | 277µs | 277µs | Exporter::CORE:subst (opcode) |
| 10 | 2 | 2 | 101µs | 388µs | Exporter::export |
| 1 | 1 | 1 | 14µs | 51µs | Exporter::export_to_level |
| 1 | 1 | 1 | 13µs | 6.26ms | Exporter::export_tags |
| 1 | 1 | 1 | 10µs | 33µs | Exporter::export_ok_tags |
| 0 | 0 | 0 | 0s | 0s | Exporter::__ANON__[:65] |
| 0 | 0 | 0 | 0s | 0s | Exporter::export_fail |
| 0 | 0 | 0 | 0s | 0s | Exporter::require_version |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package Exporter; | ||||
| 2 | |||||
| 3 | 1 | 71µs | require 5.006; | ||
| 4 | |||||
| 5 | # Be lean. | ||||
| 6 | #use strict; | ||||
| 7 | #no strict 'refs'; | ||||
| 8 | |||||
| 9 | 1 | 600ns | our $Debug = 0; | ||
| 10 | 1 | 0s | our $ExportLevel = 0; | ||
| 11 | 1 | 500ns | our $Verbose ||= 0; | ||
| 12 | 1 | 500ns | our $VERSION = '5.64_03'; | ||
| 13 | 1 | 500ns | our (%Cache); | ||
| 14 | |||||
| 15 | # spent 6.59ms (6.19+407µs) within Exporter::as_heavy which was called 13 times, avg 507µs/call:
# 10 times (230µs+57µs) by Exporter::export at line 25, avg 29µs/call
# once (5.91ms+334µs) by Exporter::export_tags at line 86
# once (26µs+12µs) by Exporter::export_to_level at line 82
# once (18µs+5µs) by Exporter::export_ok_tags at line 90 | ||||
| 16 | 13 | 2.86ms | require Exporter::Heavy; | ||
| 17 | # Unfortunately, this does not work if the caller is aliased as *name = \&foo | ||||
| 18 | # Thus the need to create a lot of identical subroutines | ||||
| 19 | 13 | 130µs | my $c = (caller(1))[3]; | ||
| 20 | 13 | 163µs | 13 | 87µs | $c =~ s/.*:://; # spent 87µs making 13 calls to Exporter::CORE:subst, avg 7µs/call |
| 21 | 13 | 116µs | \&{"Exporter::Heavy::heavy_$c"}; | ||
| 22 | } | ||||
| 23 | |||||
| 24 | # spent 388µs (101+287) within Exporter::export which was called 10 times, avg 39µs/call:
# 9 times (92µs+270µs) by Exporter::import at line 63, avg 40µs/call
# once (8µs+16µs) by Exporter::Heavy::heavy_export_to_level at line 214 of Exporter/Heavy.pm | ||||
| 25 | 10 | 118µs | 20 | 10.3ms | goto &{as_heavy()}; # spent 10.0ms making 10 calls to Exporter::Heavy::heavy_export, avg 1.00ms/call
# spent 287µs making 10 calls to Exporter::as_heavy, avg 29µs/call |
| 26 | } | ||||
| 27 | |||||
| 28 | # spent 19.3ms (8.45+10.8) within Exporter::import which was called 102 times, avg 189µs/call:
# once (442µs+5.97ms) by POSIX::import at line 29 of POSIX.pm
# once (42µs+1.06ms) by Archive::Zip::Member::BEGIN@13 at line 13 of Archive/Zip/Member.pm
# once (309µs+772µs) by Archive::Zip::Archive::BEGIN@20 at line 20 of Archive/Zip/Archive.pm
# once (67µs+784µs) by Archive::Zip::ZipFileMember::BEGIN@11 at line 11 of Archive/Zip/ZipFileMember.pm
# once (504µs+65µs) by IO::Seekable::BEGIN@104 at line 104 of IO/Seekable.pm
# once (43µs+524µs) by Archive::Zip::NewFileMember::BEGIN@11 at line 11 of Archive/Zip/NewFileMember.pm
# once (529µs+34µs) by File::Temp::BEGIN@146 at line 146 of File/Temp.pm
# once (38µs+369µs) by Archive::Zip::StringMember::BEGIN@11 at line 11 of Archive/Zip/StringMember.pm
# once (37µs+330µs) by installer::archivefiles::BEGIN@30 at line 30 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/archivefiles.pm
# once (32µs+332µs) by Archive::Zip::DirectoryMember::BEGIN@13 at line 13 of Archive/Zip/DirectoryMember.pm
# once (290µs+27µs) by Archive::Zip::BEGIN@15 at line 39 of FileHandle.pm
# once (286µs+22µs) by POSIX::BEGIN@13 at line 13 of POSIX.pm
# once (35µs+252µs) by Archive::Zip::FileMember::BEGIN@11 at line 11 of Archive/Zip/FileMember.pm
# once (260µs+14µs) by Archive::Zip::BEGIN@10 at line 148 of IO/File.pm
# once (230µs+25µs) by Archive::Zip::Member::BEGIN@22 at line 22 of Archive/Zip/Member.pm
# once (113µs+17µs) by installer::worker::BEGIN@33 at line 33 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/worker.pm
# once (107µs+9µs) by installer::ziplist::BEGIN@30 at line 30 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/ziplist.pm
# once (105µs+9µs) by main::BEGIN@33 at line 33 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/make_installer.pl
# once (104µs+6µs) by installer::worker::BEGIN@30 at line 30 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/worker.pm
# once (91µs+14µs) by installer::setupscript::BEGIN@34 at line 34 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/setupscript.pm
# once (94µs+7µs) by installer::windows::mergemodule::BEGIN@30 at line 30 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/mergemodule.pm
# once (94µs+7µs) by IO::File::BEGIN@130 at line 130 of IO/File.pm
# once (91µs+9µs) by IO::File::BEGIN@131 at line 131 of IO/File.pm
# once (93µs+6µs) by installer::windows::idtglobal::BEGIN@30 at line 30 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/idtglobal.pm
# once (93µs+6µs) by installer::epmfile::BEGIN@30 at line 30 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/epmfile.pm
# once (93µs+6µs) by installer::windows::msiglobal::BEGIN@30 at line 30 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/msiglobal.pm
# once (94µs+5µs) by IO::Handle::BEGIN@263 at line 263 of IO/Handle.pm
# once (92µs+5µs) by installer::windows::msp::BEGIN@30 at line 30 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/msp.pm
# once (88µs+6µs) by Archive::Zip::Archive::BEGIN@10 at line 10 of Archive/Zip/Archive.pm
# once (85µs+10µs) by File::Path::BEGIN@6 at line 6 of File/Path.pm
# once (88µs+4µs) by File::Temp::BEGIN@143 at line 143 of File/Temp.pm
# once (83µs+7µs) by installer::BEGIN@32 at line 32 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer.pm
# once (82µs+5µs) by Data::Dumper::BEGIN@20 at line 20 of Data/Dumper.pm
# once (79µs+6µs) by installer::parameter::BEGIN@30 at line 30 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/parameter.pm
# once (79µs+5µs) by installer::systemactions::BEGIN@30 at line 30 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/systemactions.pm
# once (78µs+5µs) by File::stat::BEGIN@7 at line 7 of File/stat.pm
# once (79µs+5µs) by installer::windows::strip::BEGIN@30 at line 30 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/strip.pm
# once (78µs+4µs) by Archive::Zip::Archive::BEGIN@6 at line 6 of Archive/Zip/Archive.pm
# once (72µs+7µs) by installer::archivefiles::BEGIN@37 at line 37 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/archivefiles.pm
# once (76µs+3µs) by Tie::Hash::BEGIN@188 at line 188 of Tie/Hash.pm
# once (73µs+5µs) by installer::simplepackage::BEGIN@30 at line 30 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/simplepackage.pm
# once (74µs+4µs) by installer::BEGIN@34 at line 34 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer.pm
# once (73µs+3µs) by Compress::Raw::Zlib::BEGIN@7 at line 7 of Compress/Raw/Zlib.pm
# once (71µs+5µs) by File::Temp::BEGIN@145 at line 145 of File/Temp.pm
# once (72µs+4µs) by Archive::Zip::DirectoryMember::BEGIN@4 at line 4 of Archive/Zip/DirectoryMember.pm
# once (72µs+3µs) by Time::Local::BEGIN@4 at line 4 of Time/Local.pm
# once (71µs+3µs) by SelectSaver::BEGIN@38 at line 38 of SelectSaver.pm
# once (71µs+2µs) by Archive::Zip::Member::BEGIN@24 at line 24 of Archive/Zip/Member.pm
# once (69µs+4µs) by IO::BEGIN@6 at line 6 of IO.pm
# once (68µs+4µs) by IO::Seekable::BEGIN@98 at line 98 of IO/Seekable.pm
# once (67µs+3µs) by installer::control::BEGIN@30 at line 30 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/control.pm
# once (65µs+4µs) by Carp::BEGIN@4.1 at line 4 of Carp/Heavy.pm
# once (65µs+3µs) by Class::Struct::BEGIN@11 at line 11 of Class/Struct.pm
# once (64µs+3µs) by File::stat::BEGIN@3 at line 3 of (eval 15)[Class/Struct.pm:231]
# once (64µs+2µs) by IO::Handle::BEGIN@264 at line 264 of IO/Handle.pm
# once (63µs+3µs) by installer::BEGIN@33 at line 33 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer.pm
# once (62µs+2µs) by Archive::Zip::Archive::BEGIN@11 at line 11 of Archive/Zip/Archive.pm
# once (57µs+6µs) by installer::simplepackage::BEGIN@36 at line 36 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/simplepackage.pm
# once (59µs+3µs) by IO::File::BEGIN@133 at line 133 of IO/File.pm
# once (60µs+0s) by installer::archivefiles::BEGIN@34 at line 34 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/archivefiles.pm
# once (56µs+2µs) by SelectSaver::BEGIN@39 at line 39 of SelectSaver.pm
# once (55µs+2µs) by File::Temp::Dir::BEGIN@2405 at line 2405 of File/Temp.pm
# once (57µs+0s) by installer::worker::BEGIN@40 at line 40 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/worker.pm
# once (54µs+3µs) by File::stat::BEGIN@30 at line 30 of File/stat.pm
# once (56µs+0s) by installer::languagepack::BEGIN@33 at line 33 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/languagepack.pm
# once (54µs+2µs) by installer::worker::BEGIN@32 at line 171 of File/stat.pm
# once (53µs+3µs) by installer::BEGIN@58 at line 58 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer.pm
# once (53µs+2µs) by installer::windows::admin::BEGIN@30 at line 30 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/admin.pm
# once (52µs+2µs) by File::Temp::BEGIN@147 at line 147 of File/Temp.pm
# once (53µs+0s) by installer::copyproject::BEGIN@37 at line 37 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/copyproject.pm
# once (53µs+0s) by Cwd::BEGIN@171 at line 171 of Cwd.pm
# once (53µs+0s) by installer::files::BEGIN@34 at line 34 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/files.pm
# once (51µs+0s) by installer::profiles::BEGIN@34 at line 34 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/profiles.pm
# once (50µs+1000ns) by installer::systemactions::BEGIN@31 at line 31 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/systemactions.pm
# once (49µs+1µs) by Archive::Zip::Member::BEGIN@23 at line 23 of Archive/Zip/Member.pm
# once (50µs+0s) by installer::helppack::BEGIN@36 at line 36 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/helppack.pm
# once (48µs+2µs) by installer::simplepackage::BEGIN@31 at line 31 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/simplepackage.pm
# once (47µs+2µs) by installer::worker::BEGIN@34 at line 34 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/worker.pm
# once (46µs+2µs) by installer::worker::BEGIN@31 at line 31 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/worker.pm
# once (48µs+0s) by installer::windows::file::BEGIN@30 at line 30 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/file.pm
# once (41µs+0s) by installer::BEGIN@48 at line 48 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer.pm
# once (41µs+0s) by installer::scriptitems::BEGIN@34 at line 34 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/scriptitems.pm
# once (39µs+0s) by installer::scppatchsoname::BEGIN@32 at line 32 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/scppatchsoname.pm
# once (39µs+0s) by installer::scppatchsoname::BEGIN@33 at line 33 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/scppatchsoname.pm
# once (38µs+0s) by installer::download::BEGIN@37 at line 37 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/download.pm
# once (34µs+0s) by installer::exiter::BEGIN@35 at line 35 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/exiter.pm
# once (34µs+0s) by installer::windows::strip::BEGIN@33 at line 33 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/strip.pm
# once (33µs+0s) by installer::substfilenamefiles::BEGIN@32 at line 32 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/substfilenamefiles.pm
# once (32µs+0s) by File::Temp::BEGIN@148 at line 148 of File/Temp.pm
# once (31µs+0s) by installer::strip::BEGIN@36 at line 36 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/strip.pm
# once (30µs+0s) by installer::scpzipfiles::BEGIN@32 at line 32 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/scpzipfiles.pm
# once (30µs+0s) by installer::BEGIN@56 at line 56 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer.pm
# once (30µs+0s) by installer::epmfile::BEGIN@35 at line 35 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/epmfile.pm
# once (29µs+0s) by installer::parameter::BEGIN@34 at line 34 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/parameter.pm
# once (28µs+0s) by installer::windows::file::BEGIN@34 at line 34 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/file.pm
# once (28µs+0s) by installer::windows::msiglobal::BEGIN@36 at line 36 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/msiglobal.pm
# once (28µs+0s) by installer::windows::msiglobal::BEGIN@31 at line 31 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/msiglobal.pm
# once (27µs+0s) by installer::simplepackage::BEGIN@35 at line 35 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/simplepackage.pm
# once (27µs+0s) by installer::windows::mergemodule::BEGIN@36 at line 36 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/mergemodule.pm
# once (27µs+0s) by installer::windows::msp::BEGIN@36 at line 36 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/msp.pm
# once (26µs+0s) by installer::ziplist::BEGIN@34 at line 34 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/ziplist.pm
# once (25µs+0s) by installer::windows::mergemodule::BEGIN@31 at line 31 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/mergemodule.pm | ||||
| 29 | 102 | 120µs | my $pkg = shift; | ||
| 30 | 102 | 129µs | my $callpkg = caller($ExportLevel); | ||
| 31 | |||||
| 32 | 102 | 89µs | if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { | ||
| 33 | *{$callpkg."::import"} = \&import; | ||||
| 34 | return; | ||||
| 35 | } | ||||
| 36 | |||||
| 37 | # We *need* to treat @{"$pkg\::EXPORT_FAIL"} since Carp uses it :-( | ||||
| 38 | 102 | 354µs | my $exports = \@{"$pkg\::EXPORT"}; | ||
| 39 | # But, avoid creating things if they don't exist, which saves a couple of | ||||
| 40 | # hundred bytes per package processed. | ||||
| 41 | 102 | 241µs | my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; | ||
| 42 | 102 | 118µs | return export $pkg, $callpkg, @_ | ||
| 43 | if $Verbose or $Debug or $fail && @$fail > 1; | ||||
| 44 | 102 | 165µs | my $export_cache = ($Cache{$pkg} ||= {}); | ||
| 45 | 102 | 394µs | my $args = @_ or @_ = @$exports; | ||
| 46 | |||||
| 47 | 102 | 55µs | local $_; | ||
| 48 | 102 | 71µs | if ($args and not %$export_cache) { | ||
| 49 | s/^&//, $export_cache->{$_} = 1 | ||||
| 50 | 11 | 1.40ms | 357 | 190µs | foreach (@$exports, @{"$pkg\::EXPORT_OK"}); # spent 190µs making 357 calls to Exporter::CORE:subst, avg 531ns/call |
| 51 | } | ||||
| 52 | 102 | 42µs | my $heavy; | ||
| 53 | # Try very hard not to use {} and hence have to enter scope on the foreach | ||||
| 54 | # We bomb out of the loop with last as soon as heavy is set. | ||||
| 55 | 102 | 151µs | if ($args or $fail) { | ||
| 56 | ($heavy = (/\W/ or $args and not exists $export_cache->{$_} | ||||
| 57 | or $fail and @$fail and $_ eq $fail->[0])) and last | ||||
| 58 | 38 | 935µs | 163 | 166µs | foreach (@_); # spent 166µs making 163 calls to Exporter::CORE:match, avg 1µs/call |
| 59 | } else { | ||||
| 60 | ($heavy = /\W/) and last | ||||
| 61 | 64 | 1.24ms | 284 | 228µs | foreach (@_); # spent 228µs making 284 calls to Exporter::CORE:match, avg 803ns/call |
| 62 | } | ||||
| 63 | 102 | 174µs | 9 | 363µs | return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; # spent 363µs making 9 calls to Exporter::export, avg 40µs/call |
| 64 | local $SIG{__WARN__} = | ||||
| 65 | 93 | 912µs | sub {require Carp; &Carp::carp} if not $SIG{__WARN__}; | ||
| 66 | # shortcut for the common case of no type character | ||||
| 67 | 93 | 2.88ms | *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; | ||
| 68 | } | ||||
| 69 | |||||
| 70 | # Default methods | ||||
| 71 | |||||
| 72 | sub export_fail { | ||||
| 73 | my $self = shift; | ||||
| 74 | @_; | ||||
| 75 | } | ||||
| 76 | |||||
| 77 | # Unfortunately, caller(1)[3] "does not work" if the caller is aliased as | ||||
| 78 | # *name = \&foo. Thus the need to create a lot of identical subroutines | ||||
| 79 | # Otherwise we could have aliased them to export(). | ||||
| 80 | |||||
| 81 | # spent 51µs (14+37) within Exporter::export_to_level which was called:
# once (14µs+37µs) by Class::Struct::import at line 57 of Class/Struct.pm | ||||
| 82 | 1 | 15µs | 2 | 211µs | goto &{as_heavy()}; # spent 174µs making 1 call to Exporter::Heavy::heavy_export_to_level
# spent 37µs making 1 call to Exporter::as_heavy |
| 83 | } | ||||
| 84 | |||||
| 85 | # spent 6.26ms (13µs+6.25) within Exporter::export_tags which was called:
# once (13µs+6.25ms) by Archive::Zip::BEGIN@14 at line 202 of File/Temp.pm | ||||
| 86 | 1 | 14µs | 2 | 6.29ms | goto &{as_heavy()}; # spent 6.25ms making 1 call to Exporter::as_heavy
# spent 47µs making 1 call to Exporter::Heavy::heavy_export_tags |
| 87 | } | ||||
| 88 | |||||
| 89 | # spent 33µs (10+23) within Exporter::export_ok_tags which was called:
# once (10µs+23µs) by Archive::Zip::BEGIN@37 at line 138 of Archive/Zip.pm | ||||
| 90 | 1 | 12µs | 2 | 106µs | goto &{as_heavy()}; # spent 82µs making 1 call to Exporter::Heavy::heavy_export_ok_tags
# spent 23µs making 1 call to Exporter::as_heavy |
| 91 | } | ||||
| 92 | |||||
| 93 | sub require_version { | ||||
| 94 | goto &{as_heavy()}; | ||||
| 95 | } | ||||
| 96 | |||||
| 97 | 1 | 20µs | 1; | ||
| 98 | __END__ | ||||
sub Exporter::CORE:match; # opcode | |||||
sub Exporter::CORE:subst; # opcode |