Profile of strict.pm

Filename	/usr/share/perl/5.20/strict.pm
Statements	Executed 5695 statements in 8.96ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
397	2	1	2.82ms	2.82ms	strict::::bitsstrict::bits
285	282	262	1.38ms	3.48ms	strict::::importstrict::import
112	112	58	640µs	1.36ms	strict::::unimportstrict::unimport
1	1	1	42µs	42µs	strict::::CORE:regcompstrict::CORE:regcomp (opcode)
1	1	1	14µs	14µs	strict::::CORE:matchstrict::CORE:match (opcode)

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package strict;
2
3	1	700ns			$strict::VERSION = "1.08";
4
5					# Verify that we're called correctly so that strictures will work.
6	1	74µs	2	56µs	unless ( __FILE__ =~ /(^\|[\/\\])\Q${\__PACKAGE__}\E\.pmc?$/ ) { # spent 42µs making 1 call to strict::CORE:regcomp # spent 14µs making 1 call to strict::CORE:match
7					# Can't use Carp, since Carp uses us!
8					my (undef, $f, $l) = caller;
9					die("Incorrect use of pragma '${\__PACKAGE__}' at $f line $l.\n");
10					}
11
12	1	4µs			my %bitmask = (
13					refs => 0x00000002,
14					subs => 0x00000200,
15					vars => 0x00000400
16					);
17	1	900ns			my %explicit_bitmask = (
18					refs => 0x00000020,
19					subs => 0x00000040,
20					vars => 0x00000080
21					);
22
23					# spent 2.82ms within strict::bits which was called 397 times, avg 7µs/call: # 285 times (2.10ms+0s) by strict::import at line 44, avg 7µs/call # 112 times (720µs+0s) by strict::unimport at line 49, avg 6µs/call sub bits {
24	397	134µs			my $bits = 0;
25	397	70µs			my @wrong;
26	397	376µs			foreach my $s (@_) {
27	970	375µs			if (exists $bitmask{$s}) {
28	970	689µs			$^H \|= $explicit_bitmask{$s};
29					}
30					else { push @wrong, $s };
31	970	599µs			$bits \|= $bitmask{$s} \|\| 0;
32					}
33	397	127µs			if (@wrong) {
34					require Carp;
35					Carp::croak("Unknown 'strict' tag(s) '@wrong'");
36					}
37	397	1.28ms			$bits;
38					}
39
40	1	1µs			my @default_bits = qw(refs subs vars);
41
42					# spent 3.48ms (1.38+2.10) within strict::import which was called 285 times, avg 12µs/call: # 4 times (13µs+28µs) by Modern::Perl::import at line 42 of Modern/Perl.pm, avg 10µs/call # once (11µs+17µs) by Modern::Perl::BEGIN@9 at line 9 of Modern/Perl.pm # once (11µs+13µs) by mro::BEGIN@10 at line 10 of mro.pm # once (6µs+17µs) by C4::Service::BEGIN@44 at line 44 of C4/Service.pm # once (9µs+14µs) by Digest::MD5::BEGIN@3 at line 3 of Digest/MD5.pm # once (16µs+6µs) by File::Temp::Dir::BEGIN@1542 at line 1542 of File/Temp.pm # once (7µs+13µs) by HTTP::Message::BEGIN@3 at line 3 of HTTP/Message.pm # once (6µs+13µs) by DBD::_::common::BEGIN@1356 at line 1356 of DBI.pm # once (8µs+12µs) by CGI::Session::Serialize::yaml::BEGIN@3 at line 3 of CGI/Session/Serialize/yaml.pm # once (8µs+11µs) by C4::Auth::BEGIN@20 at line 20 of C4/Auth.pm # once (8µs+11µs) by C4::Context::BEGIN@19 at line 19 of C4/Context.pm # once (8µs+11µs) by Fcntl::BEGIN@3 at line 3 of Fcntl.pm # once (7µs+11µs) by IO::File::BEGIN@6 at line 6 of IO/File.pm # once (8µs+10µs) by C4::Boolean::BEGIN@24 at line 24 of C4/Boolean.pm # once (7µs+11µs) by C4::Items::BEGIN@21 at line 21 of C4/Items.pm # once (7µs+11µs) by CGI::Session::ID::md5::BEGIN@5 at line 5 of CGI/Session/ID/md5.pm # once (6µs+11µs) by CGI::Cookie::BEGIN@3 at line 3 of CGI/Cookie.pm # once (6µs+11µs) by Carp::BEGIN@4 at line 4 of Carp.pm # once (5µs+12µs) by DBD::_::db::BEGIN@1521 at line 1521 of DBI.pm # once (7µs+10µs) by Config::BEGIN@9 at line 9 of Config.pm # once (7µs+10µs) by C4::Output::BEGIN@28 at line 28 of C4/Output.pm # once (7µs+10µs) by XML::Simple::BEGIN@40 at line 40 of XML/Simple.pm # once (7µs+10µs) by C4::Members::AttributeTypes::BEGIN@20 at line 20 of C4/Members/AttributeTypes.pm # once (7µs+10µs) by DBD::_::st::BEGIN@1831 at line 1831 of DBI.pm # once (7µs+10µs) by Exporter::Heavy::BEGIN@3 at line 3 of Exporter/Heavy.pm # once (6µs+10µs) by Readonly::BEGIN@3 at line 3 of Readonly.pm # once (6µs+10µs) by IO::Handle::BEGIN@4 at line 4 of IO/Handle.pm # once (6µs+10µs) by C4::NewsChannels::BEGIN@20 at line 20 of C4/NewsChannels.pm # once (6µs+9µs) by Scalar::Util::BEGIN@9 at line 9 of Scalar/Util.pm # once (6µs+9µs) by C4::ItemCirculationAlertPreference::BEGIN@20 at line 20 of C4/ItemCirculationAlertPreference.pm # once (6µs+10µs) by C4::SQLHelper::BEGIN@21 at line 21 of C4/SQLHelper.pm # once (5µs+10µs) by C4::ClassSortRoutine::Dewey::BEGIN@20 at line 20 of C4/ClassSortRoutine/Dewey.pm # once (7µs+9µs) by URI::Escape::BEGIN@3 at line 3 of URI/Escape.pm # once (6µs+10µs) by IO::Seekable::BEGIN@7 at line 7 of IO/Seekable.pm # once (6µs+9µs) by C4::Linker::BEGIN@45 at line 45 of C4/Linker.pm # once (6µs+9µs) by C4::Debug::BEGIN@20 at line 20 of C4/Debug.pm # once (6µs+9µs) by List::Util::BEGIN@9 at line 9 of List/Util.pm # once (6µs+9µs) by C4::Context::BEGIN@1 at line 1 of ZOOM.pm # once (6µs+9µs) by DBD::_::dr::BEGIN@1456 at line 1456 of DBI.pm # once (6µs+9µs) by DateTime::Infinite::BEGIN@3 at line 3 of DateTime/Infinite.pm # once (5µs+10µs) by deprecate::BEGIN@2 at line 2 of deprecate.pm # once (6µs+9µs) by DBI::_firesafe::BEGIN@3 at line 3 of DBD/mysql.pm # once (6µs+9µs) by Template::Service::BEGIN@23 at line 23 of Template/Service.pm # once (6µs+9µs) by MARC::Charset::Table::BEGIN@34 at line 34 of MARC/Charset/Table.pm # once (5µs+9µs) by IO::BEGIN@7 at line 7 of IO.pm # once (6µs+9µs) by C4::Members::Messaging::BEGIN@20 at line 20 of C4/Members/Messaging.pm # once (5µs+9µs) by constant::BEGIN@3 at line 3 of constant.pm # once (6µs+8µs) by C4::Circulation::BEGIN@22 at line 22 of C4/Circulation.pm # once (6µs+8µs) by C4::Charset::BEGIN@20 at line 20 of C4/Charset.pm # once (6µs+9µs) by C4::VirtualShelves::BEGIN@20 at line 20 of C4/VirtualShelves.pm # once (6µs+8µs) by Authen::CAS::Client::BEGIN@5 at line 5 of Authen/CAS/Client.pm # once (6µs+8µs) by C4::Context::BEGIN@16 at line 16 of kohaversion.pl # once (6µs+8µs) by Module::Implementation::BEGIN@5 at line 5 of Module/Implementation.pm # once (6µs+8µs) by DBI::Const::GetInfoType::BEGIN@12 at line 12 of DBI/Const/GetInfoType.pm # once (6µs+8µs) by HTTP::Request::BEGIN@7 at line 7 of HTTP/Request.pm # once (4µs+10µs) by DateTime::Format::Builder::Parser::Dispatch::BEGIN@5 at line 5 of DateTime/Format/Builder/Parser/Dispatch.pm # once (6µs+8µs) by C4::SMS::BEGIN@35 at line 35 of C4/SMS.pm # once (6µs+8µs) by Text::Unaccent::BEGIN@20 at line 20 of Text/Unaccent.pm # once (6µs+8µs) by C4::Koha::BEGIN@23 at line 23 of C4/Koha.pm # once (6µs+8µs) by DateTime::TimeZone::Floating::BEGIN@3 at line 3 of DateTime/TimeZone/Floating.pm # once (6µs+8µs) by HTTP::Headers::BEGIN@3 at line 3 of HTTP/Headers.pm # once (6µs+8µs) by attributes::BEGIN@9 at line 9 of attributes.pm # once (4µs+10µs) by MARC::File::Encode::BEGIN@19 at line 19 of MARC/File/Encode.pm # once (6µs+8µs) by C4::Budgets::BEGIN@20 at line 20 of C4/Budgets.pm # once (5µs+8µs) by Module::Load::Conditional::BEGIN@3 at line 3 of Module/Load/Conditional.pm # once (6µs+8µs) by C4::ClassSource::BEGIN@20 at line 20 of C4/ClassSource.pm # once (6µs+8µs) by C4::Accounts::BEGIN@21 at line 21 of C4/Accounts.pm # once (6µs+8µs) by Digest::base::BEGIN@3 at line 3 of Digest/base.pm # once (6µs+8µs) by C4::Templates::BEGIN@3 at line 3 of C4/Templates.pm # once (5µs+8µs) by C4::ClassSortRoutine::Generic::BEGIN@20 at line 20 of C4/ClassSortRoutine/Generic.pm # once (5µs+8µs) by CGI::Session::ErrorHandler::BEGIN@5 at line 5 of CGI/Session/ErrorHandler.pm # once (5µs+8µs) by DateTime::TimeZone::Catalog::BEGIN@10 at line 10 of DateTime/TimeZone/Catalog.pm # once (7µs+7µs) by Variable::Magic::BEGIN@5 at line 5 of Variable/Magic.pm # once (5µs+8µs) by C4::Auth_with_cas::BEGIN@20 at line 20 of C4/Auth_with_cas.pm # once (5µs+8µs) by C4::Members::BEGIN@23 at line 23 of C4/Members.pm # once (5µs+8µs) by vars::BEGIN@8 at line 8 of vars.pm # once (5µs+8µs) by Authen::CAS::Client::BEGIN@3 at line 3 of Authen/CAS/Client/Response.pm # once (6µs+8µs) by POSIX::BEGIN@2 at line 2 of POSIX.pm # once (5µs+8µs) by URI::BEGIN@3 at line 3 of URI.pm # once (5µs+8µs) by Net::Z3950::ZOOM::BEGIN@4 at line 4 of Net/Z3950/ZOOM.pm # once (5µs+8µs) by C4::Output::JSONStream::BEGIN@39 at line 39 of C4/Output/JSONStream.pm # once (5µs+8µs) by Date::Manip::Lang::english::BEGIN@11 at line 11 of Date/Manip/Lang/english.pm # once (5µs+8µs) by CGI::Util::BEGIN@4 at line 4 of CGI/Util.pm # once (5µs+8µs) by C4::Languages::BEGIN@22 at line 22 of C4/Languages.pm # once (5µs+8µs) by C4::ItemType::BEGIN@21 at line 21 of C4/ItemType.pm # once (6µs+7µs) by C4::Branch::BEGIN@19 at line 19 of C4/Branch.pm # once (5µs+8µs) by LWP::UserAgent::BEGIN@3 at line 3 of LWP/UserAgent.pm # once (5µs+8µs) by Set::Infinite::_recurrence::BEGIN@7 at line 7 of Set/Infinite/_recurrence.pm # once (5µs+8µs) by CGI::Session::Driver::mysql::BEGIN@5 at line 5 of CGI/Session/Driver/mysql.pm # once (6µs+7µs) by base::BEGIN@3 at line 3 of base.pm # once (5µs+8µs) by Date::Manip::TZ::etgmt00::BEGIN@17 at line 17 of Date/Manip/TZ/etgmt00.pm # once (5µs+8µs) by DBI::BEGIN@286 at line 286 of DBI.pm # once (5µs+8µs) by Koha::DateUtils::BEGIN@19 at line 19 of Koha/DateUtils.pm # once (5µs+8µs) by C4::Message::BEGIN@22 at line 22 of C4/Message.pm # once (5µs+8µs) by Config::BEGIN@5 at line 5 of Config_heavy.pl # once (5µs+7µs) by MIME::Lite::SMTP::BEGIN@3106 at line 3106 of MIME/Lite.pm # once (5µs+8µs) by Set::Infinite::Arithmetic::BEGIN@6 at line 6 of Set/Infinite/Arithmetic.pm # once (5µs+8µs) by C4::ClassSortRoutine::BEGIN@20 at line 20 of C4/ClassSortRoutine.pm # once (5µs+8µs) by C4::ClassSortRoutine::LCC::BEGIN@21 at line 21 of C4/ClassSortRoutine/LCC.pm # once (5µs+7µs) by Template::Base::BEGIN@22 at line 22 of Template/Base.pm # once (5µs+7µs) by C4::Log::BEGIN@24 at line 24 of C4/Log.pm # once (5µs+8µs) by DateTime::TimeZone::UTC::BEGIN@3 at line 3 of DateTime/TimeZone/UTC.pm # once (5µs+7µs) by Params::Validate::XS::BEGIN@3 at line 3 of Params/Validate/XS.pm # once (5µs+7µs) by parent::BEGIN@2 at line 2 of parent.pm # once (5µs+8µs) by C4::Stats::BEGIN@21 at line 21 of C4/Stats.pm # once (5µs+8µs) by DateTime::TimeZone::BEGIN@7 at line 7 of DateTime/TimeZone.pm # once (5µs+8µs) by AnyDBM_File::BEGIN@3 at line 3 of AnyDBM_File.pm # once (5µs+7µs) by Data::OptList::BEGIN@1 at line 1 of Sub/Install.pm # once (5µs+7µs) by GDBM_File::BEGIN@44 at line 44 of GDBM_File.pm # once (5µs+7µs) by Module::Load::BEGIN@5 at line 5 of Module/Load.pm # once (5µs+7µs) by Koha::Calendar::BEGIN@2 at line 2 of Koha/Calendar.pm # once (5µs+7µs) by C4::Category::BEGIN@21 at line 21 of C4/Category.pm # once (5µs+8µs) by C4::Letters::BEGIN@20 at line 20 of C4/Letters.pm # once (5µs+7µs) by MARC::Charset::Code::BEGIN@3 at line 3 of MARC/Charset/Code.pm # once (5µs+7µs) by DateTime::TimeZone::Local::BEGIN@3 at line 3 of DateTime/TimeZone/Local.pm # once (5µs+7µs) by DateTime::TimeZone::Local::BEGIN@1 at line 1 of Class/Load.pm # once (5µs+7µs) by Template::Exception::BEGIN@22 at line 22 of Template/Exception.pm # once (5µs+7µs) by Class::Singleton::BEGIN@19 at line 19 of Class/Singleton.pm # once (5µs+7µs) by YAML::BEGIN@1 at line 1 of YAML/Node.pm # once (5µs+7µs) by DateTime::TimeZone::OffsetOnly::BEGIN@3 at line 3 of DateTime/TimeZone/OffsetOnly.pm # once (5µs+7µs) by C4::Overdues::BEGIN@22 at line 22 of C4/Overdues.pm # once (5µs+7µs) by Text::Iconv::BEGIN@5 at line 5 of Text/Iconv.pm # once (5µs+7µs) by Sub::Exporter::Progressive::BEGIN@3 at line 3 of Sub/Exporter/Progressive.pm # once (5µs+7µs) by CGI::Session::BEGIN@2 at line 2 of CGI/Session.pm # once (4µs+7µs) by File::Temp::BEGIN@9 at line 9 of File/Temp.pm # once (4µs+8µs) by Try::Tiny::BEGIN@9 at line 9 of Try/Tiny.pm # once (4µs+7µs) by String::Random::BEGIN@17 at line 17 of String/Random.pm # once (5µs+7µs) by HTTP::Response::BEGIN@7 at line 7 of HTTP/Response.pm # once (5µs+7µs) by JSON::BEGIN@4 at line 4 of JSON.pm # once (5µs+7µs) by Class::Load::BEGIN@1 at line 1 of Data/OptList.pm # once (5µs+7µs) by C4::Reserves::BEGIN@24 at line 24 of C4/Reserves.pm # once (5µs+7µs) by Template::Config::BEGIN@21 at line 21 of Template/Config.pm # once (5µs+7µs) by C4::Members::Attributes::BEGIN@20 at line 20 of C4/Members/Attributes.pm # once (4µs+8µs) by Date::Manip::Recur::BEGIN@19 at line 19 of Date/Manip/Recur.pm # once (5µs+7µs) by Params::Validate::Constants::BEGIN@3 at line 3 of Params/Validate/Constants.pm # once (5µs+7µs) by YAML::Mo::BEGIN@5.5 at line 5 of YAML/Mo.pm # once (4µs+7µs) by XML::NamespaceSupport::BEGIN@8 at line 8 of XML/NamespaceSupport.pm # once (4µs+7µs) by MARC::Charset::BEGIN@3 at line 3 of MARC/Charset.pm # once (5µs+7µs) by Cwd::BEGIN@3 at line 3 of Cwd.pm # once (5µs+7µs) by C4::Dates::BEGIN@22 at line 22 of C4/Dates.pm # once (4µs+8µs) by Crypt::Eksblowfish::Bcrypt::BEGIN@39 at line 39 of Crypt/Eksblowfish/Bcrypt.pm # once (4µs+7µs) by Sub::Name::BEGIN@55 at line 55 of Sub/Name.pm # once (5µs+6µs) by Math::BigInt::Calc::BEGIN@4 at line 4 of Math/BigInt/Calc.pm # once (5µs+6µs) by Params::Check::BEGIN@3 at line 3 of Params/Check.pm # once (4µs+7µs) by Date::Manip::Delta::BEGIN@19 at line 19 of Date/Manip/Delta.pm # once (4µs+7µs) by XML::LibXML::AttributeHash::BEGIN@3 at line 3 of XML/LibXML/AttributeHash.pm # once (5µs+7µs) by XML::SAX::ParserFactory::BEGIN@5 at line 5 of XML/SAX/ParserFactory.pm # once (4µs+7µs) by _charnames::BEGIN@7 at line 7 of _charnames.pm # once (5µs+7µs) by MARC::File::USMARC::BEGIN@9 at line 9 of MARC/File/USMARC.pm # once (5µs+7µs) by Errno::BEGIN@8 at line 8 of Errno.pm # once (5µs+7µs) by XML::SAX::BEGIN@5 at line 5 of XML/SAX.pm # once (5µs+7µs) by File::Spec::Unix::BEGIN@3 at line 3 of File/Spec/Unix.pm # once (5µs+7µs) by Locale::Maketext::Simple::BEGIN@4 at line 4 of Locale/Maketext/Simple.pm # once (5µs+6µs) by File::Spec::BEGIN@3 at line 3 of File/Spec.pm # once (5µs+7µs) by YAML::Node::BEGIN@1 at line 1 of YAML/Tag.pm # once (4µs+7µs) by XML::Parser::BEGIN@11 at line 11 of XML/Parser.pm # once (4µs+7µs) by Memoize::BEGIN@32 at line 32 of Memoize.pm # once (4µs+7µs) by Date::Manip::Date::BEGIN@1 at line 1 of Tie/Hash/NamedCapture.pm # once (5µs+7µs) by utf8::BEGIN@2 at line 2 of utf8_heavy.pl # once (4µs+7µs) by Crypt::Eksblowfish::BEGIN@48 at line 48 of Crypt/Eksblowfish.pm # once (4µs+7µs) by Params::Validate::BEGIN@5 at line 5 of Params/Validate.pm # once (4µs+7µs) by DBD::mysql::dr::BEGIN@111 at line 111 of DBD/mysql.pm # once (5µs+7µs) by Class::Factory::Util::BEGIN@3 at line 3 of Class/Factory/Util.pm # once (4µs+7µs) by AutoLoader::BEGIN@3 at line 3 of AutoLoader.pm # once (4µs+7µs) by C4::Biblio::BEGIN@22 at line 22 of C4/Biblio.pm # once (4µs+7µs) by Set::Infinite::BEGIN@15 at line 15 of Set/Infinite.pm # once (5µs+6µs) by Date::Calc::BEGIN@14 at line 14 of Date/Calc.pm # once (4µs+7µs) by YAML::Syck::BEGIN@5 at line 5 of YAML/Syck.pm # once (4µs+7µs) by CGI::Session::Driver::DBI::BEGIN@5 at line 5 of CGI/Session/Driver/DBI.pm # once (4µs+7µs) by Template::BEGIN@22 at line 22 of Template.pm # once (5µs+6µs) by DateTime::Format::Builder::Parser::BEGIN@5 at line 5 of DateTime/Format/Builder/Parser.pm # once (4µs+7µs) by Mail::Sendmail::BEGIN@38 at line 38 of Mail/Sendmail.pm # once (4µs+6µs) by DateTime::Locale::BEGIN@3 at line 3 of DateTime/Locale.pm # once (4µs+7µs) by Set::Infinite::Basic::BEGIN@8 at line 8 of Set/Infinite/Basic.pm # once (4µs+7µs) by MARC::File::BEGIN@9 at line 9 of MARC/File.pm # once (4µs+7µs) by Template::Document::BEGIN@24 at line 24 of Template/Document.pm # once (5µs+6µs) by DateTime::Format::Builder::BEGIN@6 at line 6 of DateTime/Format/Builder.pm # once (4µs+6µs) by XML::LibXML::XPathContext::BEGIN@12 at line 12 of XML/LibXML/XPathContext.pm # once (4µs+6µs) by Date::Manip::Zones::BEGIN@16 at line 16 of Date/Manip/Zones.pm # once (4µs+7µs) by MIME::QuotedPrint::BEGIN@3 at line 3 of MIME/QuotedPrint.pm # once (4µs+6µs) by HTTP::Date::BEGIN@10 at line 10 of HTTP/Date.pm # once (4µs+6µs) by Encode::Encoding::BEGIN@4 at line 4 of Encode/Encoding.pm # once (4µs+7µs) by charnames::BEGIN@2 at line 2 of charnames.pm # once (4µs+6µs) by DateTime::Format::MySQL::BEGIN@3 at line 3 of DateTime/Format/MySQL.pm # once (4µs+6µs) by DateTime::Duration::BEGIN@3 at line 3 of DateTime/Duration.pm # once (4µs+6µs) by XML::SAX::Expat::BEGIN@8 at line 8 of XML/SAX/Expat.pm # once (4µs+6µs) by XML::LibXML::NodeList::BEGIN@12 at line 12 of XML/LibXML/NodeList.pm # once (5µs+6µs) by MIME::Base64::BEGIN@3 at line 3 of MIME/Base64.pm # once (4µs+6µs) by Template::Constants::BEGIN@22 at line 22 of Template/Constants.pm # once (4µs+6µs) by URI::QueryParam::BEGIN@3 at line 3 of URI/QueryParam.pm # once (4µs+6µs) by MIME::Lite::BEGIN@2 at line 2 of MIME/Lite.pm # once (4µs+6µs) by version::regex::BEGIN@3 at line 3 of version/regex.pm # once (4µs+6µs) by Sys::Hostname::Long::BEGIN@2 at line 2 of Sys/Hostname/Long.pm # once (4µs+6µs) by Class::Accessor::BEGIN@3 at line 3 of Class/Accessor.pm # once (4µs+6µs) by DateTime::Format::DateParse::BEGIN@7 at line 7 of DateTime/Format/DateParse.pm # once (4µs+6µs) by DateTime::Locale::Catalog::BEGIN@17 at line 17 of DateTime/Locale/Catalog.pm # once (4µs+7µs) by File::Path::BEGIN@4 at line 4 of File/Path.pm # once (4µs+7µs) by DBD::mysql::db::BEGIN@196 at line 196 of DBD/mysql.pm # once (4µs+6µs) by Date::Manip::Lang::index::BEGIN@24 at line 24 of Date/Manip/Lang/index.pm # once (4µs+7µs) by Template::Provider::BEGIN@41 at line 41 of Template/Provider.pm # once (4µs+6µs) by Text::CSV_XS::BEGIN@23 at line 23 of Text/CSV_XS.pm # once (4µs+6µs) by CGI::Session::Driver::BEGIN@3 at line 3 of CGI/Session/Driver.pm # once (4µs+7µs) by Locale::Maketext::Lexicon::BEGIN@4 at line 4 of Locale/Maketext/Lexicon.pm # once (4µs+6µs) by Encode::Config::BEGIN@7 at line 7 of Encode/Config.pm # once (4µs+6µs) by MARC::Charset::Constants::BEGIN@18 at line 18 of MARC/Charset/Constants.pm # once (4µs+6µs) by Socket::BEGIN@3 at line 3 of Socket.pm # once (4µs+6µs) by DateTime::Locale::Base::BEGIN@3 at line 3 of DateTime/Locale/Base.pm # once (4µs+6µs) by XML::Parser::Expat::BEGIN@5 at line 5 of XML/Parser/Expat.pm # once (4µs+6µs) by LWP::Protocol::BEGIN@7 at line 7 of LWP/Protocol.pm # once (4µs+7µs) by Params::Util::BEGIN@59 at line 59 of Params/Util.pm # once (4µs+7µs) by Algorithm::CheckDigits::BEGIN@5 at line 5 of Algorithm/CheckDigits.pm # once (4µs+6µs) by DateTime::Span::BEGIN@7 at line 7 of DateTime/Span.pm # once (4µs+7µs) by B::Hooks::EndOfScope::BEGIN@12 at line 12 of B/Hooks/EndOfScope.pm # once (4µs+7µs) by FileHandle::BEGIN@4 at line 4 of FileHandle.pm # once (4µs+6µs) by DateTime::Locale::en_US::BEGIN@21 at line 21 of DateTime/Locale/en_US.pm # once (4µs+6µs) by DateTime::Format::Builder::Parser::generic::BEGIN@5 at line 5 of DateTime/Format/Builder/Parser/generic.pm # once (4µs+6µs) by re::BEGIN@4 at line 4 of re.pm # once (4µs+6µs) by Date::Parse::BEGIN@8 at line 8 of Date/Parse.pm # once (4µs+6µs) by DateTime::Format::Builder::Parser::Regex::BEGIN@7 at line 7 of DateTime/Format/Builder/Parser/Regex.pm # once (4µs+6µs) by Class::Load::XS::BEGIN@8 at line 8 of Class/Load/XS.pm # once (4µs+6µs) by Carp::Clan::BEGIN@16 at line 16 of Carp/Clan.pm # once (4µs+6µs) by DateTime::Set::BEGIN@3 at line 3 of DateTime/Set.pm # once (5µs+5µs) by Date::Manip::TZ::BEGIN@1605 at line 1605 of Date/Manip/TZ.pm # once (4µs+6µs) by Module::Metadata::BEGIN@12 at line 12 of Module/Metadata.pm # once (4µs+6µs) by Sys::Hostname::BEGIN@3 at line 3 of Sys/Hostname.pm # once (4µs+6µs) by HTTP::Status::BEGIN@3 at line 3 of HTTP/Status.pm # once (4µs+6µs) by Text::CSV::BEGIN@4 at line 4 of Text/CSV.pm # once (4µs+6µs) by XML::LibXML::BEGIN@13 at line 13 of XML/LibXML.pm # once (4µs+6µs) by DateTime::Format::Strptime::BEGIN@5 at line 5 of DateTime/Format/Strptime.pm # once (4µs+6µs) by XML::LibXML::Error::BEGIN@11 at line 11 of XML/LibXML/Error.pm # once (4µs+6µs) by Package::Stash::XS::BEGIN@8 at line 8 of Package/Stash/XS.pm # once (4µs+6µs) by DateTime::Locale::en::BEGIN@21 at line 21 of DateTime/Locale/en.pm # once (4µs+6µs) by FakeLocale::BEGIN@89 at line 89 of DateTime/Infinite.pm # once (4µs+6µs) by version::BEGIN@5 at line 5 of version.pm # once (4µs+6µs) by Date::Manip::DM6::BEGIN@52 at line 52 of Date/Manip/DM6.pm # once (4µs+6µs) by File::Basename::BEGIN@12 at line 12 of File/Basename.pm # once (4µs+6µs) by Encode::Alias::BEGIN@2 at line 2 of Encode/Alias.pm # once (4µs+6µs) by DateTime::Format::Builder::Parser::Strptime::BEGIN@7 at line 7 of DateTime/Format/Builder/Parser/Strptime.pm # once (4µs+6µs) by DateTime::SpanSet::BEGIN@7 at line 7 of DateTime/SpanSet.pm # once (4µs+6µs) by MARC::Field::BEGIN@3 at line 3 of MARC/Field.pm # once (4µs+6µs) by B::Hooks::EndOfScope::XS::BEGIN@10 at line 10 of B/Hooks/EndOfScope/XS.pm # once (4µs+6µs) by DateTime::Format::Builder::Parser::Quick::BEGIN@5 at line 5 of DateTime/Format/Builder/Parser/Quick.pm # once (4µs+6µs) by MARC::Record::BEGIN@9 at line 9 of MARC/Record.pm # once (4µs+6µs) by MIME::Types::BEGIN@11 at line 11 of MIME/Types.pm # once (3µs+7µs) by Crypt::Eksblowfish::Subkeyed::BEGIN@71 at line 71 of Crypt/Eksblowfish/Subkeyed.pm # once (4µs+6µs) by Encode::BEGIN@5 at line 5 of Encode.pm # once (4µs+6µs) by Package::Stash::BEGIN@6 at line 6 of Package/Stash.pm # once (4µs+6µs) by Mail::Address::BEGIN@9 at line 9 of Mail/Address.pm # once (4µs+6µs) by DateTime::Infinite::Future::BEGIN@38 at line 38 of DateTime/Infinite.pm # once (4µs+6µs) by XML::LibXML::Number::BEGIN@13 at line 13 of XML/LibXML/Number.pm # once (4µs+6µs) by DateTime::Helpers::BEGIN@3 at line 3 of DateTime/Helpers.pm # once (3µs+6µs) by File::Find::BEGIN@3 at line 3 of File/Find.pm # once (3µs+6µs) by Unicode::Normalize::BEGIN@13 at line 13 of Unicode/Normalize.pm # once (3µs+6µs) by XML::SAX::Exception::BEGIN@6 at line 6 of XML/SAX/Exception.pm # once (4µs+6µs) by DateTime::BEGIN@7 at line 7 of DateTime.pm # once (4µs+6µs) by XML::LibXML::Literal::BEGIN@15 at line 15 of XML/LibXML/Literal.pm # once (4µs+6µs) by DateTime::Locale::root::BEGIN@21 at line 21 of DateTime/Locale/root.pm # once (3µs+6µs) by XML::LibXML::Boolean::BEGIN@14 at line 14 of XML/LibXML/Boolean.pm # once (4µs+6µs) by Library::CallNumber::LC::BEGIN@4 at line 4 of Library/CallNumber/LC.pm # once (4µs+6µs) by Date::Calc::XS::BEGIN@15 at line 15 of Date/Calc/XS.pm # once (4µs+6µs) by List::MoreUtils::BEGIN@4 at line 4 of List/MoreUtils.pm # once (4µs+6µs) by MARC::File::XML::BEGIN@4 at line 4 of MARC/File/XML.pm # once (3µs+6µs) by namespace::clean::BEGIN@4 at line 4 of namespace/clean.pm # once (3µs+6µs) by Date::Manip::TZ_Base::BEGIN@11 at line 11 of Date/Manip/TZ_Base.pm # once (4µs+6µs) by XML::SAX::Base::BEGIN@36 at line 36 of XML/SAX/Base.pm # once (4µs+6µs) by File::Find::BEGIN@357 at line 357 of File/Find.pm # once (4µs+6µs) by Date::Manip::Base::BEGIN@19 at line 19 of Date/Manip/Base.pm # once (3µs+6µs) by Sub::Exporter::Progressive::BEGIN@23 at line 23 of Sub/Exporter/Progressive.pm # once (3µs+6µs) by Date::Manip::BEGIN@10 at line 10 of Date/Manip.pm # once (3µs+6µs) by Time::Zone::BEGIN@46 at line 46 of Time/Zone.pm # once (4µs+5µs) by DateTime::Infinite::Past::BEGIN@63 at line 63 of DateTime/Infinite.pm # once (3µs+6µs) by Time::Local::BEGIN@6 at line 6 of Time/Local.pm # once (3µs+6µs) by Math::BigInt::BEGIN@30 at line 30 of Math/BigInt.pm # once (3µs+6µs) by Date::Manip::TZ::BEGIN@20 at line 20 of Date/Manip/TZ.pm # once (4µs+5µs) by DBD::mysql::st::BEGIN@783 at line 783 of DBD/mysql.pm # once (3µs+6µs) by MIME::Type::BEGIN@10 at line 10 of MIME/Type.pm # once (3µs+6µs) by Date::Manip::Date::BEGIN@19 at line 19 of Date/Manip/Date.pm # once (3µs+5µs) by Date::Manip::Obj::BEGIN@11 at line 11 of Date/Manip/Obj.pm # once (4µs+4µs) by Date::Manip::Base::BEGIN@1409 at line 1409 of Date/Manip/Base.pm # once (3µs+4µs) by Date::Manip::TZ::BEGIN@189 at line 189 of Date/Manip/TZ.pm # once (3µs+4µs) by Date::Manip::TZ_Base::BEGIN@403 at line 403 of Date/Manip/TZ_Base.pm # once (3µs+4µs) by Date::Manip::Base::BEGIN@1474 at line 1474 of Date/Manip/Base.pm sub import {
43	285	51µs			shift;
44	285	4.50ms	285	2.10ms	$^H \|= bits(@_ ? @_ : @default_bits); # spent 2.10ms making 285 calls to strict::bits, avg 7µs/call
45					}
46
47					# spent 1.36ms (640µs+720µs) within strict::unimport which was called 112 times, avg 12µs/call: # once (98µs+120µs) by Date::Manip::TZ::BEGIN@1601 at line 1601 of Date/Manip/TZ.pm # once (20µs+30µs) by Text::CSV::BEGIN@137 at line 137 of Text/CSV.pm # once (10µs+9µs) by HTTP::Message::BEGIN@643 at line 643 of HTTP/Message.pm # once (7µs+11µs) by DBI::BEGIN@540 at line 540 of DBI.pm # once (8µs+9µs) by IO::Handle::BEGIN@370 at line 370 of IO/Handle.pm # once (8µs+9µs) by Carp::BEGIN@555 at line 555 of Carp.pm # once (8µs+8µs) by CGI::Session::Driver::DBI::BEGIN@48 at line 48 of CGI/Session/Driver/DBI.pm # once (8µs+8µs) by Carp::BEGIN@131 at line 131 of Carp.pm # once (5µs+9µs) by DBI::BEGIN@282 at line 282 of DBI.pm # once (6µs+7µs) by DBI::BEGIN@697 at line 697 of DBI.pm # once (6µs+7µs) by DBI::BEGIN@1041 at line 1041 of DBI.pm # once (5µs+8µs) by POSIX::BEGIN@206 at line 206 of POSIX.pm # once (7µs+6µs) by constant::BEGIN@39 at line 39 of constant.pm # once (6µs+7µs) by Carp::BEGIN@575 at line 575 of Carp.pm # once (6µs+7µs) by Config::BEGIN@47 at line 47 of Config.pm # once (6µs+7µs) by DBI::BEGIN@810 at line 810 of DBI.pm # once (6µs+7µs) by DBI::BEGIN@972 at line 972 of DBI.pm # once (6µs+6µs) by DBD::mysql::db::BEGIN@770 at line 770 of DBD/mysql.pm # once (7µs+5µs) by MIME::Lite::BEGIN@2284 at line 2284 of MIME/Lite.pm # once (6µs+6µs) by DBI::BEGIN@844 at line 844 of DBI.pm # once (6µs+6µs) by LWP::Protocol::BEGIN@62 at line 62 of LWP/Protocol.pm # once (6µs+6µs) by URI::BEGIN@128 at line 128 of URI.pm # once (5µs+6µs) by DBI::BEGIN@875 at line 875 of DBI.pm # once (6µs+5µs) by File::Path::BEGIN@329 at line 329 of File/Path.pm # once (5µs+6µs) by Memoize::BEGIN@95 at line 95 of Memoize.pm # once (6µs+5µs) by JSON::BEGIN@318 at line 318 of JSON.pm # once (6µs+6µs) by List::Util::BEGIN@30 at line 30 of List/Util.pm # once (6µs+5µs) by Date::Manip::TZ_Base::BEGIN@399 at line 399 of Date/Manip/TZ_Base.pm # once (6µs+5µs) by Date::Manip::Base::BEGIN@1339 at line 1339 of Date/Manip/Base.pm # once (5µs+6µs) by utf8::BEGIN@155 at line 155 of utf8_heavy.pl # once (4µs+7µs) by AutoLoader::BEGIN@146 at line 146 of AutoLoader.pm # once (5µs+6µs) by Memoize::BEGIN@225 at line 225 of Memoize.pm # once (6µs+5µs) by Socket::BEGIN@242 at line 242 of Socket.pm # once (5µs+6µs) by Module::Implementation::BEGIN@128 at line 128 of Module/Implementation.pm # once (6µs+5µs) by XML::Parser::Expat::BEGIN@455 at line 455 of XML/Parser/Expat.pm # once (5µs+5µs) by MARC::File::BEGIN@62 at line 62 of MARC/File.pm # once (6µs+5µs) by utf8::BEGIN@671 at line 671 of utf8_heavy.pl # once (5µs+5µs) by Exporter::Heavy::BEGIN@4 at line 4 of Exporter/Heavy.pm # once (4µs+6µs) by Memoize::BEGIN@284 at line 284 of Memoize.pm # once (5µs+5µs) by Math::BigInt::BEGIN@2656 at line 2656 of Math/BigInt.pm # once (5µs+5µs) by LWP::UserAgent::BEGIN@375 at line 375 of LWP/UserAgent.pm # once (6µs+5µs) by Carp::Clan::BEGIN@224 at line 224 of Carp/Clan.pm # once (5µs+6µs) by Sub::Install::BEGIN@170 at line 170 of Sub/Install.pm # once (5µs+5µs) by File::Temp::BEGIN@107 at line 107 of File/Temp.pm # once (5µs+6µs) by JSON::Backend::XS::BEGIN@29 at line 29 of (eval 68)[JSON.pm:268] # once (4µs+6µs) by namespace::clean::BEGIN@149 at line 149 of namespace/clean.pm # once (5µs+4µs) by XML::LibXML::XPathContext::BEGIN@142 at line 142 of XML/LibXML/XPathContext.pm # once (5µs+5µs) by Cwd::BEGIN@667 at line 667 of Cwd.pm # once (5µs+5µs) by parent::BEGIN@25 at line 25 of parent.pm # once (5µs+4µs) by DateTime::Locale::Base::BEGIN@25 at line 25 of DateTime/Locale/Base.pm # once (4µs+5µs) by constant::BEGIN@64 at line 64 of constant.pm # once (5µs+4µs) by DateTime::Infinite::BEGIN@12 at line 12 of DateTime/Infinite.pm # once (4µs+5µs) by Locale::Maketext::Lexicon::BEGIN@128 at line 128 of Locale/Maketext/Lexicon.pm # once (5µs+4µs) by Date::Manip::BEGIN@39 at line 39 of Date/Manip.pm # once (5µs+4µs) by MIME::Lite::IO_Handle::BEGIN@3151 at line 3151 of MIME/Lite.pm # once (5µs+5µs) by FakeLocale::BEGIN@132 at line 132 of DateTime/Infinite.pm # once (5µs+4µs) by Math::BigInt::BEGIN@210 at line 210 of Math/BigInt.pm # once (4µs+6µs) by Memoize::BEGIN@321 at line 321 of Memoize.pm # once (4µs+5µs) by Math::BigInt::BEGIN@3126 at line 3126 of Math/BigInt.pm # once (4µs+5µs) by constant::BEGIN@126 at line 126 of constant.pm # once (4µs+5µs) by JSON::Backend::PP::BEGIN@398 at line 398 of JSON.pm # once (4µs+5µs) by File::Spec::Unix::BEGIN@95 at line 95 of File/Spec/Unix.pm # once (4µs+5µs) by Class::Singleton::BEGIN@56 at line 56 of Class/Singleton.pm # once (5µs+4µs) by Class::Accessor::BEGIN@27 at line 27 of Class/Accessor.pm # once (4µs+5µs) by Sub::Exporter::Progressive::BEGIN@18 at line 18 of Sub/Exporter/Progressive.pm # once (4µs+5µs) by Module::Load::BEGIN@88 at line 88 of Module/Load.pm # once (4µs+5µs) by DateTime::Format::Builder::Parser::generic::BEGIN@89 at line 89 of DateTime/Format/Builder/Parser/generic.pm # once (5µs+4µs) by YAML::Mo::BEGIN@11 at line 11 of YAML/Mo.pm # once (4µs+5µs) by Template::Base::BEGIN@44 at line 44 of Template/Base.pm # once (4µs+5µs) by DateTime::Locale::Base::BEGIN@119 at line 119 of DateTime/Locale/Base.pm # once (4µs+5µs) by Module::Load::Conditional::BEGIN@195 at line 195 of Module/Load/Conditional.pm # once (4µs+4µs) by AutoLoader::BEGIN@37 at line 37 of AutoLoader.pm # once (4µs+5µs) by Date::Manip::TZ::BEGIN@158 at line 158 of Date/Manip/TZ.pm # once (5µs+4µs) by XML::LibXML::Error::BEGIN@83 at line 83 of XML/LibXML/Error.pm # once (4µs+5µs) by Locale::Maketext::Lexicon::BEGIN@205 at line 205 of Locale/Maketext/Lexicon.pm # once (4µs+4µs) by Module::Load::BEGIN@13 at line 13 of Module/Load.pm # once (4µs+5µs) by Class::Singleton::BEGIN@73 at line 73 of Class/Singleton.pm # once (4µs+5µs) by DateTime::Locale::Base::BEGIN@363 at line 363 of DateTime/Locale/Base.pm # once (4µs+5µs) by Math::BigInt::BEGIN@380 at line 380 of Math/BigInt.pm # once (4µs+4µs) by Locale::Maketext::Lexicon::BEGIN@264 at line 264 of Locale/Maketext/Lexicon.pm # once (4µs+5µs) by Locale::Maketext::Simple::BEGIN@122 at line 122 of Locale/Maketext/Simple.pm # once (4µs+4µs) by DateTime::Locale::Base::BEGIN@176 at line 176 of DateTime/Locale/Base.pm # once (4µs+5µs) by DateTime::Format::Builder::BEGIN@50 at line 50 of DateTime/Format/Builder.pm # once (4µs+4µs) by Math::BigInt::BEGIN@946 at line 946 of Math/BigInt.pm # once (4µs+4µs) by Template::Base::BEGIN@85 at line 85 of Template/Base.pm # once (4µs+4µs) by JSON::Backend::XS::Supportable::BEGIN@99 at line 99 of (eval 68)[JSON.pm:268] # once (4µs+4µs) by Math::BigInt::BEGIN@659 at line 659 of Math/BigInt.pm # once (4µs+4µs) by version::BEGIN@20 at line 20 of version.pm # once (4µs+4µs) by FileHandle::BEGIN@46 at line 46 of FileHandle.pm # once (4µs+4µs) by Math::BigInt::BEGIN@473 at line 473 of Math/BigInt.pm # once (4µs+4µs) by File::Temp::BEGIN@137 at line 137 of File/Temp.pm # once (4µs+4µs) by JSON::Backend::XS::BEGIN@42 at line 42 of (eval 68)[JSON.pm:268] # once (4µs+4µs) by Text::CSV::BEGIN@197 at line 197 of Text/CSV.pm # once (4µs+4µs) by Template::Base::BEGIN@137 at line 137 of Template/Base.pm # once (4µs+4µs) by Math::BigInt::BEGIN@882 at line 882 of Math/BigInt.pm # once (4µs+4µs) by Date::Manip::Base::BEGIN@1470 at line 1470 of Date/Manip/Base.pm # once (3µs+4µs) by DateTime::Format::Builder::Parser::Dispatch::BEGIN@14 at line 14 of DateTime/Format/Builder/Parser/Dispatch.pm # once (4µs+4µs) by Math::BigInt::BEGIN@228 at line 228 of Math/BigInt.pm # once (4µs+4µs) by Math::BigInt::BEGIN@450 at line 450 of Math/BigInt.pm # once (4µs+4µs) by CGI::Session::ErrorHandler::BEGIN@44 at line 44 of CGI/Session/ErrorHandler.pm # once (4µs+4µs) by AutoLoader::BEGIN@194 at line 194 of AutoLoader.pm # once (4µs+4µs) by Class::Factory::Util::BEGIN@17 at line 17 of Class/Factory/Util.pm # once (4µs+4µs) by Math::BigInt::BEGIN@551 at line 551 of Math/BigInt.pm # once (4µs+4µs) by DateTime::Format::Builder::BEGIN@96 at line 96 of DateTime/Format/Builder.pm # once (3µs+4µs) by Math::BigInt::BEGIN@693 at line 693 of Math/BigInt.pm # once (3µs+4µs) by Math::BigInt::BEGIN@281 at line 281 of Math/BigInt.pm # once (3µs+4µs) by CGI::Session::ErrorHandler::BEGIN@62 at line 62 of CGI/Session/ErrorHandler.pm # once (3µs+4µs) by Math::BigInt::BEGIN@339 at line 339 of Math/BigInt.pm # once (3µs+4µs) by Math::BigInt::BEGIN@242 at line 242 of Math/BigInt.pm # once (3µs+4µs) by DBD::mysql::st::BEGIN@803 at line 803 of DBD/mysql.pm # once (3µs+4µs) by Math::BigInt::BEGIN@256 at line 256 of Math/BigInt.pm # once (3µs+4µs) by DBD::mysql::st::BEGIN@790 at line 790 of DBD/mysql.pm sub unimport {
48	112	52µs			shift;
49	112	612µs	112	720µs	$^H &= ~ bits(@_ ? @_ : @default_bits); # spent 720µs making 112 calls to strict::bits, avg 6µs/call
50					}
51
52	1	13µs			1;
53					__END__

					# spent 14µs within strict::CORE:match which was called: # once (14µs+0s) by Modern::Perl::BEGIN@9 at line 6 sub strict::CORE:match; # opcode
					# spent 42µs within strict::CORE:regcomp which was called: # once (42µs+0s) by Modern::Perl::BEGIN@9 at line 6 sub strict::CORE:regcomp; # opcode