| Filename | /usr/local/lib/perl5/5.24/Exporter.pm |
| Statements | Executed 10001 statements in 139ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 282 | 276 | 122 | 111ms | 156ms | Exporter::import |
| 75 | 2 | 1 | 6.15ms | 7.19ms | Exporter::as_heavy |
| 2371 | 2 | 1 | 5.50ms | 5.50ms | Exporter::CORE:match (opcode) |
| 1607 | 2 | 1 | 3.48ms | 3.48ms | Exporter::CORE:subst (opcode) |
| 58 | 3 | 3 | 1.06ms | 7.40ms | Exporter::export |
| 17 | 5 | 5 | 340µs | 1.20ms | Exporter::export_to_level |
| 0 | 0 | 0 | 0s | 0s | Exporter::__ANON__[:64] |
| 0 | 0 | 0 | 0s | 0s | Exporter::export_fail |
| 0 | 0 | 0 | 0s | 0s | Exporter::export_ok_tags |
| 0 | 0 | 0 | 0s | 0s | Exporter::export_tags |
| 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 | 16µs | require 5.006; | ||
| 4 | |||||
| 5 | # Be lean. | ||||
| 6 | #use strict; | ||||
| 7 | #no strict 'refs'; | ||||
| 8 | |||||
| 9 | 1 | 2µs | our $Debug = 0; | ||
| 10 | 1 | 1µs | our $ExportLevel = 0; | ||
| 11 | 1 | 2µs | our $Verbose ||= 0; | ||
| 12 | 1 | 2µs | our $VERSION = '5.72'; | ||
| 13 | our (%Cache); | ||||
| 14 | |||||
| 15 | sub as_heavy { | ||||
| 16 | 75 | 477µs | 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 | 75 | 916µs | my $c = (caller(1))[3]; | ||
| 20 | 75 | 1.39ms | 75 | 808µs | $c =~ s/.*:://; # spent 808µs making 75 calls to Exporter::CORE:subst, avg 11µs/call |
| 21 | 150 | 1.29ms | \&{"Exporter::Heavy::heavy_$c"}; | ||
| 22 | } | ||||
| 23 | |||||
| 24 | # spent 7.40ms (1.06+6.34) within Exporter::export which was called 58 times, avg 128µs/call:
# 31 times (585µs+5.06ms) by Exporter::import at line 62, avg 182µs/call
# 17 times (262µs+765µs) by Exporter::Heavy::heavy_export_to_level at line 219 of Exporter/Heavy.pm, avg 60µs/call
# 10 times (212µs+512µs) by IO::Socket::import at line 37 of IO/Socket.pm, avg 72µs/call | ||||
| 25 | 116 | 1.46ms | 116 | 99.1ms | goto &{as_heavy()}; # spent 92.8ms making 58 calls to Exporter::Heavy::heavy_export, avg 1.60ms/call
# spent 6.34ms making 58 calls to Exporter::as_heavy, avg 109µs/call |
| 26 | } | ||||
| 27 | |||||
| 28 | # spent 156ms (111+44.8) within Exporter::import which was called 282 times, avg 553µs/call:
# 6 times (8.53ms+2.72ms) by POSIX::import at line 30 of POSIX.pm, avg 1.87ms/call
# 2 times (177µs+4.29ms) by Getopt::Long::import at line 118 of Getopt/Long.pm, avg 2.23ms/call
# once (90µs+10.9ms) by Sys::Syslog::BEGIN@9 at line 9 of Sys/Syslog.pm
# once (5.93ms+334µs) by Net::SMTP::BEGIN@22 at line 22 of Net/SMTP.pm
# once (5.66ms+326µs) by Mail::SpamAssassin::DnsResolver::BEGIN@50 at line 50 of Mail/SpamAssassin/DnsResolver.pm
# once (5.54ms+335µs) by IO::Socket::BEGIN@13 at line 13 of IO/Socket.pm
# once (5.39ms+330µs) by NetAddr::IP::UtilPolluted::BEGIN@198 at line 198 of NetAddr/IP/Util.pm
# once (5.14ms+322µs) by IO::Socket::INET::BEGIN@12 at line 12 of IO/Socket/INET.pm
# once (4.73ms+329µs) by Net::DNS::Resolver::Base::BEGIN@1 at line 1 of (eval 16)[Net/DNS/Resolver/Base.pm:29]
# once (4.30ms+335µs) by Net::SSLeay::BEGIN@19 at line 19 of Net/SSLeay.pm
# once (97µs+3.01ms) by Razor2::Client::Core::BEGIN@16 at line 16 of Razor2/Client/Core.pm
# once (96µs+2.99ms) by Mail::SpamAssassin::Locker::UnixNFSSafe::BEGIN@31 at line 31 of Mail/SpamAssassin/Locker/UnixNFSSafe.pm
# once (2.23ms+604µs) by Net::Patricia::BEGIN@34 at line 34 of Net/Patricia.pm
# once (2.47ms+333µs) by POSIX::BEGIN@11 at line 17 of POSIX.pm
# once (2.38ms+139µs) by Mail::SpamAssassin::Plugin::Hashcash::BEGIN@96 at line 96 of Mail/SpamAssassin/Plugin/Hashcash.pm
# once (2.33ms+145µs) by Mail::SpamAssassin::Locker::BEGIN@24 at line 24 of Mail/SpamAssassin/Locker.pm
# once (2.32ms+127µs) by Mail::SpamAssassin::Util::BEGIN@77 at line 77 of Mail/SpamAssassin/Util.pm
# once (2.29ms+128µs) by Digest::SHA::BEGIN@8 at line 8 of Digest/SHA.pm
# once (2.17ms+136µs) by Mail::SpamAssassin::DBBasedAddrList::BEGIN@24 at line 24 of Mail/SpamAssassin/DBBasedAddrList.pm
# once (1.35ms+126µs) by Mail::SpamAssassin::BayesStore::DBM::BEGIN@25 at line 25 of Mail/SpamAssassin/BayesStore/DBM.pm
# once (1.19ms+177µs) by main::BEGIN@23 at line 23 of /usr/local/bin/sa-learn
# once (1.21ms+66µs) by Razor2::Syslog::BEGIN@5 at line 5 of Razor2/Syslog.pm
# once (1.10ms+60µs) by Razor2::Client::Agent::BEGIN@16 at line 147 of IO/File.pm
# once (220µs+913µs) by Mail::SpamAssassin::Conf::BEGIN@87 at line 87 of Mail/SpamAssassin/Conf.pm
# once (105µs+945µs) by Mail::SpamAssassin::Plugin::HeaderEval::BEGIN@29 at line 29 of Mail/SpamAssassin/Plugin/HeaderEval.pm
# once (932µs+65µs) by Mail::SpamAssassin::Plugin::Hashcash::BEGIN@108 at line 250 of DB_File.pm
# once (889µs+65µs) by Razor2::Logger::BEGIN@9 at line 9 of Razor2/Logger.pm
# once (837µs+65µs) by Razor2::Client::Agent::BEGIN@16 at line 16 of Razor2/Client/Agent.pm
# once (108µs+716µs) by Mail::SpamAssassin::Plugin::BodyEval::BEGIN@22 at line 22 of Mail/SpamAssassin/Plugin/BodyEval.pm
# once (716µs+107µs) by NetAddr::IP::Lite::BEGIN@9 at line 86 of NetAddr/IP/InetBase.pm
# once (83µs+730µs) by Mail::SpamAssassin::Plugin::MIMEEval::BEGIN@27 at line 27 of Mail/SpamAssassin/Plugin/MIMEEval.pm
# once (87µs+713µs) by Mail::SpamAssassin::Message::Metadata::BEGIN@57 at line 57 of Mail/SpamAssassin/Message/Metadata.pm
# once (97µs+695µs) by Mail::SpamAssassin::PerMsgStatus::BEGIN@59 at line 59 of Mail/SpamAssassin/PerMsgStatus.pm
# once (88µs+684µs) by Mail::SpamAssassin::ArchiveIterator::BEGIN@29 at line 29 of Mail/SpamAssassin/ArchiveIterator.pm
# once (108µs+652µs) by Mail::SpamAssassin::Plugin::Check::BEGIN@27 at line 27 of Mail/SpamAssassin/Plugin/Check.pm
# once (720µs+39µs) by IO::Socket::IP::BEGIN@19 at line 30 of IO/Socket/IP.pm
# once (118µs+622µs) by Net::DNS::Header::BEGIN@33 at line 33 of Net/DNS/Header.pm
# once (655µs+80µs) by Mail::SpamAssassin::Message::BEGIN@49 at line 50 of Mail/SpamAssassin/Message.pm
# once (93µs+637µs) by Mail::SpamAssassin::Message::Node::BEGIN@44 at line 44 of Mail/SpamAssassin/Message/Node.pm
# once (120µs+599µs) by Net::DNS::RR::OPT::BEGIN@23 at line 23 of Net/DNS/RR/OPT.pm
# once (93µs+624µs) by Mail::SpamAssassin::Message::BEGIN@57 at line 57 of Mail/SpamAssassin/Message.pm
# once (128µs+584µs) by Net::DNS::RR::BEGIN@41 at line 41 of Net/DNS/RR.pm
# once (92µs+618µs) by Mail::SpamAssassin::HTML::BEGIN@32 at line 32 of Mail/SpamAssassin/HTML.pm
# once (110µs+590µs) by Mail::SpamAssassin::Conf::Parser::BEGIN@138 at line 138 of Mail/SpamAssassin/Conf/Parser.pm
# once (109µs+533µs) by Net::DNS::Question::BEGIN@32 at line 32 of Net/DNS/Question.pm
# once (85µs+520µs) by Mail::SpamAssassin::Plugin::URIDNSBL::BEGIN@296 at line 296 of Mail/SpamAssassin/Plugin/URIDNSBL.pm
# once (542µs+61µs) by Pod::Text::BEGIN@33 at line 33 of Pod/Text.pm
# once (75µs+528µs) by Mail::SpamAssassin::PerMsgStatus::BEGIN@31 at line 31 of Mail/SpamAssassin/Dns.pm
# once (89µs+507µs) by Mail::SpamAssassin::Plugin::DNSEval::BEGIN@29 at line 29 of Mail/SpamAssassin/Plugin/DNSEval.pm
# once (80µs+488µs) by Mail::SpamAssassin::Message::Metadata::BEGIN@51.2 at line 51 of Mail/SpamAssassin/Message/Metadata/Received.pm
# once (88µs+473µs) by Mail::SpamAssassin::DnsResolver::BEGIN@47 at line 47 of Mail/SpamAssassin/DnsResolver.pm
# once (92µs+465µs) by Mail::SpamAssassin::Plugin::RelayEval::BEGIN@22 at line 22 of Mail/SpamAssassin/Plugin/RelayEval.pm
# once (479µs+23µs) by Razor2::Client::Core::BEGIN@26 at line 29 of Razor2/Client/Core.pm
# once (375µs+44µs) by Razor2::Client::Agent::BEGIN@18 at line 18 of Razor2/Client/Agent.pm
# once (379µs+29µs) by IO::Socket::INET6::BEGIN@28 at line 33 of IO/Socket/INET6.pm
# once (103µs+250µs) by main::BEGIN@25 at line 25 of /usr/local/bin/sa-learn
# once (291µs+58µs) by Mail::SpamAssassin::Conf::Parser::BEGIN@140 at line 140 of Mail/SpamAssassin/Conf/Parser.pm
# once (311µs+14µs) by IO::Socket::IP::BEGIN@34 at line 34 of IO/Socket/IP.pm
# once (120µs+199µs) by Net::SMTP::BEGIN@21 at line 21 of Net/SMTP.pm
# once (264µs+47µs) by IO::Socket::SSL::BEGIN@27 at line 30 of IO/Socket/SSL.pm
# once (279µs+19µs) by IO::Socket::SSL::BEGIN@22 at line 22 of IO/Socket/SSL.pm
# once (270µs+12µs) by IO::Socket::INET6::BEGIN@37 at line 40 of IO/Socket/INET6.pm
# once (271µs+8µs) by Data::Dumper::BEGIN@22 at line 22 of Data/Dumper.pm
# once (257µs+8µs) by Mail::SpamAssassin::Plugin::Hashcash::BEGIN@98 at line 98 of Mail/SpamAssassin/Plugin/Hashcash.pm
# once (246µs+9µs) by Mail::SpamAssassin::BEGIN@83 at line 83 of Mail/SpamAssassin.pm
# once (239µs+15µs) by Net::SMTP::BEGIN@20 at line 20 of Net/SMTP.pm
# once (239µs+8µs) by Sys::Syslog::BEGIN@7 at line 7 of Sys/Syslog.pm
# once (233µs+8µs) by Mail::SpamAssassin::AICache::BEGIN@40 at line 40 of Mail/SpamAssassin/AICache.pm
# once (228µs+8µs) by Net::DNS::Domain::BEGIN@41 at line 41 of Net/DNS/Domain.pm
# once (205µs+29µs) by Mail::SpamAssassin::Locker::UnixNFSSafe::BEGIN@28 at line 28 of Mail/SpamAssassin/Locker/UnixNFSSafe.pm
# once (225µs+7µs) by Mail::SpamAssassin::Plugin::BodyEval::BEGIN@21 at line 21 of Mail/SpamAssassin/Plugin/BodyEval.pm
# once (210µs+22µs) by Pod::Text::BEGIN@32 at line 32 of Pod/Text.pm
# once (223µs+8µs) by Mail::SpamAssassin::Plugin::SPF::BEGIN@37 at line 37 of Mail/SpamAssassin/Plugin/SPF.pm
# once (222µs+8µs) by IO::File::BEGIN@130 at line 130 of IO/File.pm
# once (218µs+11µs) by IO::Socket::SSL::PublicSuffix::BEGIN@5 at line 5 of IO/Socket/SSL/PublicSuffix.pm
# once (219µs+9µs) by IO::File::BEGIN@131 at line 131 of IO/File.pm
# once (218µs+10µs) by Net::DNS::Question::BEGIN@30 at line 30 of Net/DNS/Question.pm
# once (220µs+6µs) by IO::Socket::BEGIN@14 at line 14 of IO/Socket.pm
# once (205µs+20µs) by File::Path::BEGIN@6 at line 6 of File/Path.pm
# once (208µs+17µs) by IO::Socket::UNIX::BEGIN@12 at line 12 of IO/Socket/UNIX.pm
# once (216µs+8µs) by Mail::SpamAssassin::BEGIN@87 at line 87 of Mail/SpamAssassin.pm
# once (207µs+16µs) by IO::Socket::IP::BEGIN@17 at line 17 of IO/Socket/IP.pm
# once (214µs+8µs) by Net::SMTP::BEGIN@18 at line 18 of Net/SMTP.pm
# once (206µs+17µs) by Mail::SpamAssassin::Plugin::URIDNSBL::BEGIN@298 at line 298 of Mail/SpamAssassin/Plugin/URIDNSBL.pm
# once (215µs+8µs) by IO::Handle::BEGIN@266 at line 266 of IO/Handle.pm
# once (207µs+16µs) by Net::DNS::Header::BEGIN@31 at line 31 of Net/DNS/Header.pm
# once (215µs+7µs) by Mail::SpamAssassin::DBBasedAddrList::BEGIN@28 at line 28 of Mail/SpamAssassin/DBBasedAddrList.pm
# once (214µs+7µs) by Sys::Syslog::BEGIN@5 at line 5 of Sys/Syslog.pm
# once (204µs+17µs) by Mail::SpamAssassin::Conf::SQL::BEGIN@44 at line 44 of Mail/SpamAssassin/Conf/SQL.pm
# once (203µs+17µs) by IO::Socket::SSL::BEGIN@308 at line 317 of IO/Socket/SSL.pm
# once (194µs+24µs) by Net::Patricia::AF_INET::BEGIN@148 at line 148 of Net/Patricia.pm
# once (211µs+7µs) by Mail::SpamAssassin::Plugin::DKIM::BEGIN@123 at line 123 of Mail/SpamAssassin/Plugin/DKIM.pm
# once (210µs+7µs) by Mail::SpamAssassin::Plugin::VBounce::BEGIN@31 at line 31 of Mail/SpamAssassin/Plugin/VBounce.pm
# once (201µs+14µs) by Net::SSLeay::BEGIN@17 at line 17 of Net/SSLeay.pm
# once (208µs+7µs) by Mail::SpamAssassin::Plugin::MIMEEval::BEGIN@29 at line 29 of Mail/SpamAssassin/Plugin/MIMEEval.pm
# once (207µs+8µs) by Mail::SpamAssassin::Plugin::RelayEval::BEGIN@21 at line 21 of Mail/SpamAssassin/Plugin/RelayEval.pm
# once (203µs+11µs) by Mail::SpamAssassin::Message::Metadata::BEGIN@60 at line 60 of Mail/SpamAssassin/Message/Metadata.pm
# once (204µs+10µs) by Net::DNS::Update::BEGIN@35 at line 35 of Net/DNS/Update.pm
# once (207µs+6µs) by Mail::SpamAssassin::Plugin::HeaderEval::BEGIN@28 at line 28 of Mail/SpamAssassin/Plugin/HeaderEval.pm
# once (207µs+6µs) by IO::Socket::SSL::BEGIN@23 at line 23 of IO/Socket/SSL.pm
# once (196µs+17µs) by Mail::SpamAssassin::AsyncLoop::BEGIN@44 at line 44 of Mail/SpamAssassin/AsyncLoop.pm
# once (202µs+10µs) by IO::Handle::BEGIN@267 at line 267 of IO/Handle.pm
# once (199µs+13µs) by Mail::SpamAssassin::Util::BEGIN@73 at line 73 of Mail/SpamAssassin/Util.pm
# once (194µs+17µs) by Mail::SpamAssassin::Util::BEGIN@50 at line 50 of Mail/SpamAssassin/Util.pm
# once (204µs+7µs) by SelectSaver::BEGIN@38 at line 38 of SelectSaver.pm
# once (203µs+8µs) by Net::DNS::Parameters::BEGIN@20 at line 20 of Net/DNS/Parameters.pm
# once (203µs+8µs) by Time::Local::BEGIN@4 at line 4 of Time/Local.pm
# once (197µs+13µs) by IO::Seekable::BEGIN@104 at line 104 of IO/Seekable.pm
# once (200µs+9µs) by Razor2::Logger::BEGIN@12 at line 12 of Razor2/Logger.pm
# once (200µs+7µs) by Mail::SpamAssassin::Plugin::AskDNS::BEGIN@193 at line 193 of Mail/SpamAssassin/Plugin/AskDNS.pm
# once (200µs+7µs) by IO::Seekable::BEGIN@98 at line 98 of IO/Seekable.pm
# once (197µs+10µs) by Razor2::String::BEGIN@5 at line 5 of Razor2/String.pm
# once (191µs+15µs) by DB_File::BEGIN@163 at line 163 of DB_File.pm
# once (198µs+8µs) by Mail::SpamAssassin::Plugin::DNSEval::BEGIN@28 at line 28 of Mail/SpamAssassin/Plugin/DNSEval.pm
# once (198µs+8µs) by Net::Patricia::BEGIN@32 at line 32 of Net/Patricia.pm
# once (191µs+15µs) by URI::_idna::BEGIN@9 at line 9 of URI/_idna.pm
# once (199µs+7µs) by Mail::SpamAssassin::Conf::Parser::BEGIN@139 at line 139 of Mail/SpamAssassin/Conf/Parser.pm
# once (199µs+6µs) by IO::Socket::INET::BEGIN@13 at line 13 of IO/Socket/INET.pm
# once (197µs+8µs) by Mail::SpamAssassin::PerMsgStatus::BEGIN@64 at line 64 of Mail/SpamAssassin/PerMsgStatus.pm
# once (197µs+8µs) by Mail::SpamAssassin::Plugin::Hashcash::BEGIN@92 at line 92 of Mail/SpamAssassin/Plugin/Hashcash.pm
# once (197µs+7µs) by IO::Socket::SSL::SSL_Context::BEGIN@2159 at line 2159 of IO/Socket/SSL.pm
# once (197µs+8µs) by Net::DNS::RR::OPT::BEGIN@22 at line 22 of Net/DNS/RR/OPT.pm
# once (197µs+7µs) by DB_File::HASHINFO::BEGIN@16 at line 16 of DB_File.pm
# once (194µs+9µs) by Tie::Hash::BEGIN@190 at line 190 of Tie/Hash.pm
# once (189µs+14µs) by Mail::SpamAssassin::Message::Node::BEGIN@46 at line 46 of Mail/SpamAssassin/Message/Node.pm
# once (194µs+8µs) by Mail::SpamAssassin::Plugin::SpamCop::BEGIN@45 at line 45 of Mail/SpamAssassin/Plugin/SpamCop.pm
# once (192µs+10µs) by Mail::SpamAssassin::Bayes::BEGIN@42 at line 42 of Mail/SpamAssassin/Bayes.pm
# once (194µs+8µs) by Mail::SpamAssassin::Plugin::HTTPSMismatch::BEGIN@21 at line 21 of Mail/SpamAssassin/Plugin/HTTPSMismatch.pm
# once (188µs+13µs) by Razor2::String::BEGIN@4 at line 4 of Razor2/String.pm
# once (188µs+12µs) by Mail::SpamAssassin::Plugin::AutoLearnThreshold::BEGIN@55 at line 55 of Mail/SpamAssassin/Plugin/AutoLearnThreshold.pm
# once (183µs+17µs) by NetAddr::IP::Lite::BEGIN@5 at line 5 of NetAddr/IP/Lite.pm
# once (192µs+6µs) by IO::Socket::INET6::BEGIN@42 at line 42 of IO/Socket/INET6.pm
# once (186µs+12µs) by Mail::SpamAssassin::Plugin::Razor2::BEGIN@44 at line 44 of Mail/SpamAssassin/Plugin/Razor2.pm
# once (190µs+7µs) by Mail::SpamAssassin::Plugin::MIMEHeader::BEGIN@67 at line 67 of Mail/SpamAssassin/Plugin/MIMEHeader.pm
# once (190µs+7µs) by IO::BEGIN@6 at line 6 of IO.pm
# once (178µs+19µs) by Mail::SpamAssassin::Plugin::URIDetail::BEGIN@70 at line 70 of Mail/SpamAssassin/Plugin/URIDetail.pm
# once (188µs+8µs) by Mail::SpamAssassin::Plugin::ReplaceTags::BEGIN@54 at line 54 of Mail/SpamAssassin/Plugin/ReplaceTags.pm
# once (186µs+9µs) by Mail::SpamAssassin::Plugin::BEGIN@98 at line 98 of Mail/SpamAssassin/Plugin.pm
# once (185µs+9µs) by Pod::Usage::BEGIN@19 at line 19 of Pod/Usage.pm
# once (186µs+8µs) by Socket::BEGIN@697 at line 697 of Socket.pm
# once (186µs+8µs) by Mail::SpamAssassin::Plugin::ImageInfo::BEGIN@84 at line 84 of Mail/SpamAssassin/Plugin/ImageInfo.pm
# once (186µs+7µs) by Mail::SpamAssassin::NetSet::BEGIN@29 at line 29 of Mail/SpamAssassin/NetSet.pm
# once (181µs+12µs) by Mail::SpamAssassin::HTML::BEGIN@31 at line 31 of Mail/SpamAssassin/HTML.pm
# once (185µs+8µs) by Mail::SpamAssassin::Plugin::URIEval::BEGIN@21 at line 21 of Mail/SpamAssassin/Plugin/URIEval.pm
# once (184µs+8µs) by NetAddr::IP::BEGIN@7 at line 7 of NetAddr/IP.pm
# once (186µs+6µs) by NetAddr::IP::Lite::BEGIN@18 at line 239 of NetAddr/IP/Util.pm
# once (184µs+7µs) by Sys::Hostname::BEGIN@5 at line 5 of Sys/Hostname.pm
# once (184µs+7µs) by Net::DNS::Resolver::Base::BEGIN@52 at line 52 of Net/DNS/Resolver/Base.pm
# once (175µs+16µs) by Net::Cmd::BEGIN@20 at line 20 of Net/Cmd.pm
# once (176µs+14µs) by Mail::SpamAssassin::Conf::LDAP::BEGIN@44 at line 44 of Mail/SpamAssassin/Conf/LDAP.pm
# once (182µs+8µs) by Razor2::Client::Engine::BEGIN@9 at line 9 of Razor2/Client/Engine.pm
# once (181µs+8µs) by Mail::SpamAssassin::BEGIN@69 at line 69 of Mail/SpamAssassin.pm
# once (182µs+6µs) by Mail::SpamAssassin::Plugin::Bayes::BEGIN@59 at line 59 of Mail/SpamAssassin/Plugin/Bayes.pm
# once (180µs+8µs) by main::BEGIN@70 at line 70 of /usr/local/bin/sa-learn
# once (180µs+7µs) by Socket6::BEGIN@213 at line 213 of Socket6.pm
# once (176µs+10µs) by Mail::SpamAssassin::Conf::BEGIN@89 at line 89 of Mail/SpamAssassin/Conf.pm
# once (177µs+9µs) by Net::DNS::Packet::BEGIN@32 at line 32 of Net/DNS/Packet.pm
# once (176µs+8µs) by Mail::SpamAssassin::ArchiveIterator::BEGIN@27 at line 27 of Mail/SpamAssassin/ArchiveIterator.pm
# once (169µs+15µs) by Net::DNS::RR::BEGIN@37 at line 37 of Net/DNS/RR.pm
# once (177µs+7µs) by Net::Patricia::AF_INET6::BEGIN@234 at line 234 of Net/Patricia.pm
# once (175µs+7µs) by Mail::SpamAssassin::Plugin::Check::BEGIN@24 at line 24 of Mail/SpamAssassin/Plugin/Check.pm
# once (167µs+15µs) by Mail::SpamAssassin::Message::BEGIN@58 at line 58 of Mail/SpamAssassin/Message.pm
# once (172µs+8µs) by Mail::SpamAssassin::PluginHandler::BEGIN@29 at line 29 of Mail/SpamAssassin/PluginHandler.pm
# once (169µs+11µs) by Mail::SpamAssassin::Util::BEGIN@74 at line 74 of Mail/SpamAssassin/Util.pm
# once (167µs+12µs) by Mail::SpamAssassin::BayesStore::DBM::BEGIN@1450 at line 1450 of Mail/SpamAssassin/BayesStore/DBM.pm
# once (162µs+17µs) by Net::LibIDN::BEGIN@7 at line 7 of Net/LibIDN.pm
# once (172µs+7µs) by SelectSaver::BEGIN@39 at line 39 of SelectSaver.pm
# once (172µs+7µs) by Mail::SpamAssassin::Util::BEGIN@78 at line 78 of Mail/SpamAssassin/Util.pm
# once (170µs+7µs) by IO::File::BEGIN@133 at line 133 of IO/File.pm
# once (172µs+5µs) by Mail::SpamAssassin::AICache::BEGIN@39 at line 39 of Mail/SpamAssassin/AICache.pm
# once (168µs+8µs) by Mail::SpamAssassin::DnsResolver::BEGIN@46 at line 46 of Mail/SpamAssassin/DnsResolver.pm
# once (170µs+6µs) by Encode::BEGIN@47 at line 47 of Encode.pm
# once (162µs+12µs) by Razor2::Preproc::Manager::BEGIN@8 at line 8 of Razor2/Preproc/Manager.pm
# once (163µs+10µs) by Mail::SpamAssassin::ArchiveIterator::BEGIN@30 at line 30 of Mail/SpamAssassin/ArchiveIterator.pm
# once (167µs+6µs) by Mail::SpamAssassin::NetSet::BEGIN@35 at line 39 of Mail/SpamAssassin/NetSet.pm
# once (164µs+8µs) by Net::Cmd::BEGIN@18 at line 18 of Net/Cmd.pm
# once (167µs+4µs) by Mail::SpamAssassin::DnsResolver::BEGIN@48 at line 48 of Mail/SpamAssassin/DnsResolver.pm
# once (165µs+7µs) by Mail::SpamAssassin::PerMsgStatus::BEGIN@62 at line 62 of Mail/SpamAssassin/PerMsgStatus.pm
# once (160µs+9µs) by Net::Patricia::AF_INET::BEGIN@149 at line 149 of Net/Patricia.pm
# once (163µs+7µs) by Mail::SpamAssassin::Timeout::BEGIN@62 at line 62 of Mail/SpamAssassin/Timeout.pm
# once (165µs+4µs) by Net::Patricia::AF_INET6::BEGIN@236 at line 236 of Net/Patricia.pm
# once (160µs+8µs) by Net::DNS::DomainName::BEGIN@46 at line 46 of Net/DNS/DomainName.pm
# once (162µs+6µs) by Net::Config::BEGIN@19 at line 19 of Net/Config.pm
# once (157µs+10µs) by Mail::SpamAssassin::AICache::BEGIN@41 at line 41 of Mail/SpamAssassin/AICache.pm
# once (160µs+5µs) by MIME::QuotedPrint::BEGIN@12 at line 12 of MIME/QuotedPrint.pm
# once (156µs+7µs) by Mail::SpamAssassin::PerMsgLearner::BEGIN@57 at line 57 of Mail/SpamAssassin/PerMsgLearner.pm
# once (148µs+14µs) by Mail::SpamAssassin::Plugin::Hashcash::BEGIN@97 at line 97 of Mail/SpamAssassin/Plugin/Hashcash.pm
# once (153µs+8µs) by Mail::SpamAssassin::PerMsgStatus::BEGIN@32 at line 32 of Mail/SpamAssassin/Dns.pm
# once (153µs+8µs) by Mail::SpamAssassin::Plugin::WLBLEval::BEGIN@21 at line 21 of Mail/SpamAssassin/Plugin/WLBLEval.pm
# once (147µs+12µs) by Net::CIDR::Lite::Span::BEGIN@357 at line 357 of Net/CIDR/Lite.pm
# once (151µs+6µs) by Mail::SpamAssassin::BEGIN@84 at line 84 of Mail/SpamAssassin.pm
# once (144µs+12µs) by Mail::SpamAssassin::Locker::UnixNFSSafe::BEGIN@30 at line 30 of Mail/SpamAssassin/Locker/UnixNFSSafe.pm
# once (143µs+11µs) by Mail::SpamAssassin::Plugin::TxRep::BEGIN@206 at line 206 of Mail/SpamAssassin/Plugin/TxRep.pm
# once (141µs+13µs) by Mail::SpamAssassin::DnsResolver::BEGIN@51 at line 51 of Mail/SpamAssassin/DnsResolver.pm
# once (145µs+7µs) by Razor2::Client::Config::BEGIN@15 at line 15 of Razor2/Client/Config.pm
# once (137µs+14µs) by Mail::SpamAssassin::Plugin::Hashcash::BEGIN@95 at line 95 of Mail/SpamAssassin/Plugin/Hashcash.pm
# once (141µs+9µs) by Mail::SpamAssassin::BayesStore::DBM::BEGIN@27 at line 27 of Mail/SpamAssassin/BayesStore/DBM.pm
# once (145µs+3µs) by Mail::SpamAssassin::Plugin::DNSEval::BEGIN@30 at line 30 of Mail/SpamAssassin/Plugin/DNSEval.pm
# once (143µs+4µs) by Mail::SpamAssassin::Conf::BEGIN@91 at line 91 of Mail/SpamAssassin/Conf.pm
# once (142µs+4µs) by Razor2::Client::Engine::BEGIN@4 at line 4 of Razor2/Client/Engine.pm
# once (139µs+7µs) by Mail::SpamAssassin::Plugin::Bayes::BEGIN@51 at line 52 of Mail/SpamAssassin/Plugin/Bayes.pm
# once (143µs+3µs) by Mail::SpamAssassin::Plugin::Hashcash::BEGIN@93 at line 93 of Mail/SpamAssassin/Plugin/Hashcash.pm
# once (142µs+3µs) by Mail::SpamAssassin::Plugin::Hashcash::BEGIN@100 at line 101 of Mail/SpamAssassin/Plugin/Hashcash.pm
# once (131µs+13µs) by Razor2::Client::Agent::BEGIN@25 at line 25 of Razor2/Client/Agent.pm
# once (138µs+6µs) by Mail::SpamAssassin::BEGIN@79 at line 79 of Mail/SpamAssassin.pm
# once (136µs+8µs) by Mail::SpamAssassin::Plugin::TxRep::BEGIN@207 at line 207 of Mail/SpamAssassin/Plugin/TxRep.pm
# once (141µs+3µs) by Mail::SpamAssassin::HTML::BEGIN@33 at line 33 of Mail/SpamAssassin/HTML.pm
# once (140µs+3µs) by Net::CIDR::Lite::BEGIN@5 at line 5 of Net/CIDR/Lite.pm
# once (140µs+2µs) by Mail::SpamAssassin::Plugin::Bayes::BEGIN@60 at line 60 of Mail/SpamAssassin/Plugin/Bayes.pm
# once (139µs+3µs) by Mail::SpamAssassin::Plugin::MIMEEval::BEGIN@28 at line 28 of Mail/SpamAssassin/Plugin/MIMEEval.pm
# once (138µs+4µs) by Mail::SpamAssassin::Plugin::HTMLEval::BEGIN@27 at line 27 of Mail/SpamAssassin/Plugin/HTMLEval.pm
# once (130µs+11µs) by Razor2::Engine::VR8::BEGIN@3 at line 3 of Razor2/Engine/VR8.pm
# once (137µs+4µs) by Mail::SpamAssassin::Plugin::HeaderEval::BEGIN@24 at line 24 of Mail/SpamAssassin/Plugin/HeaderEval.pm
# once (133µs+7µs) by IO::Socket::SSL::BEGIN@250 at line 250 of IO/Socket/SSL.pm
# once (134µs+5µs) by Razor2::Preproc::deNewline::BEGIN@2 at line 2 of Razor2/Preproc/deNewline.pm
# once (129µs+6µs) by Mail::SpamAssassin::BEGIN@82 at line 82 of Mail/SpamAssassin.pm
# once (132µs+2µs) by Net::Cmd::BEGIN@21 at line 21 of Net/Cmd.pm
# once (124µs+9µs) by IO::Socket::SSL::SSL_HANDLE::BEGIN@2129 at line 2129 of IO/Socket/SSL.pm
# once (124µs+8µs) by Mail::SpamAssassin::BayesStore::DBM::BEGIN@39 at line 39 of Mail/SpamAssassin/BayesStore/DBM.pm
# once (127µs+3µs) by Mail::SpamAssassin::Plugin::MIMEHeader::BEGIN@68 at line 68 of Mail/SpamAssassin/Plugin/MIMEHeader.pm
# once (123µs+5µs) by Razor2::Client::Config::BEGIN@13 at line 13 of Razor2/Client/Config.pm
# once (121µs+7µs) by Mail::SpamAssassin::BayesStore::BEGIN@35 at line 35 of Mail/SpamAssassin/BayesStore.pm
# once (124µs+3µs) by Mail::SpamAssassin::Plugin::Check::BEGIN@25 at line 25 of Mail/SpamAssassin/Plugin/Check.pm
# once (123µs+3µs) by Mail::SpamAssassin::Plugin::URIDetail::BEGIN@71 at line 71 of Mail/SpamAssassin/Plugin/URIDetail.pm
# once (122µs+4µs) by Mail::SpamAssassin::Util::TieOneStringHash::BEGIN@25 at line 25 of Mail/SpamAssassin/Util/TieOneStringHash.pm
# once (122µs+3µs) by Net::Patricia::AF_INET6::BEGIN@235 at line 235 of Net/Patricia.pm
# once (114µs+10µs) by Razor2::String::BEGIN@7 at line 7 of Razor2/String.pm
# once (120µs+3µs) by Razor2::Client::Engine::BEGIN@5 at line 5 of Razor2/Client/Engine.pm
# once (118µs+3µs) by Razor2::Client::Core::BEGIN@19 at line 19 of Razor2/Client/Core.pm
# once (118µs+3µs) by URI::_idna::BEGIN@10 at line 10 of URI/_idna.pm
# once (115µs+5µs) by Mail::SpamAssassin::Plugin::AskDNS::BEGIN@192 at line 192 of Mail/SpamAssassin/Plugin/AskDNS.pm
# once (115µs+4µs) by Mail::SpamAssassin::PerMsgStatus::BEGIN@56 at line 56 of Mail/SpamAssassin/PerMsgStatus.pm
# once (116µs+3µs) by Mail::SpamAssassin::DBBasedAddrList::BEGIN@27 at line 27 of Mail/SpamAssassin/DBBasedAddrList.pm
# once (114µs+5µs) by Razor2::Engine::VR8::BEGIN@4 at line 4 of Razor2/Engine/VR8.pm
# once (119µs+0s) by Getopt::Long::BEGIN@25 at line 25 of Getopt/Long.pm
# once (114µs+3µs) by Razor2::Syslog::BEGIN@6 at line 6 of Razor2/Syslog.pm
# once (115µs+0s) by Razor2::Client::Core::BEGIN@15 at line 15 of Razor2/Client/Core.pm
# once (112µs+3µs) by Mail::SpamAssassin::Bayes::BEGIN@43 at line 43 of Mail/SpamAssassin/Bayes.pm
# once (108µs+3µs) by Razor2::Signature::Ephemeral::BEGIN@6 at line 6 of Razor2/Signature/Ephemeral.pm
# once (109µs+3µs) by Mail::SpamAssassin::Message::Metadata::BEGIN@58 at line 58 of Mail/SpamAssassin/Message/Metadata.pm
# once (110µs+0s) by Razor2::Preproc::Manager::BEGIN@4 at line 4 of Razor2/Preproc/Manager.pm
# once (109µs+0s) by Mail::SpamAssassin::BEGIN@70 at line 70 of Mail/SpamAssassin.pm
# once (103µs+5µs) by Mail::SpamAssassin::BayesStore::DBM::BEGIN@37 at line 37 of Mail/SpamAssassin/BayesStore/DBM.pm
# once (105µs+0s) by Mail::SpamAssassin::Locker::UnixNFSSafe::BEGIN@27 at line 27 of Mail/SpamAssassin/Locker/UnixNFSSafe.pm
# once (100µs+4µs) by Mail::SpamAssassin::BayesStore::DBM::BEGIN@29 at line 29 of Mail/SpamAssassin/BayesStore/DBM.pm
# once (104µs+0s) by Mail::SpamAssassin::PluginHandler::BEGIN@28 at line 28 of Mail/SpamAssassin/PluginHandler.pm
# once (103µs+0s) by Mail::SpamAssassin::ArchiveIterator::BEGIN@28 at line 28 of Mail/SpamAssassin/ArchiveIterator.pm
# once (102µs+0s) by Net::LibIDN::BEGIN@6 at line 6 of Net/LibIDN.pm
# once (101µs+0s) by Net::Cmd::BEGIN@19 at line 19 of Net/Cmd.pm
# once (100µs+0s) by Net::DNS::Resolver::Base::BEGIN@53 at line 53 of Net/DNS/Resolver/Base.pm
# once (100µs+0s) by Razor2::Logger::BEGIN@6 at line 6 of Razor2/Logger.pm
# once (99µs+0s) by IO::Socket::BEGIN@17 at line 17 of IO/Socket.pm
# once (98µs+0s) by Cwd::BEGIN@3 at line 3 of Cwd.pm
# once (93µs+0s) by IO::Socket::BEGIN@12 at line 12 of IO/Socket.pm
# once (93µs+0s) by Razor2::Signature::Ephemeral::BEGIN@5 at line 5 of Razor2/Signature/Ephemeral.pm
# once (93µs+0s) by IO::Socket::INET6::BEGIN@43 at line 43 of IO/Socket/INET6.pm
# once (89µs+2µs) by Mail::SpamAssassin::AICache::BEGIN@46 at line 46 of Mail/SpamAssassin/AICache.pm
# once (91µs+0s) by Net::SSLeay::BEGIN@20 at line 20 of Net/SSLeay.pm
# once (91µs+0s) by Net::Config::BEGIN@18 at line 18 of Net/Config.pm
# once (90µs+0s) by Mail::SpamAssassin::Util::BEGIN@71 at line 71 of Mail/SpamAssassin/Util.pm
# once (90µs+0s) by Mail::SpamAssassin::Conf::BEGIN@85 at line 85 of Mail/SpamAssassin/Conf.pm
# once (89µs+0s) by IO::Socket::SSL::BEGIN@19 at line 19 of IO/Socket/SSL.pm
# once (88µs+0s) by Razor2::Signature::Whiplash::BEGIN@10 at line 10 of Razor2/Signature/Whiplash.pm
# once (84µs+3µs) by Mail::SpamAssassin::BayesStore::DBM::BEGIN@26 at line 26 of Mail/SpamAssassin/BayesStore/DBM.pm
# once (81µs+3µs) by Mail::SpamAssassin::BayesStore::DBM::BEGIN@31 at line 32 of Mail/SpamAssassin/BayesStore/DBM.pm
# once (80µs+0s) by Pod::Usage::BEGIN@21 at line 21 of Pod/Usage.pm
# once (77µs+0s) by Mail::SpamAssassin::NetSet::BEGIN@28 at line 28 of Mail/SpamAssassin/NetSet.pm
# once (74µs+0s) by IO::Socket::INET::BEGIN@15 at line 15 of IO/Socket/INET.pm
# once (71µs+0s) by Mail::SpamAssassin::Plugin::URIDNSBL::BEGIN@297 at line 297 of Mail/SpamAssassin/Plugin/URIDNSBL.pm
# once (68µs+0s) by IO::Socket::BEGIN@18 at line 18 of IO/Socket.pm
# once (67µs+0s) by IO::Socket::INET::BEGIN@14 at line 14 of IO/Socket/INET.pm
# once (39µs+0s) by Encode::BEGIN@12 at line 12 of Encode.pm
# once (36µs+0s) by Encode::Alias::BEGIN@8 at line 8 of Encode/Alias.pm
# once (35µs+0s) by Sys::Syslog::BEGIN@6 at line 6 of Sys/Syslog.pm
# once (30µs+0s) by URI::Escape::BEGIN@140 at line 140 of URI/Escape.pm
# once (27µs+0s) by URI::_punycode::BEGIN@9 at line 9 of URI/_punycode.pm | ||||
| 29 | 282 | 617µs | my $pkg = shift; | ||
| 30 | 282 | 871µs | my $callpkg = caller($ExportLevel); | ||
| 31 | |||||
| 32 | 282 | 688µs | if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { | ||
| 33 | 10 | 74µs | *{$callpkg."::import"} = \&import; | ||
| 34 | 5 | 49µs | return; | ||
| 35 | } | ||||
| 36 | |||||
| 37 | # We *need* to treat @{"$pkg\::EXPORT_FAIL"} since Carp uses it :-( | ||||
| 38 | 554 | 3.41ms | 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 | 651 | 3.57ms | my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; | ||
| 42 | 277 | 708µs | return export $pkg, $callpkg, @_ | ||
| 43 | if $Verbose or $Debug or $fail && @$fail > 1; | ||||
| 44 | 277 | 1.27ms | my $export_cache = ($Cache{$pkg} ||= {}); | ||
| 45 | 277 | 1.67ms | my $args = @_ or @_ = @$exports; | ||
| 46 | |||||
| 47 | 277 | 747µs | if ($args and not %$export_cache) { | ||
| 48 | s/^&//, $export_cache->{$_} = 1 | ||||
| 49 | 32 | 17.3ms | 1532 | 2.68ms | foreach (@$exports, @{"$pkg\::EXPORT_OK"}); # spent 2.68ms making 1532 calls to Exporter::CORE:subst, avg 2µs/call |
| 50 | } | ||||
| 51 | 277 | 466µs | 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. | ||||
| 54 | 277 | 1.30ms | if ($args or $fail) { | ||
| 55 | ($heavy = (/\W/ or $args and not exists $export_cache->{$_} | ||||
| 56 | or $fail and @$fail and $_ eq $fail->[0])) and last | ||||
| 57 | 153 | 18.5ms | 1478 | 3.43ms | foreach (@_); # spent 3.43ms making 1478 calls to Exporter::CORE:match, avg 2µs/call |
| 58 | } else { | ||||
| 59 | ($heavy = /\W/) and last | ||||
| 60 | 124 | 11.5ms | 893 | 2.08ms | foreach (@_); # spent 2.08ms making 893 calls to Exporter::CORE:match, avg 2µs/call |
| 61 | } | ||||
| 62 | 277 | 1.25ms | 31 | 5.65ms | return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; # spent 5.65ms making 31 calls to Exporter::export, avg 182µs/call |
| 63 | local $SIG{__WARN__} = | ||||
| 64 | 246 | 3.89ms | sub {require Carp; &Carp::carp} if not $SIG{__WARN__}; | ||
| 65 | # shortcut for the common case of no type character | ||||
| 66 | 4910 | 64.7ms | *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; | ||
| 67 | } | ||||
| 68 | |||||
| 69 | # Default methods | ||||
| 70 | |||||
| 71 | sub 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 1.20ms (340µs+856µs) within Exporter::export_to_level which was called 17 times, avg 70µs/call:
# 9 times (179µs+455µs) by Time::HiRes::import at line 69 of Time/HiRes.pm, avg 70µs/call
# 3 times (65µs+152µs) by NetAddr::IP::import at line 409 of NetAddr/IP.pm, avg 72µs/call
# 2 times (42µs+110µs) by NetAddr::IP::InetBase::import at line 277 of NetAddr/IP/InetBase.pm, avg 76µs/call
# 2 times (36µs+88µs) by NetAddr::IP::Util::import at line 189 of NetAddr/IP/Util.pm, avg 62µs/call
# once (17µs+50µs) by NetAddr::IP::Lite::import at line 1609 of NetAddr/IP/Lite.pm | ||||
| 81 | 34 | 460µs | 34 | 8.48ms | goto &{as_heavy()}; # spent 7.63ms making 17 calls to Exporter::Heavy::heavy_export_to_level, avg 449µs/call
# spent 856µs making 17 calls to Exporter::as_heavy, avg 50µs/call |
| 82 | } | ||||
| 83 | |||||
| 84 | sub export_tags { | ||||
| 85 | goto &{as_heavy()}; | ||||
| 86 | } | ||||
| 87 | |||||
| 88 | sub export_ok_tags { | ||||
| 89 | goto &{as_heavy()}; | ||||
| 90 | } | ||||
| 91 | |||||
| 92 | sub require_version { | ||||
| 93 | goto &{as_heavy()}; | ||||
| 94 | } | ||||
| 95 | |||||
| 96 | 1 | 28µs | 1; | ||
| 97 | __END__ | ||||
sub Exporter::CORE:match; # opcode | |||||
sub Exporter::CORE:subst; # opcode |