← Index
Performance Profile   « block view • line view • sub view »
For opac/opac-main.pl
  Run on Mon Aug 24 11:28:47 2009
Reported on Mon Aug 24 11:29:15 2009

File /usr/share/perl/5.10/Exporter.pm
Statements Executed 5653
Total Time 0.0195842 seconds
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
30429811437.2ms39.1msExporter::::importExporter::import
123313.53ms3.58msExporter::::as_heavyExporter::as_heavy
11043689µs2.15msExporter::::exportExporter::export
83362µs211µsExporter::::export_to_levelExporter::export_to_level
55552µs2.03msExporter::::export_ok_tagsExporter::export_ok_tags
0000s0sExporter::::__ANON__[:64]Exporter::__ANON__[:64]
0000s0sExporter::::export_failExporter::export_fail
0000s0sExporter::::export_tagsExporter::export_tags
0000s0sExporter::::require_versionExporter::require_version
LineStmts.Exclusive
Time
Avg.Code
1package Exporter;
2
3148µs48µsrequire 5.006;
4
5# Be lean.
6#use strict;
7#no strict 'refs';
8
91500ns500nsour $Debug = 0;
101300ns300nsour $ExportLevel = 0;
111600ns600nsour $Verbose ||= 0;
121500ns500nsour $VERSION = '5.62';
131500ns500nsour (%Cache);
14# Carp does this now for us, so we can finally live w/o Carp
15#$Carp::Internal{Exporter} = 1;
16
17
# spent 3.58ms (3.53+59µs) within Exporter::as_heavy which was called 123 times, avg 29µs/call: # 110 times (1.46ms+0s) by Exporter::export at line 27, avg 13µs/call # 8 times (148µs+0s) by Exporter::export_to_level at line 81, avg 19µs/call # 5 times (1.92ms+59µs) by Exporter::export_ok_tags at line 89, avg 396µs/call
sub as_heavy {
18123196µs2µs require Exporter::Heavy;
19 # Unfortunately, this does not work if the caller is aliased as *name = \&foo
20 # Thus the need to create a lot of identical subroutines
21123490µs4µs my $c = (caller(1))[3];
22123425µs3µs $c =~ s/.*:://;
23123452µs4µs \&{"Exporter::Heavy::heavy_$c"};
24}
25
26
# spent 2.15ms (689µs+1.46) within Exporter::export which was called 110 times, avg 20µs/call: # 98 times (617µs+1.33ms) by Exporter::import at line 62, avg 20µs/call # 8 times (46µs+81µs) by Exporter::Heavy::heavy_export_to_level at line 202 of /usr/share/perl/5.10/Exporter/Heavy.pm, avg 16µs/call # 2 times (14µs+31µs) by FileHandle::import at line 73 of /usr/share/perl/5.10/FileHandle.pm, avg 22µs/call # 2 times (12µs+20µs) by FileHandle::import at line 81 of /usr/share/perl/5.10/FileHandle.pm, avg 16µs/call
sub export {
27110518µs5µs goto &{as_heavy()};
# spent 1.46ms making 110 calls to Exporter::as_heavy, avg 13µs/call
28}
29
30
# spent 39.1ms (37.2+1.92) within Exporter::import which was called 304 times, avg 129µs/call: # 7 times (5.95ms+58µs) by POSIX::import at line 28 of /usr/lib/perl/5.10/POSIX.pm, avg 858µs/call # once (825µs+0s) at line 54 of /usr/share/perl5/Mail/Sendmail.pm # once (555µs+27µs) at line 100 of /usr/lib/perl5/DBD/mysql.pm # once (494µs+18µs) at line 23 of /home/chris/git/koha.git/C4/Serials.pm # once (432µs+15µs) by DBD::mysql::db::BEGIN at line 187 of /usr/lib/perl5/DBD/mysql.pm # once (392µs+23µs) at line 27 of /home/chris/git/koha.git/C4/Auth.pm # once (373µs+29µs) at line 26 of /home/chris/git/koha.git/C4/Reserves.pm # once (382µs+15µs) at line 30 of /home/chris/git/koha.git/opac/opac-main.pl # once (363µs+30µs) at line 24 of /home/chris/git/koha.git/C4/Overdues.pm # once (393µs+0s) at line 12 of /usr/share/perl5/Compress/Zlib.pm # once (371µs+15µs) at line 31 of /home/chris/git/koha.git/C4/VirtualShelves.pm # once (352µs+31µs) at line 22 of /home/chris/git/koha.git/C4/Search.pm # once (362µs+15µs) at line 27 of /home/chris/git/koha.git/C4/Serials.pm # once (330µs+16µs) at line 27 of /home/chris/git/koha.git/C4/Circulation.pm # once (326µs+15µs) at line 24 of /home/chris/git/koha.git/C4/Items.pm # once (309µs+29µs) at line 22 of /home/chris/git/koha.git/C4/Branch.pm # once (312µs+26µs) at line 26 of /home/chris/git/koha.git/C4/XSLT.pm # once (316µs+16µs) at line 27 of /home/chris/git/koha.git/C4/XSLT.pm # once (311µs+17µs) at line 25 of /home/chris/git/koha.git/C4/ClassSource.pm # once (313µs+14µs) at line 30 of /home/chris/git/koha.git/C4/Members.pm # once (291µs+24µs) at line 29 of /home/chris/git/koha.git/C4/Biblio.pm # once (291µs+19µs) at line 26 of /home/chris/git/koha.git/C4/ClassSortRoutine.pm # once (283µs+25µs) at line 12 of /usr/local/lib/perl/5.10.0/XML/LibXML.pm # once (287µs+16µs) at line 28 of /home/chris/git/koha.git/C4/Auth.pm # once (285µs+17µs) at line 23 of /home/chris/git/koha.git/C4/Items.pm # once (282µs+16µs) at line 29 of /home/chris/git/koha.git/C4/VirtualShelves.pm # once (283µs+16µs) at line 23 of /home/chris/git/koha.git/C4/Search.pm # once (281µs+15µs) at line 26 of /home/chris/git/koha.git/C4/Serials.pm # once (280µs+16µs) at line 26 of /home/chris/git/koha.git/C4/Circulation.pm # once (272µs+21µs) at line 27 of /home/chris/git/koha.git/C4/Members.pm # once (235µs+19µs) by IO::Compress::Zlib::Extra::BEGIN at line 13 of /usr/share/perl5/IO/Compress/Zlib/Extra.pm # once (225µs+27µs) at line 25 of /home/chris/git/koha.git/C4/Circulation.pm # once (232µs+16µs) at line 16 of /usr/share/perl5/IO/Uncompress/Gunzip.pm # once (221µs+20µs) by Compress::Zlib::BEGIN at line 455 of /usr/share/perl5/Compress/Zlib.pm # once (217µs+24µs) by MARC::Charset::Code::BEGIN at line 8 of /usr/share/perl5/MARC/Charset/Code.pm # once (216µs+19µs) at line 15 of /usr/share/perl5/IO/Compress/Gzip.pm # once (204µs+26µs) at line 24 of /home/chris/git/koha.git/C4/XSLT.pm # once (226µs+0s) at line 8 of /usr/share/perl5/IO/Uncompress/RawInflate.pm # once (205µs+20µs) by XML::LibXML::NamedNodeMap::BEGIN at line 1526 of /usr/local/lib/perl/5.10.0/XML/LibXML.pm # once (199µs+25µs) by main::BEGIN at line 32 of /home/chris/git/koha.git/opac/opac-main.pl # once (204µs+16µs) at line 28 of /home/chris/git/koha.git/C4/Members.pm # once (177µs+28µs) at line 11 of /usr/share/perl5/IO/Compress/RawDeflate.pm # once (170µs+28µs) at line 30 of /home/chris/git/koha.git/C4/Auth.pm # once (196µs+0s) at line 13 of /usr/share/perl5/IO/Compress/Gzip.pm # once (177µs+18µs) by MARC::Charset::BEGIN at line 14 of /usr/share/perl5/MARC/Charset.pm # once (179µs+16µs) at line 39 of /usr/share/perl5/MARC/Charset/Table.pm # once (193µs+0s) by IO::Seekable::BEGIN at line 12 of /usr/lib/perl/5.10/IO/Seekable.pm # once (184µs+0s) at line 37 of /usr/share/perl5/MARC/Charset/Table.pm # once (183µs+0s) at line 39 of /usr/share/perl/5.10/FileHandle.pm # once (166µs+15µs) at line 29 of /home/chris/git/koha.git/C4/Search.pm # once (164µs+16µs) at line 14 of /usr/share/perl5/IO/Compress/Gzip.pm # once (180µs+0s) by XML::LibXML::SAX::BEGIN at line 16 of /usr/local/lib/perl/5.10.0/XML/LibXML/SAX.pm # once (177µs+0s) at line 15 of /usr/share/perl5/Cache/Memcached.pm # once (159µs+14µs) at line 29 of /home/chris/git/koha.git/C4/Items.pm # once (141µs+29µs) by C4::Heading::BEGIN at line 25 of /home/chris/git/koha.git/C4/Heading.pm # once (149µs+21µs) at line 30 of /home/chris/git/koha.git/C4/Reserves.pm # once (167µs+0s) at line 9 of /usr/share/perl5/IO/Compress/Base.pm # once (167µs+0s) at line 25 of /home/chris/git/koha.git/C4/XSLT.pm # once (166µs+0s) at line 17 of /usr/share/perl5/IO/Uncompress/Base.pm # once (139µs+27µs) at line 30 of /home/chris/git/koha.git/C4/Serials.pm # once (144µs+22µs) at line 32 of /home/chris/git/koha.git/C4/Circulation.pm # once (145µs+15µs) at line 27 of /home/chris/git/koha.git/C4/Items.pm # once (159µs+0s) at line 11 of /usr/share/perl5/Compress/Zlib.pm # once (158µs+0s) at line 13 of /usr/share/perl5/MARC/File/XML.pm # once (140µs+17µs) at line 32 of /home/chris/git/koha.git/C4/Biblio.pm # once (154µs+0s) at line 20 of /usr/share/perl5/IO/Uncompress/Base.pm # once (126µs+27µs) at line 23 of /home/chris/git/koha.git/C4/Koha.pm # once (152µs+0s) at line 19 of /usr/share/perl5/Cache/Memcached.pm # once (152µs+0s) at line 26 of /usr/lib/perl/5.10/IO/File.pm # once (131µs+20µs) at line 25 of /home/chris/git/koha.git/C4/Serials.pm # once (121µs+29µs) at line 26 of /home/chris/git/koha.git/opac/opac-main.pl # once (124µs+26µs) at line 26 of /home/chris/git/koha.git/C4/Auth.pm # once (148µs+0s) at line 11 of /usr/share/perl5/IO/Compress/Base.pm # once (121µs+26µs) at line 7 of /usr/share/perl5/IO/Uncompress/Adapter/Inflate.pm # once (147µs+0s) at line 214 of /usr/share/perl5/Date/Manip.pm # once (127µs+18µs) by IO::Compress::RawDeflate::getZlibParams at line 145 of /usr/share/perl5/IO/Compress/RawDeflate.pm # once (124µs+19µs) by IO::Uncompress::Gunzip::BEGIN or IO::Uncompress::Gunzip::getExtraParams at line 50 of /usr/share/perl5/IO/Uncompress/Gunzip.pm # once (123µs+21µs) at line 5 of /home/chris/git/koha.git/C4/Message.pm # once (126µs+15µs) at line 28 of /home/chris/git/koha.git/opac/opac-main.pl # once (114µs+26µs) at line 26 of /home/chris/git/koha.git/C4/Members.pm # once (124µs+15µs) at line 26 of /home/chris/git/koha.git/C4/Overdues.pm # once (138µs+0s) at line 28 of /home/chris/git/koha.git/C4/Circulation.pm # once (137µs+0s) at line 13 of /usr/lib/perl/5.10/POSIX.pm # once (122µs+14µs) at line 29 of /home/chris/git/koha.git/C4/Members.pm # once (119µs+18µs) at line 15 of /usr/share/perl5/IO/Uncompress/Gunzip.pm # once (119µs+17µs) at line 9 of /usr/share/perl5/IO/Uncompress/RawInflate.pm # once (134µs+0s) at line 5 of /usr/lib/perl5/ZOOM.pm # once (119µs+14µs) at line 26 of /home/chris/git/koha.git/C4/Acquisition.pm # once (133µs+0s) at line 28 of /home/chris/git/koha.git/C4/Serials.pm # once (112µs+18µs) at line 35 of /home/chris/git/koha.git/C4/Reserves.pm # once (127µs+0s) at line 23 of /home/chris/git/koha.git/C4/Overdues.pm # once (108µs+18µs) at line 31 of /home/chris/git/koha.git/opac/opac-main.pl # once (102µs+24µs) at line 26 of /home/chris/git/koha.git/C4/ClassSource.pm # once (122µs+0s) at line 27 of /home/chris/git/koha.git/C4/Reserves.pm # once (97µs+22µs) at line 29 of /home/chris/git/koha.git/C4/Serials.pm # once (103µs+16µs) at line 28 of /home/chris/git/koha.git/C4/Reserves.pm # once (89µs+29µs) at line 25 of /home/chris/git/koha.git/C4/Stats.pm # once (116µs+0s) at line 25 of /home/chris/git/koha.git/C4/Accounts.pm # once (92µs+23µs) by DBD::mysql::dr::BEGIN at line 101 of /usr/lib/perl5/DBD/mysql.pm # once (91µs+23µs) at line 46 of /home/chris/git/koha.git/C4/Circulation.pm # once (96µs+17µs) at line 7 of /usr/share/perl5/IO/Compress/Adapter/Deflate.pm # once (97µs+15µs) at line 26 of /home/chris/git/koha.git/C4/Suggestions.pm # once (96µs+16µs) at line 45 of /usr/lib/perl/5.10/Storable.pm # once (97µs+15µs) at line 27 of /home/chris/git/koha.git/opac/opac-main.pl # once (106µs+0s) at line 29 of /home/chris/git/koha.git/C4/Auth.pm # once (106µs+0s) at line 29 of /home/chris/git/koha.git/opac/opac-main.pl # once (102µs+0s) at line 45 of /home/chris/git/koha.git/C4/Circulation.pm # once (79µs+22µs) at line 28 of /home/chris/git/koha.git/C4/Search.pm # once (85µs+15µs) at line 27 of /home/chris/git/koha.git/C4/Overdues.pm # once (99µs+0s) at line 24 of /home/chris/git/koha.git/C4/Dates.pm # once (75µs+24µs) at line 23 of /home/chris/git/koha.git/C4/Suggestions.pm # once (73µs+25µs) at line 24 of /home/chris/git/koha.git/C4/Letters.pm # once (81µs+15µs) at line 31 of /home/chris/git/koha.git/C4/Biblio.pm # once (76µs+19µs) at line 89 of /home/chris/git/koha.git/C4/Context.pm # once (95µs+0s) at line 27 of /usr/share/perl/5.10/CGI.pm # once (77µs+18µs) at line 28 of /home/chris/git/koha.git/C4/Letters.pm # once (78µs+16µs) at line 31 of /home/chris/git/koha.git/C4/Serials.pm # once (79µs+15µs) at line 30 of /home/chris/git/koha.git/C4/VirtualShelves.pm # once (77µs+16µs) at line 26 of /home/chris/git/koha.git/C4/Letters.pm # once (74µs+17µs) at line 24 of /home/chris/git/koha.git/C4/Circulation.pm # once (76µs+15µs) at line 28 of /home/chris/git/koha.git/C4/Items.pm # once (73µs+17µs) at line 90 of /home/chris/git/koha.git/C4/Context.pm # once (89µs+0s) by IO::Compress::Adapter::Deflate::BEGIN at line 9 of /usr/share/perl5/IO/Compress/Adapter/Deflate.pm # once (88µs+0s) at line 35 of /home/chris/git/koha.git/C4/Circulation.pm # once (69µs+17µs) at line 23 of /home/chris/git/koha.git/C4/Acquisition.pm # once (68µs+17µs) at line 23 of /home/chris/git/koha.git/C4/Accounts.pm # once (84µs+0s) at line 32 of /home/chris/git/koha.git/C4/Output.pm # once (66µs+17µs) at line 21 of /home/chris/git/koha.git/C4/Dates.pm # once (67µs+15µs) at line 32 of /home/chris/git/koha.git/C4/Serials.pm # once (81µs+0s) at line 29 of /home/chris/git/koha.git/C4/XSLT.pm # once (80µs+0s) at line 10 of /usr/share/perl5/MARC/Charset.pm # once (79µs+0s) by MARC::File::Encode::BEGIN at line 22 of /usr/share/perl5/MARC/File/Encode.pm # once (63µs+15µs) at line 28 of /home/chris/git/koha.git/C4/Overdues.pm # once (76µs+0s) at line 38 of /home/chris/git/koha.git/C4/Reserves.pm # once (75µs+0s) at line 5 of /usr/share/perl5/MARC/Field.pm # once (74µs+0s) at line 43 of /usr/share/perl5/XML/Simple.pm # once (73µs+0s) at line 33 of /home/chris/git/koha.git/C4/Biblio.pm # once (72µs+0s) at line 29 of /home/chris/git/koha.git/C4/Letters.pm # once (70µs+0s) at line 36 of /home/chris/git/koha.git/C4/Reserves.pm # once (70µs+0s) at line 15 of /usr/local/lib/perl/5.10.0/XML/LibXML/SAX.pm # once (70µs+0s) at line 11 of /usr/share/perl5/MARC/Charset.pm # once (67µs+0s) at line 18 of /usr/share/perl/5.10/CGI/Cookie.pm # once (66µs+0s) at line 4 of /usr/share/perl/5.10/Time/Local.pm # once (66µs+0s) at line 8 of /usr/lib/perl5/HTML/Template/Pro.pm # once (65µs+0s) at line 45 of /home/chris/git/koha.git/C4/Cache.pm # once (64µs+0s) at line 6 of /usr/share/perl5/CGI/Session/Driver/mysql.pm # once (64µs+0s) at line 15 of /usr/local/share/perl/5.10.0/XML/SAX.pm # once (64µs+0s) by Mail::Address::BEGIN at line 11 of /usr/share/perl5/Mail/Address.pm # once (64µs+0s) at line 20 of /usr/lib/perl/5.10/Data/Dumper.pm # once (62µs+0s) at line 3 of /usr/share/perl/5.10/CGI.pm # once (62µs+0s) by MARC::Charset::Table::BEGIN at line 40 of /usr/share/perl5/MARC/Charset/Table.pm # once (61µs+0s) at line 5 of /usr/lib/perl/5.10/Hash/Util.pm # once (61µs+0s) at line 19 of /home/chris/git/koha.git/C4/Dates.pm # once (60µs+0s) at line 10 of /usr/local/lib/perl/5.10.0/XML/LibXML.pm # once (60µs+0s) by IO::Uncompress::Adapter::Inflate::BEGIN at line 8 of /usr/share/perl5/IO/Uncompress/Adapter/Inflate.pm # once (59µs+0s) at line 15 of /usr/share/perl5/MARC/File/SAX.pm # once (59µs+0s) at line 9 of /usr/share/perl5/Compress/Zlib.pm # once (58µs+0s) at line 21 of /home/chris/git/koha.git/C4/Auth.pm # once (57µs+0s) at line 6 of /home/chris/git/koha.git/C4/Message.pm # once (57µs+0s) by XML::LibXML::Element::BEGIN at line 1178 of /usr/local/lib/perl/5.10.0/XML/LibXML.pm # once (56µs+0s) by IO::Compress::Base::Common::BEGIN at line 503 of /usr/share/perl5/IO/Compress/Base/Common.pm # once (55µs+0s) by XML::SAX::Exception::BEGIN at line 10 of /usr/local/share/perl/5.10.0/XML/SAX/Exception.pm # once (55µs+0s) at line 23 of /home/chris/git/koha.git/C4/Members.pm # once (55µs+0s) at line 212 of /usr/share/perl5/Date/Manip.pm # once (54µs+0s) by Time::tm::BEGIN at line 3 of (eval 0)[/usr/share/perl/5.10/Class/Struct.pm:231] at line 231 of /usr/share/perl/5.10/Class/Struct.pm # once (54µs+0s) at line 23 of /usr/share/perl5/IO/Uncompress/Base.pm # once (54µs+0s) by XML::LibXSLT::StylesheetWrapper::BEGIN at line 298 of /usr/lib/perl5/XML/LibXSLT.pm # once (53µs+0s) at line 21 of /usr/share/perl5/IO/Uncompress/Base.pm # once (53µs+0s) at line 47 of /usr/lib/perl/5.10/Encode.pm # once (53µs+0s) at line 7 of /usr/local/share/perl/5.10.0/Memoize/Memcached.pm # once (53µs+0s) at line 13 of /usr/local/share/perl/5.10.0/Memoize/Memcached.pm # once (53µs+0s) by MIME::QuotedPrint::BEGIN at line 14 of /usr/lib/perl/5.10/MIME/QuotedPrint.pm # once (53µs+0s) at line 5 of /usr/share/perl/5.10/Tie/Hash.pm # once (52µs+0s) at line 10 of /usr/share/perl5/MARC/File/XML.pm # once (52µs+0s) at line 32 of /home/chris/git/koha.git/C4/Languages.pm # once (52µs+0s) at line 24 of /home/chris/git/koha.git/C4/Koha.pm # once (52µs+0s) by MARC::File::SAX::BEGIN at line 16 of /usr/share/perl5/MARC/File/SAX.pm # once (52µs+0s) at line 563 of /usr/share/perl5/MIME/Lite.pm # once (52µs+0s) at line 12 of /usr/lib/perl/5.10/Unicode/Normalize.pm # once (52µs+0s) at line 5 of /usr/local/lib/perl/5.10.0/XML/LibXML/Error.pm # once (51µs+0s) at line 22 of /home/chris/git/koha.git/C4/Calendar.pm # once (51µs+0s) at line 6 of /usr/lib/perl/5.10/Socket.pm # once (51µs+0s) at line 8 of /usr/lib/perl/5.10/IO/File.pm # once (50µs+0s) at line 31 of /home/chris/git/koha.git/C4/Items.pm # once (50µs+0s) at line 22 of /home/chris/git/koha.git/C4/Serials.pm # once (50µs+0s) at line 22 of /home/chris/git/koha.git/C4/Cache/Memcached.pm # once (49µs+0s) at line 489 of /usr/lib/perl5/XML/LibXSLT.pm # once (49µs+0s) at line 7 of /usr/share/perl5/Compress/Zlib.pm # once (49µs+0s) at line 8 of /usr/local/lib/perl/5.10.0/XML/LibXML/XPathContext.pm # once (49µs+0s) at line 3 of /usr/share/perl5/YAML.pm # once (49µs+0s) at line 9 of /usr/lib/perl/5.10/IO/File.pm # once (49µs+0s) at line 27 of /home/chris/git/koha.git/C4/VirtualShelves.pm # once (48µs+0s) at line 16 of /usr/share/perl5/IO/Compress/Base.pm # once (48µs+0s) at line 7 of /usr/share/perl5/IO/Compress/Base/Common.pm # once (48µs+0s) by IO::Compress::RawDeflate::BEGIN at line 178 of /usr/share/perl5/IO/Compress/RawDeflate.pm # once (47µs+0s) at line 11 of /usr/share/perl/5.10/Class/Struct.pm # once (47µs+0s) by C4::ItemCirculationAlertPreference::BEGIN at line 23 of /home/chris/git/koha.git/C4/ItemCirculationAlertPreference.pm # once (47µs+0s) at line 14 of /usr/lib/perl5/XML/LibXSLT.pm # once (47µs+0s) by IO::Compress::RawDeflate::getZlibParams at line 146 of /usr/share/perl5/IO/Compress/RawDeflate.pm # once (47µs+0s) at line 6 of /usr/share/perl5/CGI/Session.pm # once (46µs+0s) at line 5 of /usr/share/perl/5.10/Carp/Heavy.pm # once (46µs+0s) at line 21 of /home/chris/git/koha.git/C4/Heading.pm # once (46µs+0s) at line 7 of /usr/lib/perl5/Compress/Raw/Zlib.pm # once (46µs+0s) at line 8 of /usr/share/perl5/CGI/Session/Driver.pm # once (46µs+0s) at line 8 of /usr/local/share/perl/5.10.0/Memoize/Memcached.pm # once (46µs+0s) at line 13 of /usr/share/perl5/Compress/Zlib.pm # once (46µs+0s) at line 22 of /home/chris/git/koha.git/C4/Overdues.pm # once (46µs+0s) at line 30 of /home/chris/git/koha.git/C4/Search.pm # once (46µs+0s) by XML::LibXML::Error::_report_error at line 118 of /usr/local/lib/perl/5.10.0/XML/LibXML/Error.pm # once (46µs+0s) at line 17 of /usr/share/perl5/IO/Compress/Base.pm # once (45µs+0s) at line 22 of /home/chris/git/koha.git/C4/Cache/FastMemcached.pm # once (45µs+0s) at line 13 of /usr/share/perl5/MARC/File/USMARC.pm # once (45µs+0s) by IO::Compress::Base::seek or IO::Compress::Base::BEGIN at line 845 of /usr/share/perl5/IO/Compress/Base.pm # once (44µs+0s) at line 27 of /home/chris/git/koha.git/C4/Acquisition.pm # once (44µs+0s) at line 6 of /usr/share/perl5/Cache/Memcached/GetParser.pm # once (44µs+0s) by Cache::Memcached::Fast::BEGIN at line 133 of /usr/local/lib/perl/5.10.0/Cache/Memcached/Fast.pm # once (44µs+0s) at line 25 of /home/chris/git/koha.git/C4/Items.pm # once (44µs+0s) at line 17 of /usr/local/share/perl/5.10.0/XML/SAX.pm # once (44µs+0s) at line 14 of /usr/share/perl5/Compress/Zlib.pm # once (43µs+0s) by SelectSaver::BEGIN at line 7 of /usr/share/perl/5.10/SelectSaver.pm # once (43µs+0s) at line 56 of /usr/share/perl5/Mail/Sendmail.pm # once (43µs+0s) at line 5 of /usr/lib/perl/5.10/Sys/Hostname.pm # once (43µs+0s) at line 27 of /usr/share/perl/5.10/Memoize.pm # once (43µs+0s) at line 18 of /usr/share/perl5/MARC/File/USMARC.pm # once (43µs+0s) at line 6 of /usr/share/perl/5.10/SelectSaver.pm # once (42µs+0s) at line 132 of /usr/local/lib/perl/5.10.0/Cache/Memcached/Fast.pm # once (42µs+0s) at line 3 of /usr/share/perl5/Sys/Hostname/Long.pm # once (42µs+0s) at line 5 of /usr/share/perl5/YAML.pm # once (42µs+0s) at line 30 of /home/chris/git/koha.git/C4/Letters.pm # once (42µs+0s) at line 6 of /usr/lib/perl/5.10/IO/Handle.pm # once (42µs+0s) at line 24 of /usr/share/perl5/IO/Uncompress/Base.pm # once (42µs+0s) at line 8 of /usr/share/perl5/IO/Compress/Base/Common.pm # once (42µs+0s) at line 8 of /usr/share/perl5/CGI/Session/Driver/DBI.pm # once (42µs+0s) at line 6 of /usr/lib/perl/5.10/IO/Seekable.pm # once (42µs+0s) by C4::Message::BEGIN at line 7 of /home/chris/git/koha.git/C4/Message.pm # once (42µs+0s) at line 7 of /usr/lib/perl/5.10/IO/Handle.pm # once (42µs+0s) at line 6 of /usr/share/perl5/Class/Factory/Util.pm # once (42µs+0s) at line 23 of /home/chris/git/koha.git/C4/Charset.pm # once (42µs+0s) at line 55 of /usr/share/perl5/Mail/Sendmail.pm # once (42µs+0s) at line 24 of /home/chris/git/koha.git/C4/Search.pm # once (42µs+0s) at line 11 of /usr/lib/perl/5.10/IO/File.pm # once (41µs+0s) at line 5 of /usr/share/perl5/File/GlobMapper.pm # once (41µs+0s) at line 18 of /usr/share/perl5/Cache/Memcached.pm # once (41µs+0s) at line 15 of /usr/share/perl5/MARC/Record.pm # once (40µs+0s) at line 12 of /usr/share/perl5/MARC/File/XML.pm # once (40µs+0s) at line 6 of /usr/share/perl5/MARC/Charset/Code.pm # once (40µs+0s) at line 27 of /home/chris/git/koha.git/C4/Log.pm # once (40µs+0s) at line 11 of /usr/share/perl5/IO/Uncompress/RawInflate.pm # once (40µs+0s) at line 86 of /home/chris/git/koha.git/C4/Context.pm # once (40µs+0s) at line 601 of /usr/share/perl5/MIME/Lite.pm # once (40µs+0s) at line 10 of /usr/local/share/perl/5.10.0/XML/SAX/ParserFactory.pm # once (39µs+0s) at line 6 of /usr/lib/perl/5.10/IO.pm # once (39µs+0s) at line 12 of /usr/share/perl5/IO/Compress/Base.pm # once (39µs+0s) at line 24 of /home/chris/git/koha.git/C4/Members.pm # once (39µs+0s) at line 57 of /usr/share/perl5/Mail/Sendmail.pm # once (38µs+0s) by XML::LibXML::Error::dump or XML::LibXML::Error::BEGIN at line 189 of /usr/local/lib/perl/5.10.0/XML/LibXML/Error.pm # once (38µs+0s) at line 14 of /usr/share/perl5/IO/Uncompress/Gunzip.pm # once (38µs+0s) at line 27 of /home/chris/git/koha.git/C4/Cache/FastMemcached.pm # once (38µs+0s) at line 3 of /usr/share/perl5/YAML/Node.pm # once (38µs+0s) at line 24 of /home/chris/git/koha.git/C4/NewsChannels.pm # once (38µs+0s) at line 27 of /home/chris/git/koha.git/C4/Search.pm # once (38µs+0s) at line 25 of /home/chris/git/koha.git/C4/Members.pm # once (38µs+0s) by Mail::Sendmail::BEGIN at line 2 of (eval 0)[/usr/share/perl5/Mail/Sendmail.pm:64] at line 64 of /usr/share/perl5/Mail/Sendmail.pm # once (37µs+0s) at line 30 of /home/chris/git/koha.git/C4/Biblio.pm # once (37µs+0s) at line 12 of /usr/share/perl5/IO/Uncompress/Gunzip.pm # once (37µs+0s) at line 27 of /home/chris/git/koha.git/C4/Suggestions.pm # once (36µs+0s) at line 5 of /usr/lib/perl/5.10/Encode/Alias.pm # once (36µs+0s) at line 23 of /home/chris/git/koha.git/C4/Calendar.pm # once (35µs+0s) at line 25 of /home/chris/git/koha.git/C4/Koha.pm # once (35µs+0s) by Hash::Util::BEGIN at line 8 of /usr/lib/perl/5.10/Hash/Util.pm # once (35µs+0s) at line 22 of /usr/share/perl5/IO/Uncompress/Base.pm # once (35µs+0s) at line 7 of /usr/share/perl5/MARC/Charset/Code.pm # once (35µs+0s) at line 48 of /home/chris/git/koha.git/C4/Circulation.pm # once (34µs+0s) at line 24 of /home/chris/git/koha.git/C4/Acquisition.pm # once (34µs+0s) at line 37 of /home/chris/git/koha.git/C4/Reserves.pm # once (34µs+0s) at line 6 of /usr/share/perl5/CGI/Session/ID/md5.pm # once (34µs+0s) at line 14 of /usr/share/perl5/MARC/File/XML.pm # once (34µs+0s) at line 23 of /home/chris/git/koha.git/C4/Biblio.pm # once (34µs+0s) at line 23 of /home/chris/git/koha.git/C4/Debug.pm # once (32µs+0s) at line 20 of /usr/local/lib/perl/5.10.0/XML/LibXML.pm # once (32µs+0s) at line 6 of /usr/share/perl5/Sys/Hostname/Long.pm # once (31µs+0s) at line 25 of /home/chris/git/koha.git/C4/Cache/FastMemcached.pm # once (31µs+0s) at line 24 of /home/chris/git/koha.git/C4/Charset.pm # once (30µs+0s) at line 10 of /usr/share/perl5/IO/Compress/RawDeflate.pm # once (30µs+0s) at line 11 of /usr/share/perl5/IO/Compress/Gzip.pm # once (30µs+0s) at line 7 of /usr/share/perl5/MARC/File/XML.pm # once (29µs+0s) at line 7 of /usr/share/perl5/CGI/Session/Driver/DBI.pm # once (28µs+0s) at line 13 of /usr/share/perl5/MARC/File/SAX.pm # once (27µs+0s) at line 26 of /home/chris/git/koha.git/C4/Cache/FastMemcached.pm # once (27µs+0s) at line 13 of /usr/lib/perl5/YAML/Syck.pm # once (26µs+0s) at line 21 of /home/chris/git/koha.git/C4/Heading/MARC21.pm # once (25µs+0s) at line 26 of /usr/share/perl5/MARC/Record.pm # once (25µs+0s) at line 30 of /home/chris/git/koha.git/C4/Circulation.pm # once (25µs+0s) at line 8 of /usr/share/perl5/Compress/Zlib.pm # once (25µs+0s) at line 26 of /home/chris/git/koha.git/C4/Items.pm # once (24µs+0s) at line 22 of /home/chris/git/koha.git/C4/Dates.pm # once (24µs+0s) at line 25 of /home/chris/git/koha.git/C4/Acquisition.pm # once (23µs+0s) at line 28 of /usr/share/perl/5.10/Memoize.pm
sub import {
31309263µs852ns my $pkg = shift;
32309270µs875ns my $callpkg = caller($ExportLevel);
33
34309201µs650ns if ($pkg eq "Exporter" and @_ and $_[0] eq "import") {
35 *{$callpkg."::import"} = \&import;
36 return;
37 }
38
39 # We *need* to treat @{"$pkg\::EXPORT_FAIL"} since Carp uses it :-(
403091.51ms5µs my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"});
41309276µs894ns return export $pkg, $callpkg, @_
42 if $Verbose or $Debug or @$fail > 1;
43309386µs1µs my $export_cache = ($Cache{$pkg} ||= {});
443091.89ms6µs my $args = @_ or @_ = @$exports;
45
46309108µs351ns local $_;
47309216µs699ns if ($args and not %$export_cache) {
48 s/^&//, $export_cache->{$_} = 1
49721.68ms23µs foreach (@$exports, @{"$pkg\::EXPORT_OK"});
50 }
5130960µs193ns my $heavy;
52 # Try very hard not to use {} and hence have to enter scope on the foreach
53 # We bomb out of the loop with last as soon as heavy is set.
54309213µs689ns if ($args or $fail) {
55 ($heavy = (/\W/ or $args and not exists $export_cache->{$_}
56 or @$fail and $_ eq $fail->[0])) and last
576182.03ms3µs foreach (@_);
58 } else {
59 ($heavy = /\W/) and last
60 foreach (@_);
61 }
62309858µs3µs return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy;
# spent 1.94ms making 98 calls to Exporter::export, avg 20µs/call
63 local $SIG{__WARN__} =
642111.47ms7µs sub {require Carp; &Carp::carp};
65 # shortcut for the common case of no type character
664225.93ms14µs *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
67}
68
69# Default methods
70
71sub export_fail {
72 my $self = shift;
73 @_;
74}
75
76# Unfortunately, caller(1)[3] "does not work" if the caller is aliased as
77# *name = \&foo. Thus the need to create a lot of identical subroutines
78# Otherwise we could have aliased them to export().
79
80
# spent 211µs (62+148) within Exporter::export_to_level which was called 8 times, avg 26µs/call: # 5 times (36µs+78µs) by XML::LibXML::import at line 154 of /usr/local/lib/perl/5.10.0/XML/LibXML.pm, avg 23µs/call # 2 times (18µs+51µs) by Memoize::Memcached::import at line 145 of /usr/local/share/perl/5.10.0/Memoize/Memcached.pm, avg 34µs/call # once (9µs+19µs) by Class::Struct::import at line 57 of /usr/share/perl/5.10/Class/Struct.pm
sub export_to_level {
81852µs6µs goto &{as_heavy()};
# spent 148µs making 8 calls to Exporter::as_heavy, avg 19µs/call
82}
83
84sub export_tags {
85 goto &{as_heavy()};
86}
87
88
# spent 2.03ms (52µs+1.98) within Exporter::export_ok_tags which was called 5 times, avg 406µs/call: # once (10µs+1.91ms) at line 261 of /usr/lib/perl5/DBI.pm # once (13µs+25µs) at line 28 of /usr/share/perl5/IO/Uncompress/RawInflate.pm # once (10µs+17µs) at line 37 of /usr/share/perl5/IO/Compress/Gzip.pm # once (9µs+16µs) at line 27 of /usr/share/perl5/IO/Uncompress/Gunzip.pm # once (10µs+15µs) at line 65 of /usr/share/perl5/IO/Compress/RawDeflate.pm
sub export_ok_tags {
89538µs8µs goto &{as_heavy()};
# spent 1.98ms making 5 calls to Exporter::as_heavy, avg 396µs/call
90}
91
92sub require_version {
93 goto &{as_heavy()};
94}
95
9616µs6µs1;
97__END__
98