Filename | /usr/local/lib/perl5/5.24/strict.pm |
Statements | Executed 822 statements in 5.75ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
181 | 181 | 169 | 1.76ms | 1.82ms | import | strict::
39 | 2 | 1 | 1.16ms | 1.16ms | bits | strict::
42 | 42 | 28 | 866µs | 1.96ms | unimport | strict::
1 | 1 | 1 | 131µs | 151µs | BEGIN@7 | strict::
1 | 1 | 1 | 20µs | 20µs | CORE:match (opcode) | strict::
0 | 0 | 0 | 0s | 0s | __ANON__[:31] | strict::
0 | 0 | 0 | 0s | 0s | __ANON__[:37] | strict::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package strict; | ||||
2 | |||||
3 | 1 | 2µs | $strict::VERSION = "1.11"; | ||
4 | |||||
5 | 1 | 2µs | my ( %bitmask, %explicit_bitmask ); | ||
6 | |||||
7 | # spent 151µs (131+20) within strict::BEGIN@7 which was called:
# once (131µs+20µs) by main::BEGIN@19 at line 38 | ||||
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. | ||||
11 | 1 | 48µs | 1 | 20µ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 | |||||
15 | 1 | 7µs | %bitmask = ( | ||
16 | refs => 0x00000002, | ||||
17 | subs => 0x00000200, | ||||
18 | vars => 0x00000400, | ||||
19 | ); | ||||
20 | |||||
21 | 1 | 3µs | %explicit_bitmask = ( | ||
22 | refs => 0x00000020, | ||||
23 | subs => 0x00000040, | ||||
24 | vars => 0x00000080, | ||||
25 | ); | ||||
26 | |||||
27 | 1 | 2µs | my $bits = 0; | ||
28 | 1 | 17µs | $bits |= $_ for values %bitmask; | ||
29 | |||||
30 | 1 | 2µs | my $inline_all_bits = $bits; | ||
31 | 1 | 24µs | *all_bits = sub () { $inline_all_bits }; | ||
32 | |||||
33 | 1 | 2µs | $bits = 0; | ||
34 | 1 | 9µs | $bits |= $_ for values %explicit_bitmask; | ||
35 | |||||
36 | 1 | 2µs | my $inline_all_explicit_bits = $bits; | ||
37 | 1 | 15µs | *all_explicit_bits = sub () { $inline_all_explicit_bits }; | ||
38 | 1 | 412µs | 1 | 151µs | } # spent 151µs making 1 call to strict::BEGIN@7 |
39 | |||||
40 | sub bits { | ||||
41 | 39 | 87µs | my $bits = 0; | ||
42 | 39 | 79µs | my @wrong; | ||
43 | 39 | 159µs | foreach my $s (@_) { | ||
44 | 40 | 252µs | if (exists $bitmask{$s}) { | ||
45 | 40 | 196µs | $^H |= $explicit_bitmask{$s}; | ||
46 | |||||
47 | 40 | 86µs | $bits |= $bitmask{$s}; | ||
48 | } | ||||
49 | else { | ||||
50 | push @wrong, $s; | ||||
51 | } | ||||
52 | } | ||||
53 | 39 | 89µs | if (@wrong) { | ||
54 | require Carp; | ||||
55 | Carp::croak("Unknown 'strict' tag(s) '@wrong'"); | ||||
56 | } | ||||
57 | 39 | 370µs | $bits; | ||
58 | } | ||||
59 | |||||
60 | # spent 1.82ms (1.76+61µs) within strict::import which was called 181 times, avg 10µs/call:
# once (15µs+33µs) by vars::BEGIN@8 at line 8 of vars.pm
# once (15µs+28µs) by base::BEGIN@4 at line 4 of base.pm
# once (18µs+0s) by Mail::SpamAssassin::Plugin::SpamCop::BEGIN@47 at line 47 of Mail/SpamAssassin/Plugin/SpamCop.pm
# once (16µs+0s) by Net::SSLeay::BEGIN@16 at line 16 of Net/SSLeay.pm
# once (15µs+0s) by Net::Cmd::BEGIN@15 at line 15 of Net/Cmd.pm
# once (15µs+0s) by IO::Socket::SSL::BEGIN@24 at line 24 of IO/Socket/SSL.pm
# once (15µs+0s) by Mail::SpamAssassin::BayesStore::DBM::BEGIN@20 at line 20 of Mail/SpamAssassin/BayesStore/DBM.pm
# once (15µs+0s) by Mail::SpamAssassin::Message::Metadata::BEGIN@51 at line 51 of Mail/SpamAssassin/Message/Metadata.pm
# once (15µs+0s) by IO::Socket::SSL::BEGIN@2 at line 2 of IO/Socket/SSL/PublicSuffix.pm
# once (15µs+0s) by Mail::SpamAssassin::Message::BEGIN@45 at line 45 of Mail/SpamAssassin/Message.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 IO::Socket::SSL::Session_Cache::BEGIN@2848 at line 2848 of IO/Socket/SSL.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::Plugin::AskDNS::BEGIN@187 at line 187 of Mail/SpamAssassin/Plugin/AskDNS.pm
# once (14µs+0s) by Pod::Simple::LinkSection::BEGIN@8 at line 8 of Pod/Simple/LinkSection.pm
# once (14µs+0s) by Razor2::Client::Config::BEGIN@12 at line 12 of Razor2/Client/Config.pm
# once (13µs+0s) by IO::File::BEGIN@128 at line 128 of IO/File.pm
# once (13µs+0s) by Mail::SpamAssassin::Plugin::MIMEEval::BEGIN@20 at line 20 of Mail/SpamAssassin/Plugin/MIMEEval.pm
# once (13µs+0s) by NetAddr::IP::BEGIN@5 at line 5 of NetAddr/IP.pm
# once (13µs+0s) by Mail::SpamAssassin::PerMsgLearner::BEGIN@49 at line 49 of Mail/SpamAssassin/PerMsgLearner.pm
# once (13µs+0s) by File::Glob::BEGIN@3 at line 3 of File/Glob.pm
# once (13µs+0s) by IO::Socket::SSL::SSL_HANDLE::BEGIN@2128 at line 2128 of IO/Socket/SSL.pm
# once (13µs+0s) by Exporter::Heavy::BEGIN@3 at line 3 of Exporter/Heavy.pm
# once (13µs+0s) by Mail::SpamAssassin::Plugin::Check::BEGIN@17 at line 17 of Mail/SpamAssassin/Plugin/Check.pm
# once (13µs+0s) by Mail::SpamAssassin::Plugin::URIDNSBL::BEGIN@299 at line 299 of Mail/SpamAssassin/Plugin/URIDNSBL.pm
# once (13µs+0s) by Encode::Config::BEGIN@7 at line 7 of Encode/Config.pm
# once (13µs+0s) by Mail::SpamAssassin::Plugin::BEGIN@100 at line 100 of Mail/SpamAssassin/Plugin.pm
# once (13µs+0s) by Mail::SpamAssassin::Plugin::AutoLearnThreshold::BEGIN@56 at line 56 of Mail/SpamAssassin/Plugin/AutoLearnThreshold.pm
# once (12µs+0s) by Mail::SpamAssassin::Plugin::RelayEval::BEGIN@24 at line 24 of Mail/SpamAssassin/Plugin/RelayEval.pm
# once (12µs+0s) by Razor2::Preproc::deHTMLxs::BEGIN@3 at line 3 of Razor2/Preproc/deHTMLxs.pm
# once (12µs+0s) by Mail::SpamAssassin::Plugin::TxRep::BEGIN@202 at line 202 of Mail/SpamAssassin/Plugin/TxRep.pm
# once (12µs+0s) by Net::Config::BEGIN@15 at line 15 of Net/Config.pm
# once (12µs+0s) by Mail::SpamAssassin::Plugin::Hashcash::BEGIN@86 at line 86 of Mail/SpamAssassin/Plugin/Hashcash.pm
# once (12µs+0s) by Net::DNS::RR::A::BEGIN@9 at line 9 of Net/DNS/RR/A.pm
# once (12µs+0s) by main::BEGIN@19 at line 19 of /usr/local/bin/sa-learn
# once (12µs+0s) by MIME::Base64::BEGIN@3 at line 3 of MIME/Base64.pm
# once (12µs+0s) by Encode::Detect::Detector::BEGIN@39 at line 39 of Encode/Detect/Detector.pm
# once (12µs+0s) by Time::HiRes::BEGIN@4 at line 4 of Time/HiRes.pm
# once (12µs+0s) by Razor2::Client::Engine::BEGIN@3 at line 3 of Razor2/Client/Engine.pm
# once (12µs+0s) by Mail::SpamAssassin::Locker::UnixNFSSafe::BEGIN@20 at line 20 of Mail/SpamAssassin/Locker/UnixNFSSafe.pm
# once (12µs+0s) by Razor2::Client::Core::BEGIN@13 at line 13 of Razor2/Client/Core.pm
# once (12µs+0s) by Net::DNS::RR::OPT::BEGIN@9 at line 9 of Net/DNS/RR/OPT.pm
# once (12µs+0s) by Mail::SpamAssassin::DBBasedAddrList::BEGIN@20 at line 20 of Mail/SpamAssassin/DBBasedAddrList.pm
# once (11µs+0s) by Sys::Hostname::BEGIN@3 at line 3 of Sys/Hostname.pm
# once (11µs+0s) by Mail::SpamAssassin::Constants::BEGIN@24 at line 24 of Mail/SpamAssassin/Constants.pm
# once (11µs+0s) by Mail::SpamAssassin::Plugin::SPF::BEGIN@39 at line 39 of Mail/SpamAssassin/Plugin/SPF.pm
# once (11µs+0s) by Pod::Simple::BEGIN@4 at line 4 of Pod/Simple.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 Time::Local::BEGIN@6 at line 6 of Time/Local.pm
# once (11µs+0s) by MIME::QuotedPrint::BEGIN@3 at line 3 of MIME/QuotedPrint.pm
# once (11µs+0s) by Mail::SpamAssassin::Conf::Parser::BEGIN@143 at line 143 of Mail/SpamAssassin/Conf/Parser.pm
# once (11µs+0s) by Net::SMTP::BEGIN@15 at line 15 of Net/SMTP.pm
# once (11µs+0s) by Mail::SpamAssassin::Plugin::HTTPSMismatch::BEGIN@22 at line 22 of Mail/SpamAssassin/Plugin/HTTPSMismatch.pm
# once (11µs+0s) by Mail::SpamAssassin::Plugin::HeaderEval::BEGIN@20 at line 20 of Mail/SpamAssassin/Plugin/HeaderEval.pm
# once (11µs+0s) by lib::BEGIN@8 at line 8 of lib.pm
# once (11µs+0s) by Net::DNS::DomainName::BEGIN@41 at line 41 of Net/DNS/DomainName.pm
# once (11µs+0s) by IO::Socket::INET6::BEGIN@12 at line 12 of IO/Socket/INET6.pm
# once (10µs+0s) by Net::DNS::Domain::BEGIN@38 at line 38 of Net/DNS/Domain.pm
# once (10µs+0s) by Mail::SpamAssassin::Plugin::URIEval::BEGIN@23 at line 23 of Mail/SpamAssassin/Plugin/URIEval.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::BayesStore::BEGIN@31 at line 31 of Mail/SpamAssassin/BayesStore.pm
# once (10µs+0s) by Mail::SpamAssassin::PersistentAddrList::BEGIN@49 at line 49 of Mail/SpamAssassin/PersistentAddrList.pm
# once (10µs+0s) by Pod::Text::BEGIN@27 at line 27 of Pod/Text.pm
# once (10µs+0s) by Net::DNS::Update::BEGIN@32 at line 32 of Net/DNS/Update.pm
# once (10µs+0s) by Encode::Encoding::BEGIN@4 at line 4 of Encode/Encoding.pm
# once (10µs+0s) by Mail::SpamAssassin::Plugin::VBounce::BEGIN@32 at line 32 of Mail/SpamAssassin/Plugin/VBounce.pm
# once (10µs+0s) by Mail::SpamAssassin::Plugin::FreeMail::BEGIN@2 at line 2 of Mail/SpamAssassin/Plugin/FreeMail.pm
# once (10µs+0s) by File::Spec::BEGIN@3 at line 3 of File/Spec.pm
# once (10µs+0s) by Mail::SpamAssassin::Plugin::HTMLEval::BEGIN@20 at line 20 of Mail/SpamAssassin/Plugin/HTMLEval.pm
# once (10µs+0s) by Mail::SpamAssassin::Util::TieOneStringHash::BEGIN@22 at line 22 of Mail/SpamAssassin/Util/TieOneStringHash.pm
# once (10µs+0s) by HTML::Entities::BEGIN@138 at line 138 of HTML/Entities.pm
# once (10µs+0s) by Mail::SpamAssassin::Plugin::MIMEHeader::BEGIN@60 at line 60 of Mail/SpamAssassin/Plugin/MIMEHeader.pm
# once (10µs+0s) by Mail::SpamAssassin::Plugin::BodyEval::BEGIN@24 at line 24 of Mail/SpamAssassin/Plugin/BodyEval.pm
# once (10µs+0s) by URI::_punycode::BEGIN@3 at line 3 of URI/_punycode.pm
# once (10µs+0s) by Mail::SpamAssassin::Plugin::DNSEval::BEGIN@32 at line 32 of Mail/SpamAssassin/Plugin/DNSEval.pm
# once (10µs+0s) by Net::DNS::RR::AAAA::BEGIN@9 at line 9 of Net/DNS/RR/AAAA.pm
# once (10µs+0s) by Mail::SpamAssassin::Util::Progress::BEGIN@45 at line 45 of Mail/SpamAssassin/Util/Progress.pm
# once (10µs+0s) by Mail::SpamAssassin::Plugin::DKIM::BEGIN@126 at line 126 of Mail/SpamAssassin/Plugin/DKIM.pm
# once (10µs+0s) by Net::CIDR::Lite::BEGIN@3 at line 3 of Net/CIDR/Lite.pm
# once (9µs+0s) by Scalar::Util::BEGIN@9 at line 9 of Scalar/Util.pm
# once (9µs+0s) by IO::Socket::UNIX::BEGIN@9 at line 9 of IO/Socket/UNIX.pm
# once (9µs+0s) by IO::Socket::INET::BEGIN@9 at line 9 of IO/Socket/INET.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 Config::BEGIN@5 at line 5 of Config_heavy.pl
# once (9µs+0s) by Socket6::BEGIN@38 at line 38 of Socket6.pm
# once (9µs+0s) by Mail::SpamAssassin::Plugin::WhiteListSubject::BEGIN@47 at line 47 of Mail/SpamAssassin/Plugin/WhiteListSubject.pm
# once (9µs+0s) by Net::LibIDN2::BEGIN@6 at line 6 of Net/LibIDN2.pm
# once (9µs+0s) by Socket::BEGIN@3 at line 3 of Socket.pm
# once (9µs+0s) by Mail::SpamAssassin::Conf::BEGIN@80 at line 80 of Mail/SpamAssassin/Conf.pm
# once (9µs+0s) by Digest::SHA1::BEGIN@3 at line 3 of Digest/SHA1.pm
# once (9µs+0s) by Net::DNS::Packet::BEGIN@29 at line 29 of Net/DNS/Packet.pm
# once (9µs+0s) by Mail::SpamAssassin::Plugin::WLBLEval::BEGIN@23 at line 23 of Mail/SpamAssassin/Plugin/WLBLEval.pm
# once (9µs+0s) by Pod::Usage::BEGIN@12 at line 12 of Pod/Usage.pm
# once (9µs+0s) by Net::DNS::RR::BEGIN@34 at line 34 of Net/DNS/RR.pm
# once (9µs+0s) by Digest::base::BEGIN@3 at line 3 of Digest/base.pm
# once (9µs+0s) by Mail::SpamAssassin::Timeout::BEGIN@56 at line 56 of Mail/SpamAssassin/Timeout.pm
# once (9µs+0s) by Mail::SpamAssassin::Util::ScopedTimer::BEGIN@22 at line 22 of Mail/SpamAssassin/Util/ScopedTimer.pm
# once (9µs+0s) by Pod::Simple::BEGIN@1506 at line 1506 of Pod/Simple.pm
# once (9µs+0s) by NetAddr::IP::Util::BEGIN@4 at line 4 of NetAddr/IP/Util.pm
# once (9µs+0s) by Net::LibIDN::BEGIN@4 at line 4 of Net/LibIDN.pm
# once (9µs+0s) by Net::DNS::Question::BEGIN@27 at line 27 of Net/DNS/Question.pm
# once (9µs+0s) by Mail::SpamAssassin::PluginHandler::BEGIN@31 at line 31 of Mail/SpamAssassin/PluginHandler.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::ImageInfo::BEGIN@85 at line 85 of Mail/SpamAssassin/Plugin/ImageInfo.pm
# once (9µs+0s) by Getopt::Long::BEGIN@17 at line 17 of Getopt/Long.pm
# once (9µs+0s) by constant::BEGIN@3 at line 3 of constant.pm
# once (9µs+0s) by URI::_idna::BEGIN@6 at line 6 of URI/_idna.pm
# once (9µs+0s) by Net::DNS::Resolver::BEGIN@15 at line 15 of Net/DNS/Resolver.pm
# once (9µs+0s) by Razor2::Client::Version::BEGIN@12 at line 12 of Razor2/Client/Version.pm
# once (9µs+0s) by Mail::SpamAssassin::NetSet::BEGIN@21 at line 21 of Mail/SpamAssassin/NetSet.pm
# once (9µs+0s) by Sys::Syslog::BEGIN@2 at line 2 of Sys/Syslog.pm
# once (9µs+0s) by IO::Socket::IP::BEGIN@13 at line 13 of IO/Socket/IP.pm
# once (8µs+0s) by Net::DNS::Header::BEGIN@28 at line 28 of Net/DNS/Header.pm
# once (8µs+0s) by File::Copy::BEGIN@11 at line 11 of File/Copy.pm
# once (8µs+0s) by Mail::SpamAssassin::Plugin::Bayes::BEGIN@46 at line 46 of Mail/SpamAssassin/Plugin/Bayes.pm
# once (8µs+0s) by Mail::SpamAssassin::Plugin::ReplaceTags::BEGIN@56 at line 56 of Mail/SpamAssassin/Plugin/ReplaceTags.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 Mail::SpamAssassin::BEGIN@62 at line 62 of Mail/SpamAssassin.pm
# once (8µs+0s) by Encode::BEGIN@5 at line 5 of Encode.pm
# once (8µs+0s) by Encode::Alias::BEGIN@2 at line 2 of Encode/Alias.pm
# once (8µs+0s) by Net::DNS::BEGIN@34 at line 34 of Net/DNS.pm
# once (8µs+0s) by Razor2::Logger::BEGIN@5 at line 5 of Razor2/Logger.pm
# once (8µs+0s) by IO::Socket::BEGIN@15 at line 15 of IO/Socket.pm
# once (8µs+0s) by Net::Patricia::BEGIN@26 at line 26 of Net/Patricia.pm
# once (8µs+0s) by Razor2::Client::Agent::BEGIN@14 at line 14 of Razor2/Client/Agent.pm
# once (8µs+0s) by File::Basename::BEGIN@50 at line 50 of File/Basename.pm
# once (8µs+0s) by Mail::SpamAssassin::Message::Metadata::BEGIN@40 at line 40 of Mail/SpamAssassin/Message/Metadata/Received.pm
# once (8µs+0s) by URI::Escape::BEGIN@3 at line 3 of URI/Escape.pm
# once (8µs+0s) by Term::ReadKey::BEGIN@7 at line 7 of Term/ReadKey.pm
# once (8µs+0s) by Mail::SpamAssassin::AsyncLoop::BEGIN@36 at line 36 of Mail/SpamAssassin/AsyncLoop.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 Mail::SpamAssassin::DnsResolver::BEGIN@38 at line 38 of Mail/SpamAssassin/DnsResolver.pm
# once (8µs+0s) by Razor2::Errorhandler::BEGIN@13 at line 13 of Razor2/Errorhandler.pm
# once (8µs+0s) by Mail::SpamAssassin::Logger::BEGIN@38 at line 38 of Mail/SpamAssassin/Logger.pm
# once (8µs+0s) by version::regex::BEGIN@3 at line 3 of version/regex.pm
# once (8µs+0s) by List::Util::BEGIN@9 at line 9 of List/Util.pm
# once (8µs+0s) by IO::Handle::BEGIN@264 at line 264 of IO/Handle.pm
# once (8µs+0s) by Net::DNS::Parameters::BEGIN@17 at line 17 of Net/DNS/Parameters.pm
# once (8µs+0s) by Mail::SpamAssassin::Plugin::Bayes::BEGIN@20 at line 20 of Mail/SpamAssassin/Bayes/CombineChi.pm
# once (8µs+0s) by Mail::SpamAssassin::PerMsgStatus::BEGIN@52 at line 52 of Mail/SpamAssassin/PerMsgStatus.pm
# once (8µs+0s) by File::Spec::Unix::BEGIN@3 at line 3 of File/Spec/Unix.pm
# once (8µs+0s) by IO::BEGIN@7 at line 7 of IO.pm
# once (8µs+0s) by Razor2::Preproc::Manager::BEGIN@9 at line 9 of Razor2/Preproc/Manager.pm
# once (8µs+0s) by Net::DNS::Resolver::UNIX::BEGIN@16 at line 16 of Net/DNS/Resolver/UNIX.pm
# once (8µs+0s) by Mail::SpamAssassin::Conf::LDAP::BEGIN@46 at line 46 of Mail/SpamAssassin/Conf/LDAP.pm
# once (8µs+0s) by Digest::SHA::BEGIN@5 at line 5 of Digest/SHA.pm
# once (8µs+0s) by File::Path::BEGIN@4 at line 4 of File/Path.pm
# once (8µs+0s) by Carp::BEGIN@4 at line 4 of Carp.pm
# once (8µs+0s) by Errno::BEGIN@8 at line 8 of Errno.pm
# once (8µs+0s) by DB_File::HASHINFO::BEGIN@15 at line 15 of DB_File.pm
# once (8µs+0s) by Razor2::Signature::Ephemeral::BEGIN@4 at line 4 of Razor2/Signature/Ephemeral.pm
# once (8µs+0s) by Mail::SpamAssassin::Logger::Stderr::BEGIN@32 at line 32 of Mail/SpamAssassin/Logger/Stderr.pm
# once (8µs+0s) by Mail::SpamAssassin::Locales::BEGIN@20 at line 20 of Mail/SpamAssassin/Locales.pm
# once (8µs+0s) by Pod::Escapes::BEGIN@2 at line 2 of Pod/Escapes.pm
# once (8µs+0s) by Mail::SpamAssassin::AICache::BEGIN@43 at line 43 of Mail/SpamAssassin/AICache.pm
# once (8µs+0s) by IO::Seekable::BEGIN@99 at line 99 of IO/Seekable.pm
# once (7µs+0s) by Mail::SpamAssassin::HTML::BEGIN@23 at line 23 of Mail/SpamAssassin/HTML.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 version::BEGIN@5 at line 5 of version.pm
# once (7µs+0s) by NetAddr::IP::Lite::BEGIN@6 at line 6 of NetAddr/IP/Lite.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 HTML::Parser::BEGIN@3 at line 3 of HTML/Parser.pm
# once (7µs+0s) by Mail::SpamAssassin::Bayes::BEGIN@35 at line 35 of Mail/SpamAssassin/Bayes.pm
# once (7µs+0s) by POSIX::BEGIN@2 at line 2 of POSIX.pm
# once (7µs+0s) by Cwd::BEGIN@2 at line 2 of Cwd.pm
# once (7µs+0s) by Config::BEGIN@9 at line 9 of Config.pm
# once (7µs+0s) by Mail::SpamAssassin::Message::Metadata::BEGIN@18 at line 18 of Mail/SpamAssassin/Dns.pm
# once (7µs+0s) by Mail::SpamAssassin::Locker::BEGIN@20 at line 20 of Mail/SpamAssassin/Locker.pm
# once (7µs+0s) by re::BEGIN@4 at line 4 of re.pm
# once (7µs+0s) by DB_File::RECNOINFO::BEGIN@116 at line 116 of DB_File.pm
# once (7µs+0s) by Mail::SpamAssassin::PerMsgStatus::BEGIN@23 at line 23 of Mail/SpamAssassin/Dns.pm
# once (7µs+0s) by Mail::SpamAssassin::Bayes::Combine::BEGIN@31 at line 31 of Mail/SpamAssassin/Bayes/CombineChi.pm
# once (7µs+0s) by AutoLoader::BEGIN@3 at line 3 of AutoLoader.pm
# once (7µs+0s) by Mail::SpamAssassin::Util::BEGIN@43 at line 43 of Mail/SpamAssassin/Util.pm
# once (7µs+0s) by NetAddr::IP::InetBase::BEGIN@4 at line 4 of NetAddr/IP/InetBase.pm
# once (6µs+0s) by DB_File::BEGIN@160 at line 160 of DB_File.pm
# once (6µs+0s) by DB_File::BTREEINFO::BEGIN@134 at line 134 of DB_File.pm
# once (6µs+0s) by Razor2::Errorhandler::BEGIN@32 at line 32 of Razor2/Errorhandler.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::Message::Metadata::BEGIN@44 at line 44 of Mail/SpamAssassin/Message/Metadata/Received.pm | ||||
61 | 181 | 318µs | shift; | ||
62 | 181 | 2.64ms | 2 | 61µs | $^H |= @_ ? &bits : all_bits | all_explicit_bits; # spent 61µs making 2 calls to strict::bits, avg 31µs/call |
63 | } | ||||
64 | |||||
65 | # spent 1.96ms (866µs+1.09) within strict::unimport which was called 42 times, avg 47µs/call:
# once (30µs+41µs) by Sys::Syslog::BEGIN@576 at line 576 of Sys/Syslog.pm
# once (28µs+39µs) by Mail::SpamAssassin::Plugin::Check::BEGIN@408 at line 408 of Mail/SpamAssassin/Plugin/Check.pm
# once (28µs+36µs) by Pod::Simple::BEGIN@1502 at line 1502 of Pod/Simple.pm
# once (25µs+34µs) by Net::DNS::Resolver::Base::BEGIN@1124 at line 1124 of Net/DNS/Resolver/Base.pm
# once (26µs+33µs) by IO::Handle::BEGIN@631 at line 631 of IO/Handle.pm
# once (28µs+31µs) by Mail::SpamAssassin::Plugin::Check::BEGIN@1167 at line 1167 of Mail/SpamAssassin/Plugin/Check.pm
# once (26µs+33µs) by Cwd::BEGIN@691 at line 691 of Cwd.pm
# once (24µs+32µs) by Net::Cmd::BEGIN@72 at line 72 of Net/Cmd.pm
# once (25µs+31µs) by Mail::SpamAssassin::Conf::Parser::BEGIN@592 at line 592 of Mail/SpamAssassin/Conf/Parser.pm
# once (23µs+33µs) by List::Util::BEGIN@30 at line 30 of List/Util.pm
# once (25µs+31µs) by Net::DNS::RR::BEGIN@758 at line 758 of Net/DNS/RR.pm
# once (18µs+37µs) by Carp::BEGIN@132 at line 132 of Carp.pm
# once (22µs+33µs) by IO::Socket::SSL::BEGIN@261 at line 261 of IO/Socket/SSL.pm
# once (23µs+31µs) by Sys::Syslog::BEGIN@13 at line 13 of Sys/Syslog.pm
# once (22µs+30µs) by Net::LibIDN::BEGIN@85 at line 85 of Net/LibIDN.pm
# once (22µs+30µs) by DB_File::BEGIN@240 at line 240 of DB_File.pm
# once (22µs+30µs) by Carp::BEGIN@592 at line 592 of Carp.pm
# once (19µs+33µs) by IO::Socket::SSL::BEGIN@398 at line 398 of IO/Socket/SSL.pm
# once (22µs+30µs) by AutoLoader::BEGIN@37 at line 37 of AutoLoader.pm
# once (20µs+30µs) by Time::HiRes::BEGIN@48 at line 48 of Time/HiRes.pm
# once (21µs+29µs) by Exporter::Heavy::BEGIN@4 at line 4 of Exporter/Heavy.pm
# once (25µs+24µs) by Config::BEGIN@47 at line 47 of Config.pm
# once (20µs+30µs) by Mail::SpamAssassin::Plugin::Check::BEGIN@1328 at line 1328 of Mail/SpamAssassin/Plugin/Check.pm
# once (20µs+28µs) by Socket::BEGIN@936 at line 936 of Socket.pm
# once (20µs+28µs) by version::BEGIN@24 at line 24 of version.pm
# once (19µs+26µs) by constant::BEGIN@40 at line 40 of constant.pm
# once (19µs+26µs) by File::Spec::Unix::BEGIN@182 at line 182 of File/Spec/Unix.pm
# once (16µs+28µs) by constant::BEGIN@90 at line 90 of constant.pm
# once (17µs+26µs) by File::Path::BEGIN@29 at line 29 of File/Path.pm
# once (18µs+25µs) by Sys::Syslog::BEGIN@163 at line 163 of Sys/Syslog.pm
# once (15µs+28µs) by Sys::Syslog::BEGIN@169 at line 169 of Sys/Syslog.pm
# once (18µs+24µs) by AutoLoader::BEGIN@146 at line 146 of AutoLoader.pm
# once (17µs+24µs) by Carp::BEGIN@612 at line 612 of Carp.pm
# once (16µs+24µs) by Sys::Syslog::BEGIN@605 at line 605 of Sys/Syslog.pm
# once (15µs+24µs) by constant::BEGIN@65 at line 65 of constant.pm
# once (16µs+22µs) by AutoLoader::BEGIN@194 at line 194 of AutoLoader.pm
# once (15µs+22µs) by constant::BEGIN@141 at line 141 of constant.pm
# once (18µs+0s) by NetAddr::IP::Lite::BEGIN@174 at line 174 of NetAddr/IP/Lite.pm
# once (18µs+0s) by POSIX::BEGIN@206 at line 206 of POSIX.pm
# once (16µs+0s) by Term::ReadKey::BEGIN@353 at line 353 of Term/ReadKey.pm
# once (15µs+0s) by File::Glob::BEGIN@58 at line 58 of File/Glob.pm
# once (15µs+0s) by Razor2::Errorhandler::BEGIN@21 at line 21 of Razor2/Errorhandler.pm | ||||
66 | 42 | 76µs | shift; | ||
67 | |||||
68 | 42 | 509µs | if (@_) { | ||
69 | 37 | 296µs | 37 | 1.09ms | $^H &= ~&bits; # spent 1.09ms making 37 calls to strict::bits, avg 30µs/call |
70 | } | ||||
71 | else { | ||||
72 | 5 | 21µs | $^H &= ~all_bits; | ||
73 | 5 | 13µs | $^H |= all_explicit_bits; | ||
74 | } | ||||
75 | } | ||||
76 | |||||
77 | 1 | 14µs | 1; | ||
78 | __END__ | ||||
# spent 20µs within strict::CORE:match which was called:
# once (20µs+0s) by strict::BEGIN@7 at line 11 |