← Index
NYTProf Performance Profile   « line view »
For /usr/local/bin/sa-learn
  Run on Tue Nov 7 05:38:10 2017
Reported on Tue Nov 7 06:15:59 2017

Filename/usr/local/lib/perl5/5.24/strict.pm
StatementsExecuted 822 statements in 6.70ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
1811811692.18ms2.27msstrict::::importstrict::import
39211.29ms1.29msstrict::::bitsstrict::bits
4242281.01ms2.21msstrict::::unimportstrict::unimport
111170µs190µsstrict::::BEGIN@7strict::BEGIN@7
11120µs20µsstrict::::CORE:matchstrict::CORE:match (opcode)
0000s0sstrict::::__ANON__[:31]strict::__ANON__[:31]
0000s0sstrict::::__ANON__[:37]strict::__ANON__[:37]
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package strict;
2
312µs$strict::VERSION = "1.11";
4
512µsmy ( %bitmask, %explicit_bitmask );
6
7
# spent 190µs (170+20) within strict::BEGIN@7 which was called: # once (170µs+20µs) by main::BEGIN@19 at line 38
BEGIN {
8 # Verify that we're called correctly so that strictures will work.
9 # Can't use Carp, since Carp uses us!
10 # see also warnings.pm.
11147µs120µs die sprintf "Incorrect use of pragma '%s' at %s line %d.\n", __PACKAGE__, +(caller)[1,2]
# spent 20µs making 1 call to strict::CORE:match
12 if __FILE__ !~ ( '(?x) \b '.__PACKAGE__.' \.pmc? \z' )
13 && __FILE__ =~ ( '(?x) \b (?i:'.__PACKAGE__.') \.pmc? \z' );
14
1519µs %bitmask = (
16 refs => 0x00000002,
17 subs => 0x00000200,
18 vars => 0x00000400,
19 );
20
2115µs %explicit_bitmask = (
22 refs => 0x00000020,
23 subs => 0x00000040,
24 vars => 0x00000080,
25 );
26
2712µs my $bits = 0;
28122µs $bits |= $_ for values %bitmask;
29
3012µs my $inline_all_bits = $bits;
31131µs *all_bits = sub () { $inline_all_bits };
32
3312µs $bits = 0;
3419µs $bits |= $_ for values %explicit_bitmask;
35
3612µs my $inline_all_explicit_bits = $bits;
37137µs *all_explicit_bits = sub () { $inline_all_explicit_bits };
381478µs1190µs}
# spent 190µs making 1 call to strict::BEGIN@7
39
40
# spent 1.29ms within strict::bits which was called 39 times, avg 33µs/call: # 37 times (1.20ms+0s) by strict::unimport at line 69, avg 32µs/call # 2 times (88µs+0s) by strict::import at line 62, avg 44µs/call
sub bits {
4139102µs my $bits = 0;
423989µs my @wrong;
4339182µs foreach my $s (@_) {
4440296µs if (exists $bitmask{$s}) {
4540171µs $^H |= $explicit_bitmask{$s};
46
474093µs $bits |= $bitmask{$s};
48 }
49 else {
50 push @wrong, $s;
51 }
52 }
533998µs if (@wrong) {
54 require Carp;
55 Carp::croak("Unknown 'strict' tag(s) '@wrong'");
56 }
5739474µs $bits;
58}
59
60
# spent 2.27ms (2.18+88µs) within strict::import which was called 181 times, avg 13µs/call: # once (22µs+53µs) by vars::BEGIN@8 at line 8 of vars.pm # once (29µs+35µs) by base::BEGIN@4 at line 4 of base.pm # once (27µs+0s) by Net::CIDR::Lite::BEGIN@3 at line 3 of Net/CIDR/Lite.pm # once (26µs+0s) by Mail::SpamAssassin::Plugin::URIEval::BEGIN@23 at line 23 of Mail/SpamAssassin/Plugin/URIEval.pm # once (24µs+0s) by Mail::SpamAssassin::Message::Metadata::BEGIN@40 at line 40 of Mail/SpamAssassin/Message/Metadata/Received.pm # once (23µs+0s) by Pod::Escapes::BEGIN@2 at line 2 of Pod/Escapes.pm # once (22µs+0s) by Net::DNS::Packet::BEGIN@29 at line 29 of Net/DNS/Packet.pm # once (22µs+0s) by Mail::SpamAssassin::NetSet::BEGIN@21 at line 21 of Mail/SpamAssassin/NetSet.pm # once (22µs+0s) by Net::DNS::Domain::BEGIN@38 at line 38 of Net/DNS/Domain.pm # once (22µs+0s) by main::BEGIN@19 at line 19 of /usr/local/bin/sa-learn # once (20µs+0s) by Net::DNS::RR::BEGIN@34 at line 34 of Net/DNS/RR.pm # once (20µs+0s) by Mail::SpamAssassin::HTML::BEGIN@23 at line 23 of Mail/SpamAssassin/HTML.pm # once (20µs+0s) by Net::DNS::Resolver::BEGIN@15 at line 15 of Net/DNS/Resolver.pm # once (19µs+0s) by Mail::SpamAssassin::Conf::BEGIN@80 at line 80 of Mail/SpamAssassin/Conf.pm # once (18µs+0s) by Mail::SpamAssassin::PerMsgStatus::BEGIN@52 at line 52 of Mail/SpamAssassin/PerMsgStatus.pm # once (18µs+0s) by Net::DNS::RR::A::BEGIN@9 at line 9 of Net/DNS/RR/A.pm # once (18µs+0s) by URI::Escape::BEGIN@3 at line 3 of URI/Escape.pm # once (18µs+0s) by MIME::QuotedPrint::BEGIN@3 at line 3 of MIME/QuotedPrint.pm # once (18µs+0s) by Mail::SpamAssassin::Util::ScopedTimer::BEGIN@22 at line 22 of Mail/SpamAssassin/Util/ScopedTimer.pm # once (18µs+0s) by Net::DNS::Parameters::BEGIN@17 at line 17 of Net/DNS/Parameters.pm # once (18µs+0s) by File::Spec::BEGIN@3 at line 3 of File/Spec.pm # once (18µs+0s) by Mail::SpamAssassin::Plugin::WLBLEval::BEGIN@23 at line 23 of Mail/SpamAssassin/Plugin/WLBLEval.pm # once (17µs+0s) by Mail::SpamAssassin::DnsResolver::BEGIN@38 at line 38 of Mail/SpamAssassin/DnsResolver.pm # once (17µs+0s) by Mail::SpamAssassin::Plugin::ReplaceTags::BEGIN@56 at line 56 of Mail/SpamAssassin/Plugin/ReplaceTags.pm # once (17µs+0s) by Carp::BEGIN@4 at line 4 of Carp.pm # once (17µs+0s) by Sys::Syslog::BEGIN@2 at line 2 of Sys/Syslog.pm # once (17µs+0s) by Razor2::Preproc::Manager::BEGIN@9 at line 9 of Razor2/Preproc/Manager.pm # once (16µs+0s) by Socket::BEGIN@3 at line 3 of Socket.pm # once (16µs+0s) by Net::DNS::Question::BEGIN@27 at line 27 of Net/DNS/Question.pm # once (16µs+0s) by Net::Cmd::BEGIN@15 at line 15 of Net/Cmd.pm # once (16µs+0s) by Net::LibIDN::BEGIN@4 at line 4 of Net/LibIDN.pm # once (16µs+0s) by Mail::SpamAssassin::Plugin::Bayes::BEGIN@46 at line 46 of Mail/SpamAssassin/Plugin/Bayes.pm # once (16µs+0s) by Mail::SpamAssassin::Util::Progress::BEGIN@45 at line 45 of Mail/SpamAssassin/Util/Progress.pm # once (15µs+0s) by POSIX::BEGIN@2 at line 2 of POSIX.pm # once (15µs+0s) by Mail::SpamAssassin::Locales::BEGIN@20 at line 20 of Mail/SpamAssassin/Locales.pm # once (15µs+0s) by Net::Patricia::BEGIN@26 at line 26 of Net/Patricia.pm # once (15µs+0s) by version::BEGIN@5 at line 5 of version.pm # once (15µs+0s) by Mail::SpamAssassin::Plugin::Bayes::BEGIN@20 at line 20 of Mail/SpamAssassin/Bayes/CombineChi.pm # once (15µs+0s) by Net::DNS::RR::OPT::BEGIN@9 at line 9 of Net/DNS/RR/OPT.pm # once (15µs+0s) by Razor2::Client::Agent::BEGIN@14 at line 14 of Razor2/Client/Agent.pm # once (15µs+0s) by re::BEGIN@4 at line 4 of re.pm # once (15µs+0s) by Mail::SpamAssassin::PluginHandler::BEGIN@31 at line 31 of Mail/SpamAssassin/PluginHandler.pm # once (15µs+0s) by Mail::SpamAssassin::Timeout::BEGIN@56 at line 56 of Mail/SpamAssassin/Timeout.pm # once (15µs+0s) by Mail::SpamAssassin::Util::BEGIN@43 at line 43 of Mail/SpamAssassin/Util.pm # once (14µs+0s) by IO::Socket::INET::BEGIN@9 at line 9 of IO/Socket/INET.pm # once (14µs+0s) by Cwd::BEGIN@2 at line 2 of Cwd.pm # once (14µs+0s) by Mail::SpamAssassin::ArchiveIterator::BEGIN@22 at line 22 of Mail/SpamAssassin/ArchiveIterator.pm # once (14µs+0s) by Mail::SpamAssassin::Message::BEGIN@45 at line 45 of Mail/SpamAssassin/Message.pm # once (14µs+0s) by Pod::Simple::LinkSection::BEGIN@8 at line 8 of Pod/Simple/LinkSection.pm # once (14µs+0s) by Mail::SpamAssassin::BayesStore::DBM::BEGIN@20 at line 20 of Mail/SpamAssassin/BayesStore/DBM.pm # once (14µs+0s) by Net::DNS::Resolver::UNIX::BEGIN@16 at line 16 of Net/DNS/Resolver/UNIX.pm # once (14µs+0s) by File::Copy::BEGIN@11 at line 11 of File/Copy.pm # once (14µs+0s) by Config::BEGIN@5 at line 5 of Config_heavy.pl # once (14µs+0s) by IO::Socket::IP::BEGIN@13 at line 13 of IO/Socket/IP.pm # once (14µs+0s) by Mail::SpamAssassin::Conf::SQL::BEGIN@46 at line 46 of Mail/SpamAssassin/Conf/SQL.pm # once (14µs+0s) by Mail::SpamAssassin::Constants::BEGIN@24 at line 24 of Mail/SpamAssassin/Constants.pm # once (14µs+0s) by Razor2::Client::Version::BEGIN@12 at line 12 of Razor2/Client/Version.pm # once (14µs+0s) by NetAddr::IP::Util::BEGIN@4 at line 4 of NetAddr/IP/Util.pm # once (14µs+0s) by Mail::SpamAssassin::AsyncLoop::BEGIN@36 at line 36 of Mail/SpamAssassin/AsyncLoop.pm # once (14µs+0s) by File::Glob::BEGIN@3 at line 3 of File/Glob.pm # once (14µs+0s) by Encode::Alias::BEGIN@2 at line 2 of Encode/Alias.pm # once (14µs+0s) by Encode::Config::BEGIN@7 at line 7 of Encode/Config.pm # once (14µs+0s) by IO::Socket::SSL::BEGIN@24 at line 24 of IO/Socket/SSL.pm # once (13µs+0s) by URI::_punycode::BEGIN@3 at line 3 of URI/_punycode.pm # once (13µs+0s) by Mail::SpamAssassin::Util::TieOneStringHash::BEGIN@22 at line 22 of Mail/SpamAssassin/Util/TieOneStringHash.pm # once (13µs+0s) by Mail::SpamAssassin::Locker::BEGIN@20 at line 20 of Mail/SpamAssassin/Locker.pm # once (13µs+0s) by Mail::SpamAssassin::Plugin::SpamCop::BEGIN@47 at line 47 of Mail/SpamAssassin/Plugin/SpamCop.pm # once (13µs+0s) by Razor2::Client::Config::BEGIN@12 at line 12 of Razor2/Client/Config.pm # once (13µs+0s) by Mail::SpamAssassin::PersistentAddrList::BEGIN@49 at line 49 of Mail/SpamAssassin/PersistentAddrList.pm # once (13µs+0s) by Mail::SpamAssassin::BayesStore::BEGIN@31 at line 31 of Mail/SpamAssassin/BayesStore.pm # once (13µs+0s) by Mail::SpamAssassin::AICache::BEGIN@43 at line 43 of Mail/SpamAssassin/AICache.pm # once (13µs+0s) by Mail::SpamAssassin::Bayes::BEGIN@35 at line 35 of Mail/SpamAssassin/Bayes.pm # once (13µs+0s) by Mail::SpamAssassin::Plugin::VBounce::BEGIN@32 at line 32 of Mail/SpamAssassin/Plugin/VBounce.pm # once (13µs+0s) by Pod::Text::BEGIN@27 at line 27 of Pod/Text.pm # once (13µs+0s) by Mail::SpamAssassin::Plugin::BEGIN@100 at line 100 of Mail/SpamAssassin/Plugin.pm # once (12µs+0s) by Net::SSLeay::BEGIN@16 at line 16 of Net/SSLeay.pm # once (12µs+0s) by Mail::SpamAssassin::Logger::Stderr::BEGIN@32 at line 32 of Mail/SpamAssassin/Logger/Stderr.pm # once (12µs+0s) by Encode::Detect::Detector::BEGIN@39 at line 39 of Encode/Detect/Detector.pm # once (12µs+0s) by Net::SMTP::BEGIN@15 at line 15 of Net/SMTP.pm # once (12µs+0s) by MIME::Base64::BEGIN@3 at line 3 of MIME/Base64.pm # once (12µs+0s) by Mail::SpamAssassin::DBBasedAddrList::BEGIN@20 at line 20 of Mail/SpamAssassin/DBBasedAddrList.pm # once (12µs+0s) by Mail::SpamAssassin::Plugin::MIMEEval::BEGIN@20 at line 20 of Mail/SpamAssassin/Plugin/MIMEEval.pm # once (12µs+0s) by URI::_idna::BEGIN@6 at line 6 of URI/_idna.pm # once (12µs+0s) by Mail::SpamAssassin::Message::Metadata::BEGIN@18 at line 18 of Mail/SpamAssassin/Dns.pm # once (12µs+0s) by Mail::SpamAssassin::Plugin::HeaderEval::BEGIN@20 at line 20 of Mail/SpamAssassin/Plugin/HeaderEval.pm # once (12µs+0s) by Mail::SpamAssassin::Conf::LDAP::BEGIN@46 at line 46 of Mail/SpamAssassin/Conf/LDAP.pm # once (12µs+0s) by Time::HiRes::BEGIN@4 at line 4 of Time/HiRes.pm # once (11µs+0s) by Mail::SpamAssassin::Plugin::AskDNS::BEGIN@187 at line 187 of Mail/SpamAssassin/Plugin/AskDNS.pm # once (11µs+0s) by Mail::SpamAssassin::Plugin::Razor2::BEGIN@46 at line 46 of Mail/SpamAssassin/Plugin/Razor2.pm # once (11µs+0s) by Mail::SpamAssassin::Plugin::Check::BEGIN@17 at line 17 of Mail/SpamAssassin/Plugin/Check.pm # once (11µs+0s) by IO::Socket::SSL::BEGIN@2 at line 2 of IO/Socket/SSL/PublicSuffix.pm # once (11µs+0s) by Razor2::Client::Core::BEGIN@13 at line 13 of Razor2/Client/Core.pm # once (11µs+0s) by Mail::SpamAssassin::Plugin::BodyEval::BEGIN@24 at line 24 of Mail/SpamAssassin/Plugin/BodyEval.pm # once (11µs+0s) by Net::DNS::DomainName::BEGIN@41 at line 41 of Net/DNS/DomainName.pm # once (11µs+0s) by Mail::SpamAssassin::Plugin::HTMLEval::BEGIN@20 at line 20 of Mail/SpamAssassin/Plugin/HTMLEval.pm # once (11µs+0s) by Term::ReadKey::BEGIN@7 at line 7 of Term/ReadKey.pm # once (11µs+0s) by Mail::SpamAssassin::Plugin::RelayEval::BEGIN@24 at line 24 of Mail/SpamAssassin/Plugin/RelayEval.pm # once (11µs+0s) by lib::BEGIN@8 at line 8 of lib.pm # once (11µs+0s) by Mail::SpamAssassin::Locker::UnixNFSSafe::BEGIN@20 at line 20 of Mail/SpamAssassin/Locker/UnixNFSSafe.pm # once (10µs+0s) by Exporter::Heavy::BEGIN@3 at line 3 of Exporter/Heavy.pm # once (10µs+0s) by Mail::SpamAssassin::Plugin::AutoLearnThreshold::BEGIN@56 at line 56 of Mail/SpamAssassin/Plugin/AutoLearnThreshold.pm # once (10µs+0s) by Mail::SpamAssassin::Message::Metadata::BEGIN@51 at line 51 of Mail/SpamAssassin/Message/Metadata.pm # once (10µs+0s) by Razor2::Client::Engine::BEGIN@3 at line 3 of Razor2/Client/Engine.pm # once (10µs+0s) by IO::Socket::INET6::BEGIN@12 at line 12 of IO/Socket/INET6.pm # once (10µs+0s) by Net::DNS::Update::BEGIN@32 at line 32 of Net/DNS/Update.pm # once (10µs+0s) by Mail::SpamAssassin::RegistryBoundaries::BEGIN@28 at line 28 of Mail/SpamAssassin/RegistryBoundaries.pm # once (10µs+0s) by Mail::SpamAssassin::Conf::Parser::BEGIN@143 at line 143 of Mail/SpamAssassin/Conf/Parser.pm # once (10µs+0s) by IO::Socket::SSL::SSL_HANDLE::BEGIN@2128 at line 2128 of IO/Socket/SSL.pm # once (10µs+0s) by Mail::SpamAssassin::Plugin::WhiteListSubject::BEGIN@47 at line 47 of Mail/SpamAssassin/Plugin/WhiteListSubject.pm # once (10µs+0s) by Mail::SpamAssassin::PerMsgLearner::BEGIN@49 at line 49 of Mail/SpamAssassin/PerMsgLearner.pm # once (10µs+0s) by Mail::SpamAssassin::Plugin::URIDNSBL::BEGIN@299 at line 299 of Mail/SpamAssassin/Plugin/URIDNSBL.pm # once (10µs+0s) by Mail::SpamAssassin::Plugin::TxRep::BEGIN@202 at line 202 of Mail/SpamAssassin/Plugin/TxRep.pm # once (10µs+0s) by File::Spec::Unix::BEGIN@3 at line 3 of File/Spec/Unix.pm # once (9µs+0s) by Scalar::Util::BEGIN@9 at line 9 of Scalar/Util.pm # once (9µs+0s) by Mail::SpamAssassin::Plugin::SPF::BEGIN@39 at line 39 of Mail/SpamAssassin/Plugin/SPF.pm # once (9µs+0s) by Mail::SpamAssassin::Plugin::Hashcash::BEGIN@86 at line 86 of Mail/SpamAssassin/Plugin/Hashcash.pm # once (9µs+0s) by Pod::Simple::BEGIN@1506 at line 1506 of Pod/Simple.pm # once (9µs+0s) by IO::Socket::SSL::Session_Cache::BEGIN@2848 at line 2848 of IO/Socket/SSL.pm # once (9µs+0s) by Razor2::Errorhandler::BEGIN@13 at line 13 of Razor2/Errorhandler.pm # once (9µs+0s) by Net::LibIDN2::BEGIN@6 at line 6 of Net/LibIDN2.pm # once (9µs+0s) by Net::Config::BEGIN@15 at line 15 of Net/Config.pm # once (9µs+0s) by Razor2::Preproc::deHTMLxs::BEGIN@3 at line 3 of Razor2/Preproc/deHTMLxs.pm # once (9µs+0s) by Socket6::BEGIN@38 at line 38 of Socket6.pm # once (9µs+0s) by IO::Socket::UNIX::BEGIN@9 at line 9 of IO/Socket/UNIX.pm # once (9µs+0s) by NetAddr::IP::UtilPolluted::BEGIN@197 at line 197 of NetAddr/IP/Util.pm # once (9µs+0s) by Mail::SpamAssassin::Plugin::FreeMail::BEGIN@2 at line 2 of Mail/SpamAssassin/Plugin/FreeMail.pm # once (9µs+0s) by Digest::SHA1::BEGIN@3 at line 3 of Digest/SHA1.pm # once (9µs+0s) by Mail::SpamAssassin::BEGIN@62 at line 62 of Mail/SpamAssassin.pm # once (9µs+0s) by Pod::Simple::BEGIN@4 at line 4 of Pod/Simple.pm # once (9µs+0s) by Mail::SpamAssassin::Message::Node::BEGIN@37 at line 37 of Mail/SpamAssassin/Message/Node.pm # once (9µs+0s) by Mail::SpamAssassin::Plugin::HTTPSMismatch::BEGIN@22 at line 22 of Mail/SpamAssassin/Plugin/HTTPSMismatch.pm # once (8µs+0s) by constant::BEGIN@3 at line 3 of constant.pm # once (8µs+0s) by HTML::Entities::BEGIN@138 at line 138 of HTML/Entities.pm # once (8µs+0s) by Net::DNS::Resolver::Base::BEGIN@49 at line 49 of Net/DNS/Resolver/Base.pm # once (8µs+0s) by NetAddr::IP::BEGIN@5 at line 5 of NetAddr/IP.pm # once (8µs+0s) by Pod::Usage::BEGIN@12 at line 12 of Pod/Usage.pm # once (8µs+0s) by Net::DNS::RR::AAAA::BEGIN@9 at line 9 of Net/DNS/RR/AAAA.pm # once (8µs+0s) by IO::File::BEGIN@128 at line 128 of IO/File.pm # once (8µs+0s) by Mail::SpamAssassin::Plugin::MIMEHeader::BEGIN@60 at line 60 of Mail/SpamAssassin/Plugin/MIMEHeader.pm # once (8µs+0s) by Encode::Encoding::BEGIN@4 at line 4 of Encode/Encoding.pm # once (8µs+0s) by Mail::SpamAssassin::Logger::BEGIN@38 at line 38 of Mail/SpamAssassin/Logger.pm # once (8µs+0s) by IO::Socket::BEGIN@15 at line 15 of IO/Socket.pm # once (8µs+0s) by Net::DNS::BEGIN@34 at line 34 of Net/DNS.pm # once (8µs+0s) by Time::Local::BEGIN@6 at line 6 of Time/Local.pm # once (8µs+0s) by Getopt::Long::BEGIN@17 at line 17 of Getopt/Long.pm # once (8µs+0s) by Digest::base::BEGIN@3 at line 3 of Digest/base.pm # once (8µs+0s) by IO::Handle::BEGIN@264 at line 264 of IO/Handle.pm # once (8µs+0s) by DB_File::HASHINFO::BEGIN@15 at line 15 of DB_File.pm # once (8µs+0s) by Sys::Hostname::BEGIN@3 at line 3 of Sys/Hostname.pm # once (8µs+0s) by IO::BEGIN@7 at line 7 of IO.pm # once (8µs+0s) by List::Util::BEGIN@9 at line 9 of List/Util.pm # once (8µs+0s) by version::regex::BEGIN@3 at line 3 of version/regex.pm # once (8µs+0s) by Mail::SpamAssassin::Plugin::ImageInfo::BEGIN@85 at line 85 of Mail/SpamAssassin/Plugin/ImageInfo.pm # once (8µs+0s) by Net::DNS::Header::BEGIN@28 at line 28 of Net/DNS/Header.pm # once (8µs+0s) by Mail::SpamAssassin::Plugin::DKIM::BEGIN@126 at line 126 of Mail/SpamAssassin/Plugin/DKIM.pm # once (8µs+0s) by File::Path::BEGIN@4 at line 4 of File/Path.pm # once (8µs+0s) by Razor2::Logger::BEGIN@5 at line 5 of Razor2/Logger.pm # once (8µs+0s) by Mail::SpamAssassin::Plugin::URIDetail::BEGIN@73 at line 73 of Mail/SpamAssassin/Plugin/URIDetail.pm # once (8µs+0s) by Errno::BEGIN@8 at line 8 of Errno.pm # once (8µs+0s) by Mail::SpamAssassin::Plugin::DNSEval::BEGIN@32 at line 32 of Mail/SpamAssassin/Plugin/DNSEval.pm # once (8µs+0s) by DB_File::RECNOINFO::BEGIN@116 at line 116 of DB_File.pm # once (8µs+0s) by Encode::BEGIN@5 at line 5 of Encode.pm # once (8µs+0s) by IO::Seekable::BEGIN@99 at line 99 of IO/Seekable.pm # once (7µs+0s) by AutoLoader::BEGIN@3 at line 3 of AutoLoader.pm # once (7µs+0s) by File::Basename::BEGIN@50 at line 50 of File/Basename.pm # once (7µs+0s) by Digest::SHA::BEGIN@5 at line 5 of Digest/SHA.pm # once (7µs+0s) by Fcntl::BEGIN@58 at line 58 of Fcntl.pm # once (7µs+0s) by IO::Select::BEGIN@9 at line 9 of IO/Select.pm # once (7µs+0s) by Razor2::Signature::Ephemeral::BEGIN@4 at line 4 of Razor2/Signature/Ephemeral.pm # once (7µs+0s) by HTML::Parser::BEGIN@3 at line 3 of HTML/Parser.pm # once (7µs+0s) by NetAddr::IP::Lite::BEGIN@6 at line 6 of NetAddr/IP/Lite.pm # once (7µs+0s) by NetAddr::IP::InetBase::BEGIN@4 at line 4 of NetAddr/IP/InetBase.pm # once (7µs+0s) by DB_File::BEGIN@160 at line 160 of DB_File.pm # once (7µs+0s) by IO::Socket::SSL::SSL_Context::BEGIN@2160 at line 2160 of IO/Socket/SSL.pm # once (7µs+0s) by Config::BEGIN@9 at line 9 of Config.pm # once (7µs+0s) by Mail::SpamAssassin::Bayes::Combine::BEGIN@31 at line 31 of Mail/SpamAssassin/Bayes/CombineChi.pm # once (6µs+0s) by Mail::SpamAssassin::Message::Metadata::BEGIN@44 at line 44 of Mail/SpamAssassin/Message/Metadata/Received.pm # once (6µs+0s) by DB_File::BTREEINFO::BEGIN@134 at line 134 of DB_File.pm # once (6µs+0s) by Pod::Simple::BlackBox::BEGIN@22 at line 22 of Pod/Simple/BlackBox.pm # once (6µs+0s) by Mail::SpamAssassin::PerMsgStatus::BEGIN@23 at line 23 of Mail/SpamAssassin/Dns.pm # once (6µs+0s) by Razor2::Errorhandler::BEGIN@32 at line 32 of Razor2/Errorhandler.pm
sub import {
61181349µs shift;
621813.14ms288µs $^H |= @_ ? &bits : all_bits | all_explicit_bits;
# spent 88µs making 2 calls to strict::bits, avg 44µs/call
63}
64
65
# spent 2.21ms (1.01+1.20) within strict::unimport which was called 42 times, avg 53µs/call: # once (48µs+32µs) by constant::BEGIN@40 at line 40 of constant.pm # once (27µs+50µs) by IO::Socket::SSL::BEGIN@398 at line 398 of IO/Socket/SSL.pm # once (40µs+34µs) by Config::BEGIN@47 at line 47 of Config.pm # once (20µs+51µs) by Carp::BEGIN@592 at line 592 of Carp.pm # once (34µs+35µs) by Socket::BEGIN@936 at line 936 of Socket.pm # once (28µs+38µs) by Pod::Simple::BEGIN@1502 at line 1502 of Pod/Simple.pm # once (30µs+35µs) by Sys::Syslog::BEGIN@576 at line 576 of Sys/Syslog.pm # once (26µs+39µs) by Mail::SpamAssassin::Plugin::Check::BEGIN@1167 at line 1167 of Mail/SpamAssassin/Plugin/Check.pm # once (31µs+33µs) by AutoLoader::BEGIN@146 at line 146 of AutoLoader.pm # once (26µs+37µs) by Carp::BEGIN@132 at line 132 of Carp.pm # once (21µs+41µs) by Carp::BEGIN@612 at line 612 of Carp.pm # once (27µs+35µs) by File::Spec::Unix::BEGIN@182 at line 182 of File/Spec/Unix.pm # once (25µs+34µs) by Net::DNS::Resolver::Base::BEGIN@1124 at line 1124 of Net/DNS/Resolver/Base.pm # once (25µs+33µs) by IO::Handle::BEGIN@631 at line 631 of IO/Handle.pm # once (23µs+35µs) by Mail::SpamAssassin::Plugin::Check::BEGIN@1328 at line 1328 of Mail/SpamAssassin/Plugin/Check.pm # once (25µs+32µs) by Mail::SpamAssassin::Plugin::Check::BEGIN@408 at line 408 of Mail/SpamAssassin/Plugin/Check.pm # once (25µs+31µs) by Cwd::BEGIN@691 at line 691 of Cwd.pm # once (25µs+31µs) by Mail::SpamAssassin::Conf::Parser::BEGIN@592 at line 592 of Mail/SpamAssassin/Conf/Parser.pm # once (24µs+30µs) by Net::DNS::RR::BEGIN@758 at line 758 of Net/DNS/RR.pm # once (22µs+32µs) by Sys::Syslog::BEGIN@13 at line 13 of Sys/Syslog.pm # once (20µs+34µs) by AutoLoader::BEGIN@37 at line 37 of AutoLoader.pm # once (23µs+31µs) by Net::LibIDN::BEGIN@85 at line 85 of Net/LibIDN.pm # once (22µs+30µs) by IO::Socket::SSL::BEGIN@261 at line 261 of IO/Socket/SSL.pm # once (21µs+32µs) by Time::HiRes::BEGIN@48 at line 48 of Time/HiRes.pm # once (22µs+31µs) by DB_File::BEGIN@240 at line 240 of DB_File.pm # once (21µs+31µs) by version::BEGIN@24 at line 24 of version.pm # once (22µs+30µs) by Net::Cmd::BEGIN@72 at line 72 of Net/Cmd.pm # once (22µs+29µs) by List::Util::BEGIN@30 at line 30 of List/Util.pm # once (18µs+33µs) by Sys::Syslog::BEGIN@169 at line 169 of Sys/Syslog.pm # once (20µs+30µs) by Exporter::Heavy::BEGIN@4 at line 4 of Exporter/Heavy.pm # once (17µs+34µs) by File::Path::BEGIN@29 at line 29 of File/Path.pm # once (28µs+22µs) by constant::BEGIN@65 at line 65 of constant.pm # once (27µs+23µs) by constant::BEGIN@141 at line 141 of constant.pm # once (27µs+22µs) by Sys::Syslog::BEGIN@605 at line 605 of Sys/Syslog.pm # once (26µs+22µs) by constant::BEGIN@90 at line 90 of constant.pm # once (23µs+25µs) by Sys::Syslog::BEGIN@163 at line 163 of Sys/Syslog.pm # once (16µs+23µs) by AutoLoader::BEGIN@194 at line 194 of AutoLoader.pm # once (18µs+0s) by NetAddr::IP::Lite::BEGIN@174 at line 174 of NetAddr/IP/Lite.pm # once (17µs+0s) by POSIX::BEGIN@206 at line 206 of POSIX.pm # once (17µs+0s) by Term::ReadKey::BEGIN@353 at line 353 of Term/ReadKey.pm # once (16µs+0s) by Razor2::Errorhandler::BEGIN@21 at line 21 of Razor2/Errorhandler.pm # once (16µs+0s) by File::Glob::BEGIN@58 at line 58 of File/Glob.pm
sub unimport {
664273µs shift;
67
6842563µs if (@_) {
6937370µs371.20ms $^H &= ~&bits;
# spent 1.20ms making 37 calls to strict::bits, avg 32µs/call
70 }
71 else {
72521µs $^H &= ~all_bits;
73513µs $^H |= all_explicit_bits;
74 }
75}
76
77116µs1;
78__END__
 
# spent 20µs within strict::CORE:match which was called: # once (20µs+0s) by strict::BEGIN@7 at line 11
sub strict::CORE:match; # opcode
Report produced by the NYTProf 6.04 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.