Filename | /usr/share/perl/5.10/strict.pm |
Statements | Executed 1490 statements in 5.93ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
294 | 292 | 276 | 1.83ms | 1.89ms | import | strict::
99 | 99 | 53 | 1.14ms | 2.01ms | unimport | strict::
99 | 3 | 1 | 948µs | 948µs | bits | strict::
1 | 1 | 1 | 26µs | 26µs | CORE:regcomp (opcode) | strict::
1 | 1 | 1 | 10µs | 10µs | CORE:match (opcode) | strict::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package strict; | ||||
2 | |||||
3 | 1 | 2µs | $strict::VERSION = "1.04"; | ||
4 | |||||
5 | # Verify that we're called correctly so that strictures will work. | ||||
6 | 1 | 66µs | 2 | 36µs | unless ( __FILE__ =~ /(^|[\/\\])\Q${\__PACKAGE__}\E\.pmc?$/ ) { # spent 26µs making 1 call to strict::CORE:regcomp
# spent 10µ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 | 3µs | my %bitmask = ( | ||
13 | refs => 0x00000002, | ||||
14 | subs => 0x00000200, | ||||
15 | vars => 0x00000400 | ||||
16 | ); | ||||
17 | |||||
18 | sub bits { | ||||
19 | 99 | 74µs | my $bits = 0; | ||
20 | 99 | 41µs | my @wrong; | ||
21 | 99 | 196µs | foreach my $s (@_) { | ||
22 | 102 | 103µs | push @wrong, $s unless exists $bitmask{$s}; | ||
23 | 102 | 233µs | $bits |= $bitmask{$s} || 0; | ||
24 | } | ||||
25 | 99 | 53µs | if (@wrong) { | ||
26 | require Carp; | ||||
27 | Carp::croak("Unknown 'strict' tag(s) '@wrong'"); | ||||
28 | } | ||||
29 | 99 | 625µs | $bits; | ||
30 | } | ||||
31 | |||||
32 | 1 | 4µs | 1 | 20µs | my $default_bits = bits(qw(refs subs vars)); # spent 20µs making 1 call to strict::bits |
33 | |||||
34 | # spent 1.89ms (1.83+55µs) within strict::import which was called 294 times, avg 6µs/call:
# 3 times (10µs+0s) by Modern::Perl::import at line 25 of Modern/Perl.pm, avg 3µs/call
# once (81µs+0s) by Template::Directive::BEGIN@29 at line 29 of Template/Directive.pm
# once (13µs+15µs) by base::BEGIN@3 at line 3 of base.pm
# once (11µs+12µs) by vars::BEGIN@8 at line 8 of vars.pm
# once (7µs+10µs) by Date::Manip::TZ::BEGIN@168 at line 168 of Date/Manip/TZ.pm
# once (9µs+6µs) by Date::Manip::Base::BEGIN@1894 at line 1894 of Date/Manip/Base.pm
# once (10µs+6µs) by Date::Manip::TZ::BEGIN@1450 at line 1450 of Date/Manip/TZ.pm
# once (15µs+0s) by Template::Grammar::BEGIN@33 at line 33 of Template/Grammar.pm
# once (13µs+0s) by DateTime::TimeZone::Floating::BEGIN@3 at line 3 of DateTime/TimeZone/Floating.pm
# once (12µs+0s) by Config::BEGIN@9 at line 9 of Config.pm
# once (12µs+0s) by JSON::PP58::BEGIN@4 at line 4 of JSON/PP58.pm
# once (12µs+0s) by IO::Socket::INET::BEGIN@9 at line 9 of IO/Socket/INET.pm
# once (6µs+5µs) by Date::Manip::Base::BEGIN@2029 at line 2029 of Date/Manip/Base.pm
# once (11µs+0s) by XML::Simple::BEGIN@42 at line 42 of XML/Simple.pm
# once (11µs+0s) by Net::LDAP::BEGIN@7 at line 7 of Net/LDAP.pm
# once (11µs+0s) by IO::Select::BEGIN@9 at line 9 of IO/Select.pm
# once (10µs+0s) by Convert::ASN1::BEGIN@10 at line 10 of Convert/ASN1.pm
# once (10µs+0s) by C4::Items::BEGIN@21 at line 21 of /usr/share/koha/lib/C4/Items.pm
# once (10µs+0s) by C4::Tags::BEGIN@21 at line 21 of /usr/share/koha/lib/C4/Tags.pm
# once (10µs+0s) by C4::Search::PazPar2::BEGIN@20 at line 20 of /usr/share/koha/lib/C4/Search/PazPar2.pm
# once (10µs+0s) by Template::Parser::BEGIN@35 at line 35 of Template/Parser.pm
# once (10µs+0s) by Module::Load::Conditional::BEGIN@3 at line 3 of Module/Load/Conditional.pm
# once (10µs+0s) by MARC::File::SAX::BEGIN@9 at line 9 of MARC/File/SAX.pm
# once (10µs+0s) by IO::Seekable::BEGIN@7 at line 7 of IO/Seekable.pm
# once (9µs+0s) by YAML::Loader::BEGIN@3 at line 3 of YAML/Loader.pm
# once (9µs+0s) by DateTime::TimeZone::Local::BEGIN@3 at line 3 of DateTime/TimeZone/Local.pm
# once (9µs+0s) by DBD::_::common::BEGIN@1344 at line 1344 of DBI.pm
# once (9µs+0s) by C4::Context::BEGIN@16 at line 16 of /usr/share/koha/intranet/cgi-bin/kohaversion.pl
# once (9µs+0s) by URI::QueryParam::BEGIN@3 at line 3 of URI/QueryParam.pm
# once (9µs+0s) by C4::Accounts::BEGIN@21 at line 21 of /usr/share/koha/lib/C4/Accounts.pm
# once (9µs+0s) by DateTime::TimeZone::BEGIN@5 at line 5 of DateTime/TimeZone.pm
# once (9µs+0s) by XML::LibXML::Number::BEGIN@13 at line 13 of XML/LibXML/Number.pm
# once (9µs+0s) by Modern::Perl::BEGIN@17 at line 17 of Modern/Perl.pm
# once (9µs+0s) by XML::LibXML::NodeList::BEGIN@11 at line 11 of XML/LibXML/NodeList.pm
# once (9µs+0s) by Params::Validate::BEGIN@3.2 at line 3 of Params/ValidateXS.pm
# once (9µs+0s) by base::BEGIN@1 at line 1 of /usr/share/koha/lib/OpenILS/QueryParser.pm
# once (9µs+0s) by CGI::Session::Driver::mysql::BEGIN@5 at line 5 of CGI/Session/Driver/mysql.pm
# once (9µs+0s) by Encode::Config::BEGIN@7 at line 7 of Encode/Config.pm
# once (9µs+0s) by version::BEGIN@5 at line 5 of version.pm
# once (8µs+0s) by XML::SAX::DocumentLocator::BEGIN@4 at line 4 of XML/SAX/DocumentLocator.pm
# once (8µs+0s) by XML::LibXML::Error::BEGIN@11 at line 11 of XML/LibXML/Error.pm
# once (8µs+0s) by C4::Boolean::BEGIN@24 at line 24 of /usr/share/koha/lib/C4/Boolean.pm
# once (8µs+0s) by Date::Manip::Recur::BEGIN@19 at line 19 of Date/Manip/Recur.pm
# once (8µs+0s) by AutoLoader::BEGIN@3 at line 3 of AutoLoader.pm
# once (8µs+0s) by C4::Overdues::BEGIN@22 at line 22 of /usr/share/koha/lib/C4/Overdues.pm
# once (8µs+0s) by IO::Socket::BEGIN@14 at line 14 of IO/Socket.pm
# once (8µs+0s) by Lingua::Stem::BEGIN@5 at line 5 of Lingua/Stem.pm
# once (8µs+0s) by XML::LibXML::Common::BEGIN@18 at line 18 of XML/LibXML/Common.pm
# once (8µs+0s) by Date::Manip::Zones::BEGIN@16 at line 16 of Date/Manip/Zones.pm
# once (8µs+0s) by Business::ISBN10::BEGIN@4 at line 4 of Business/ISBN10.pm
# once (8µs+0s) by File::Spec::Unix::BEGIN@3 at line 3 of File/Spec/Unix.pm
# once (8µs+0s) by XML::SAX::Base::BEGIN@28 at line 28 of XML/SAX/Base.pm
# once (8µs+0s) by DateTime::Locale::Catalog::BEGIN@17 at line 17 of DateTime/Locale/Catalog.pm
# once (8µs+0s) by Locale::Maketext::Simple::BEGIN@4 at line 4 of Locale/Maketext/Simple.pm
# once (8µs+0s) by Template::BEGIN@22 at line 22 of Template.pm
# once (8µs+0s) by constant::BEGIN@3 at line 3 of constant.pm
# once (8µs+0s) by MARC::Field::BEGIN@3 at line 3 of MARC/Field.pm
# once (8µs+0s) by Text::CSV_XS::BEGIN@26 at line 26 of Text/CSV_XS.pm
# once (8µs+0s) by mro::BEGIN@10 at line 10 of mro.pm
# once (8µs+0s) by C4::Branch::BEGIN@19 at line 19 of /usr/share/koha/lib/C4/Branch.pm
# once (8µs+0s) by CGI::Session::Serialize::yaml::BEGIN@3 at line 3 of CGI/Session/Serialize/yaml.pm
# once (8µs+0s) by URI::Split::BEGIN@3 at line 3 of URI/Split.pm
# once (8µs+0s) by XML::LibXML::Literal::BEGIN@13 at line 13 of XML/LibXML/Literal.pm
# once (8µs+0s) by C4::Auth_with_cas::BEGIN@20 at line 20 of /usr/share/koha/lib/C4/Auth_with_cas.pm
# once (7µs+0s) by C4::Search::BEGIN@18 at line 18 of /usr/share/koha/lib/C4/Search.pm
# once (7µs+0s) by Text::Unaccent::BEGIN@20 at line 20 of Text/Unaccent.pm
# once (7µs+0s) by IO::Socket::UNIX::BEGIN@9 at line 9 of IO/Socket/UNIX.pm
# once (7µs+0s) by YAML::BEGIN@4 at line 4 of YAML.pm
# once (7µs+0s) by Errno::BEGIN@8 at line 8 of Errno.pm
# once (7µs+0s) by Lingua::Stem::AutoLoader::BEGIN@43 at line 43 of Lingua/Stem/AutoLoader.pm
# once (7µs+0s) by DateTime::TimeZone::UTC::BEGIN@3 at line 3 of DateTime/TimeZone/UTC.pm
# once (7µs+0s) by CGI::Session::Driver::DBI::BEGIN@5 at line 5 of CGI/Session/Driver/DBI.pm
# once (7µs+0s) by Encode::Alias::BEGIN@2 at line 2 of Encode/Alias.pm
# once (7µs+0s) by XML::LibXML::SAX::Parser::BEGIN@12 at line 12 of XML/LibXML/SAX/Parser.pm
# once (7µs+0s) by YAML::Syck::BEGIN@4 at line 4 of YAML/Syck.pm
# once (7µs+0s) by utf8::BEGIN@2 at line 2 of utf8_heavy.pl
# once (7µs+0s) by C4::Templates::BEGIN@3 at line 3 of /usr/share/koha/lib/C4/Templates.pm
# once (7µs+0s) by Koha::QueryParser::Driver::PQF::BEGIN@4 at line 4 of /usr/share/koha/lib/Koha/QueryParser/Driver/PQF.pm
# once (7µs+0s) by Business::ISBN::BEGIN@4 at line 4 of Business/ISBN.pm
# once (7µs+0s) by CGI::Session::ID::md5::BEGIN@5 at line 5 of CGI/Session/ID/md5.pm
# once (7µs+0s) by URI::BEGIN@3 at line 3 of URI.pm
# once (7µs+0s) by Set::Infinite::_recurrence::BEGIN@7 at line 7 of Set/Infinite/_recurrence.pm
# once (7µs+0s) by C4::Debug::BEGIN@20 at line 20 of /usr/share/koha/lib/C4/Debug.pm
# once (7µs+0s) by Params::Validate::BEGIN@3 at line 3 of Params/Validate.pm
# once (7µs+0s) by Date::Manip::TZ::etgmt00::BEGIN@30 at line 30 of Date/Manip/TZ/etgmt00.pm
# once (7µs+0s) by YAML::Types::BEGIN@3 at line 3 of YAML/Types.pm
# once (7µs+0s) by re::BEGIN@4 at line 4 of re.pm
# once (7µs+0s) by C4::Auth_with_ldap::BEGIN@20 at line 20 of /usr/share/koha/lib/C4/Auth_with_ldap.pm
# once (7µs+0s) by Template::Iterator::BEGIN@24 at line 24 of Template/Iterator.pm
# once (7µs+0s) by MARC::Record::BEGIN@9 at line 9 of MARC/Record.pm
# once (7µs+0s) by C4::ItemType::BEGIN@21 at line 21 of /usr/share/koha/lib/C4/ItemType.pm
# once (7µs+0s) by FileHandle::BEGIN@4 at line 4 of FileHandle.pm
# once (7µs+0s) by LWP::Simple::BEGIN@3 at line 3 of LWP/Simple.pm
# once (7µs+0s) by LWP::Protocol::BEGIN@7 at line 7 of LWP/Protocol.pm
# once (7µs+0s) by Template::Context::BEGIN@23 at line 23 of Template/Context.pm
# once (7µs+0s) by DateTime::TimeZone::OffsetOnly::BEGIN@3 at line 3 of DateTime/TimeZone/OffsetOnly.pm
# once (7µs+0s) by CGI::Session::Driver::BEGIN@5 at line 5 of CGI/Session/Driver.pm
# once (7µs+0s) by DBD::mysql::BEGIN@4 at line 4 of DBD/mysql.pm
# once (7µs+0s) by Encode::Encoding::BEGIN@4 at line 4 of Encode/Encoding.pm
# once (7µs+0s) by C4::Context::BEGIN@1 at line 1 of ZOOM.pm
# once (7µs+0s) by Template::Stash::XS::BEGIN@14 at line 14 of Template/Stash/XS.pm
# once (7µs+0s) by DBD::mysql::db::BEGIN@186 at line 186 of DBD/mysql.pm
# once (7µs+0s) by DBD::_::db::BEGIN@1507 at line 1507 of DBI.pm
# once (7µs+0s) by HTTP::Config::BEGIN@3 at line 3 of HTTP/Config.pm
# once (7µs+0s) by DBD::_::st::BEGIN@1813 at line 1813 of DBI.pm
# once (7µs+0s) by C4::NewsChannels::BEGIN@20 at line 20 of /usr/share/koha/lib/C4/NewsChannels.pm
# once (7µs+0s) by Text::Iconv::BEGIN@5 at line 5 of Text/Iconv.pm
# once (7µs+0s) by DateTime::Format::Builder::Parser::Regex::BEGIN@68 at line 68 of DateTime/Format/Builder/Parser/Regex.pm
# once (7µs+0s) by C4::ClassSortRoutine::Generic::BEGIN@20 at line 20 of /usr/share/koha/lib/C4/ClassSortRoutine/Generic.pm
# once (7µs+0s) by LWP::UserAgent::BEGIN@3 at line 3 of LWP/UserAgent.pm
# once (7µs+0s) by Koha::Calendar::BEGIN@21 at line 21 of Readonly.pm
# once (6µs+0s) by XML::LibXSLT::BEGIN@11 at line 11 of XML/LibXSLT.pm
# once (6µs+0s) by C4::Languages::BEGIN@22 at line 22 of /usr/share/koha/lib/C4/Languages.pm
# once (6µs+0s) by C4::Output::BEGIN@28 at line 28 of /usr/share/koha/lib/C4/Output.pm
# once (6µs+0s) by HTTP::Date::BEGIN@11 at line 11 of HTTP/Date.pm
# once (6µs+0s) by Net::LDAP::Message::BEGIN@9 at line 9 of Net/LDAP/Message.pm
# once (6µs+0s) by C4::Charset::BEGIN@20 at line 20 of /usr/share/koha/lib/C4/Charset.pm
# once (6µs+0s) by XML::SAX::BEGIN@5 at line 5 of XML/SAX.pm
# once (6µs+0s) by Class::Accessor::BEGIN@3 at line 3 of Class/Accessor.pm
# once (6µs+0s) by C4::Budgets::BEGIN@20 at line 20 of /usr/share/koha/lib/C4/Budgets.pm
# once (6µs+0s) by Library::CallNumber::LC::BEGIN@4 at line 4 of Library/CallNumber/LC.pm
# once (6µs+0s) by DateTime::SpanSet::BEGIN@7 at line 7 of DateTime/SpanSet.pm
# once (6µs+0s) by C4::Koha::BEGIN@23 at line 23 of /usr/share/koha/lib/C4/Koha.pm
# once (6µs+0s) by C4::Auth::BEGIN@20 at line 20 of /usr/share/koha/lib/C4/Auth.pm
# once (6µs+0s) by C4::ItemCirculationAlertPreference::BEGIN@20 at line 20 of /usr/share/koha/lib/C4/ItemCirculationAlertPreference.pm
# once (6µs+0s) by C4::Stats::BEGIN@21 at line 21 of /usr/share/koha/lib/C4/Stats.pm
# once (6µs+0s) by C4::VirtualShelves::BEGIN@20 at line 20 of /usr/share/koha/lib/C4/VirtualShelves.pm
# once (6µs+0s) by XML::LibXSLT::StylesheetWrapper::BEGIN@309 at line 309 of XML/LibXSLT.pm
# once (6µs+0s) by GDBM_File::BEGIN@44 at line 44 of GDBM_File.pm
# once (6µs+0s) by Scalar::Util::BEGIN@9 at line 9 of Scalar/Util.pm
# once (6µs+0s) by HTTP::Headers::BEGIN@3 at line 3 of HTTP/Headers.pm
# once (6µs+0s) by JSON::PP::IncrParser::BEGIN@1351 at line 1351 of JSON/PP.pm
# once (6µs+0s) by POSIX::BEGIN@2 at line 2 of POSIX.pm
# once (6µs+0s) by Net::LDAP::Filter::BEGIN@7 at line 7 of Net/LDAP/Filter.pm
# once (6µs+0s) by C4::Context::BEGIN@19 at line 19 of /usr/share/koha/lib/C4/Context.pm
# once (6µs+0s) by DBD::mysql::st::BEGIN@738 at line 738 of DBD/mysql.pm
# once (6µs+0s) by XML::LibXML::XPathContext::BEGIN@12 at line 12 of XML/LibXML/XPathContext.pm
# once (6µs+0s) by Date::Calc::BEGIN@15 at line 15 of Date/Calc.pm
# once (6µs+0s) by Template::Plugins::BEGIN@26 at line 26 of Template/Plugins.pm
# once (6µs+0s) by File::Path::BEGIN@4 at line 4 of File/Path.pm
# once (6µs+0s) by MARC::File::BEGIN@9 at line 9 of MARC/File.pm
# once (6µs+0s) by Net::Z3950::ZOOM::BEGIN@4 at line 4 of Net/Z3950/ZOOM.pm
# once (6µs+0s) by Date::Manip::Lang::index::BEGIN@24 at line 24 of Date/Manip/Lang/index.pm
# once (6µs+0s) by Exporter::Heavy::BEGIN@3 at line 3 of Exporter/Heavy.pm
# once (6µs+0s) by DBD::_::dr::BEGIN@1446 at line 1446 of DBI.pm
# once (6µs+0s) by C4::Circulation::BEGIN@22 at line 22 of /usr/share/koha/lib/C4/Circulation.pm
# once (6µs+0s) by C4::Members::AttributeTypes::BEGIN@20 at line 20 of /usr/share/koha/lib/C4/Members/AttributeTypes.pm
# once (6µs+0s) by DateTime::TimeZone::Catalog::BEGIN@10 at line 10 of DateTime/TimeZone/Catalog.pm
# once (6µs+0s) by DateTime::Infinite::BEGIN@6 at line 6 of DateTime/Infinite.pm
# once (6µs+0s) by CGI::Session::BEGIN@5 at line 5 of CGI/Session.pm
# once (6µs+0s) by File::Spec::BEGIN@3 at line 3 of File/Spec.pm
# once (5µs+0s) by Readonly::XS::BEGIN@18 at line 18 of Readonly/XS.pm
# once (5µs+0s) by Template::Config::BEGIN@21 at line 21 of Template/Config.pm
# once (5µs+0s) by XML::LibXML::Boolean::BEGIN@14 at line 14 of XML/LibXML/Boolean.pm
# once (5µs+0s) by MIME::Lite::SMTP::BEGIN@3094 at line 3094 of MIME/Lite.pm
# once (5µs+0s) by YAML::Loader::Base::BEGIN@3 at line 3 of YAML/Loader/Base.pm
# once (5µs+0s) by JSON::PP::BEGIN@6 at line 6 of JSON/PP.pm
# once (5µs+0s) by Convert::ASN1::BEGIN@7.10 at line 7 of Convert/ASN1/IO.pm
# once (5µs+0s) by Date::Manip::Lang::english::BEGIN@26 at line 26 of Date/Manip/Lang/english.pm
# once (5µs+0s) by XML::LibXSLT::Security::BEGIN@503 at line 503 of XML/LibXSLT.pm
# once (5µs+0s) by Class::Factory::Util::BEGIN@3 at line 3 of Class/Factory/Util.pm
# once (5µs+0s) by Fcntl::BEGIN@3 at line 3 of Fcntl.pm
# once (5µs+0s) by HTTP::Message::BEGIN@3 at line 3 of HTTP/Message.pm
# once (5µs+0s) by Date::Manip::Delta::BEGIN@19 at line 19 of Date/Manip/Delta.pm
# once (5µs+0s) by IO::Handle::BEGIN@4 at line 4 of IO/Handle.pm
# once (5µs+0s) by Math::BigInt::FastCalc::BEGIN@4 at line 4 of Math/BigInt/FastCalc.pm
# once (5µs+0s) by Template::Service::BEGIN@23 at line 23 of Template/Service.pm
# once (5µs+0s) by Template::Filters::BEGIN@22 at line 22 of Template/Filters.pm
# once (5µs+0s) by Template::Provider::BEGIN@41 at line 41 of Template/Provider.pm
# once (5µs+0s) by MARC::File::USMARC::BEGIN@9 at line 9 of MARC/File/USMARC.pm
# once (5µs+0s) by List::Util::BEGIN@11 at line 11 of List/Util.pm
# once (5µs+0s) by C4::Log::BEGIN@24 at line 24 of /usr/share/koha/lib/C4/Log.pm
# once (5µs+0s) by XML::SAX::Exception::BEGIN@3 at line 3 of XML/SAX/Exception.pm
# once (5µs+0s) by Date::Manip::Date::BEGIN@19 at line 19 of Date/Manip/Date.pm
# once (5µs+0s) by Cwd::BEGIN@3 at line 3 of Cwd.pm
# once (5µs+0s) by HTTP::Response::BEGIN@7 at line 7 of HTTP/Response.pm
# once (5µs+0s) by charnames::BEGIN@2 at line 2 of charnames.pm
# once (5µs+0s) by C4::Message::BEGIN@22 at line 22 of /usr/share/koha/lib/C4/Message.pm
# once (5µs+0s) by IO::File::BEGIN@6 at line 6 of IO/File.pm
# once (5µs+0s) by YAML::Node::BEGIN@3 at line 3 of YAML/Node.pm
# once (5µs+0s) by C4::Linker::BEGIN@45 at line 45 of /usr/share/koha/lib/C4/Linker.pm
# once (5µs+0s) by Algorithm::CheckDigits::BEGIN@5 at line 5 of Algorithm/CheckDigits.pm
# once (5µs+0s) by Business::ISBN::Data::BEGIN@3 at line 3 of Business/ISBN/Data.pm
# once (5µs+0s) by Set::Infinite::BEGIN@15 at line 15 of Set/Infinite.pm
# once (5µs+0s) by C4::Dates::BEGIN@22 at line 22 of /usr/share/koha/lib/C4/Dates.pm
# once (5µs+0s) by B::Deparse::BEGIN@26 at line 26 of B/Deparse.pm
# once (5µs+0s) by HTTP::Request::BEGIN@7 at line 7 of HTTP/Request.pm
# once (5µs+0s) by DateTime::Format::Builder::Parser::BEGIN@2 at line 2 of DateTime/Format/Builder/Parser.pm
# once (5µs+0s) by C4::Letters::BEGIN@20 at line 20 of /usr/share/koha/lib/C4/Letters.pm
# once (5µs+0s) by Date::Parse::BEGIN@8 at line 8 of Date/Parse.pm
# once (5µs+0s) by DateTime::Locale::en_US::BEGIN@21 at line 21 of DateTime/Locale/en_US.pm
# once (5µs+0s) by Business::ISBN13::BEGIN@4 at line 4 of Business/ISBN13.pm
# once (5µs+0s) by IO::BEGIN@7 at line 7 of IO.pm
# once (5µs+0s) by XML::LibXML::BEGIN@13 at line 13 of XML/LibXML.pm
# once (5µs+0s) by C4::Utils::BEGIN@24 at line 24 of /usr/share/koha/lib/C4/Utils.pm
# once (5µs+0s) by DateTime::Locale::en::BEGIN@21 at line 21 of DateTime/Locale/en.pm
# once (5µs+0s) by JSON::BEGIN@4 at line 4 of JSON.pm
# once (5µs+0s) by Authen::CAS::Client::BEGIN@3 at line 3 of Authen/CAS/Client/Response.pm
# once (5µs+0s) by C4::Members::Messaging::BEGIN@20 at line 20 of /usr/share/koha/lib/C4/Members/Messaging.pm
# once (5µs+0s) by DBI::Const::GetInfoType::BEGIN@12 at line 12 of DBI/Const/GetInfoType.pm
# once (5µs+0s) by C4::Ratings::BEGIN@21 at line 21 of /usr/share/koha/lib/C4/Ratings.pm
# once (4µs+0s) by MIME::QuotedPrint::BEGIN@3 at line 3 of MIME/QuotedPrint.pm
# once (4µs+0s) by DateTime::Format::MySQL::BEGIN@3 at line 3 of DateTime/Format/MySQL.pm
# once (4µs+0s) by Digest::MD5::BEGIN@3 at line 3 of Digest/MD5.pm
# once (4µs+0s) by C4::ClassSource::BEGIN@20 at line 20 of /usr/share/koha/lib/C4/ClassSource.pm
# once (4µs+0s) by DateTime::Format::Builder::Parser::Strptime::BEGIN@27 at line 27 of DateTime/Format/Builder/Parser/Strptime.pm
# once (4µs+0s) by MARC::Charset::Code::BEGIN@3 at line 3 of MARC/Charset/Code.pm
# once (4µs+0s) by B::BEGIN@30 at line 30 of B.pm
# once (4µs+0s) by Date::Manip::Base::BEGIN@18 at line 18 of Date/Manip/Base.pm
# once (4µs+0s) by C4::Members::Attributes::BEGIN@20 at line 20 of /usr/share/koha/lib/C4/Members/Attributes.pm
# once (4µs+0s) by Config::BEGIN@5 at line 5 of Config_heavy.pl
# once (4µs+0s) by Time::Local::BEGIN@6 at line 6 of Time/Local.pm
# once (4µs+0s) by DateTime::Format::Builder::Parser::Dispatch::BEGIN@2 at line 2 of DateTime/Format/Builder/Parser/Dispatch.pm
# once (4µs+0s) by C4::SMS::BEGIN@35 at line 35 of /usr/share/koha/lib/C4/SMS.pm
# once (4µs+0s) by Template::Exception::BEGIN@22 at line 22 of Template/Exception.pm
# once (4µs+0s) by DateTime::Format::Builder::Parser::Quick::BEGIN@2 at line 2 of DateTime/Format/Builder/Parser/Quick.pm
# once (4µs+0s) by MARC::Charset::BEGIN@4 at line 4 of MARC/Charset.pm
# once (4µs+0s) by Digest::base::BEGIN@3 at line 3 of Digest/base.pm
# once (4µs+0s) by DateTime::Span::BEGIN@7 at line 7 of DateTime/Span.pm
# once (4µs+0s) by XML::SAX::ParserFactory::BEGIN@5 at line 5 of XML/SAX/ParserFactory.pm
# once (4µs+0s) by DateTime::Locale::BEGIN@3 at line 3 of DateTime/Locale.pm
# once (4µs+0s) by Sub::Name::BEGIN@44 at line 44 of Sub/Name.pm
# once (4µs+0s) by Convert::ASN1::parser::BEGIN@9 at line 9 of Convert/ASN1/parser.pm
# once (4µs+0s) by MARC::Charset::Constants::BEGIN@18 at line 18 of MARC/Charset/Constants.pm
# once (4µs+0s) by DateTime::Locale::root::BEGIN@21 at line 21 of DateTime/Locale/root.pm
# once (4µs+0s) by Authen::CAS::Client::BEGIN@5 at line 5 of Authen/CAS/Client.pm
# once (4µs+0s) by DateTime::Format::Builder::BEGIN@10 at line 10 of DateTime/Format/Builder.pm
# once (4µs+0s) by Set::Infinite::Arithmetic::BEGIN@6 at line 6 of Set/Infinite/Arithmetic.pm
# once (4µs+0s) by C4::ClassSortRoutine::Dewey::BEGIN@20 at line 20 of /usr/share/koha/lib/C4/ClassSortRoutine/Dewey.pm
# once (4µs+0s) by Params::Check::BEGIN@3 at line 3 of Params/Check.pm
# once (4µs+0s) by Sys::Hostname::BEGIN@3 at line 3 of Sys/Hostname.pm
# once (4µs+0s) by C4::Reserves::BEGIN@24 at line 24 of /usr/share/koha/lib/C4/Reserves.pm
# once (4µs+0s) by Template::VMethods::BEGIN@24 at line 24 of Template/VMethods.pm
# once (4µs+0s) by MIME::Base64::BEGIN@3 at line 3 of MIME/Base64.pm
# once (4µs+0s) by DateTime::Format::Builder::Parser::generic::BEGIN@2 at line 2 of DateTime/Format/Builder/Parser/generic.pm
# once (4µs+0s) by Template::Document::BEGIN@24 at line 24 of Template/Document.pm
# once (4µs+0s) by Encode::BEGIN@5 at line 5 of Encode.pm
# once (4µs+0s) by Mail::Sendmail::BEGIN@38 at line 38 of Mail/Sendmail.pm
# once (4µs+0s) by DateTime::Locale::Base::BEGIN@3 at line 3 of DateTime/Locale/Base.pm
# once (4µs+0s) by Koha::DateUtils::BEGIN@19 at line 19 of /usr/share/koha/lib/Koha/DateUtils.pm
# once (4µs+0s) by MARC::File::XML::BEGIN@4 at line 4 of MARC/File/XML.pm
# once (4µs+0s) by Koha::Calendar::BEGIN@2 at line 2 of /usr/share/koha/lib/Koha/Calendar.pm
# once (4µs+0s) by DBD::mysql::dr::BEGIN@99 at line 99 of DBD/mysql.pm
# once (4µs+0s) by HTTP::Status::BEGIN@3 at line 3 of HTTP/Status.pm
# once (4µs+0s) by C4::ClassSortRoutine::LCC::BEGIN@21 at line 21 of /usr/share/koha/lib/C4/ClassSortRoutine/LCC.pm
# once (4µs+0s) by Unicode::Normalize::BEGIN@10 at line 10 of Unicode/Normalize.pm
# once (4µs+0s) by Template::Base::BEGIN@22 at line 22 of Template/Base.pm
# once (4µs+0s) by MARC::File::Encode::BEGIN@19 at line 19 of MARC/File/Encode.pm
# once (4µs+0s) by Template::Stash::BEGIN@22 at line 22 of Template/Stash.pm
# once (4µs+0s) by C4::SQLHelper::BEGIN@21 at line 21 of /usr/share/koha/lib/C4/SQLHelper.pm
# once (4µs+0s) by C4::Members::BEGIN@23 at line 23 of /usr/share/koha/lib/C4/Members.pm
# once (4µs+0s) by DateTime::Duration::BEGIN@6 at line 6 of DateTime/Duration.pm
# once (4µs+0s) by MIME::Lite::BEGIN@2 at line 2 of MIME/Lite.pm
# once (4µs+0s) by DateTime::Format::DateParse::BEGIN@7 at line 7 of DateTime/Format/DateParse.pm
# once (4µs+0s) by CGI::Util::BEGIN@3 at line 3 of CGI/Util.pm
# once (4µs+0s) by C4::XSLT::BEGIN@23 at line 23 of /usr/share/koha/lib/C4/XSLT.pm
# once (4µs+0s) by Template::Constants::BEGIN@22 at line 22 of Template/Constants.pm
# once (4µs+0s) by Date::Manip::BEGIN@51 at line 51 of Date/Manip.pm
# once (4µs+0s) by Koha::QueryParser::Driver::PQF::query_plan::node::atom::BEGIN@4 at line 4 of /usr/share/koha/lib/Koha/QueryParser/Driver/PQF/query_plan/node/atom.pm
# once (4µs+0s) by URI::Escape::BEGIN@2 at line 2 of URI/Escape.pm
# once (4µs+0s) by Module::Load::BEGIN@5 at line 5 of Module/Load.pm
# once (4µs+0s) by DateTime::BEGIN@8 at line 8 of DateTime.pm
# once (4µs+0s) by Koha::QueryParser::Driver::PQF::query_plan::node::BEGIN@4 at line 4 of /usr/share/koha/lib/Koha/QueryParser/Driver/PQF/query_plan/node.pm
# once (4µs+0s) by CGI::Session::ErrorHandler::BEGIN@5 at line 5 of CGI/Session/ErrorHandler.pm
# once (4µs+0s) by MARC::Charset::Table::BEGIN@34 at line 34 of MARC/Charset/Table.pm
# once (4µs+0s) by Set::Infinite::Basic::BEGIN@8 at line 8 of Set/Infinite/Basic.pm
# once (4µs+0s) by Sys::Hostname::Long::BEGIN@2 at line 2 of Sys/Hostname/Long.pm
# once (4µs+0s) by C4::Category::BEGIN@21 at line 21 of /usr/share/koha/lib/C4/Category.pm
# once (4µs+0s) by YAML::Tag::BEGIN@3 at line 3 of YAML/Tag.pm
# once (4µs+0s) by MIME::Types::BEGIN@11 at line 11 of MIME/Types.pm
# once (4µs+0s) by MIME::Type::BEGIN@10 at line 10 of MIME/Type.pm
# once (4µs+0s) by String::Random::BEGIN@17 at line 17 of String/Random.pm
# once (4µs+0s) by DBI::BEGIN@273 at line 273 of DBI.pm
# once (4µs+0s) by DateTime::Helpers::BEGIN@6 at line 6 of DateTime/Helpers.pm
# once (4µs+0s) by C4::Biblio::BEGIN@22 at line 22 of /usr/share/koha/lib/C4/Biblio.pm
# once (4µs+0s) by Koha::QueryParser::Driver::PQF::query_plan::facet::BEGIN@4 at line 4 of /usr/share/koha/lib/Koha/QueryParser/Driver/PQF/query_plan/facet.pm
# once (4µs+0s) by File::Basename::BEGIN@50 at line 50 of File/Basename.pm
# once (4µs+0s) by DateTime::Set::BEGIN@4 at line 4 of DateTime/Set.pm
# once (4µs+0s) by Text::CSV::BEGIN@4 at line 4 of Text/CSV.pm
# once (4µs+0s) by Koha::QueryParser::Driver::PQF::Util::BEGIN@4 at line 4 of /usr/share/koha/lib/Koha/QueryParser/Driver/PQF/Util.pm
# once (4µs+0s) by YAML::Base::BEGIN@3 at line 3 of YAML/Base.pm
# once (4µs+0s) by List::MoreUtils::BEGIN@4 at line 4 of List/MoreUtils.pm
# once (4µs+0s) by C4::ClassSortRoutine::BEGIN@20 at line 20 of /usr/share/koha/lib/C4/ClassSortRoutine.pm
# once (4µs+0s) by Math::BigInt::Calc::BEGIN@4 at line 4 of Math/BigInt/Calc.pm
# once (3µs+0s) by Memoize::BEGIN@34 at line 34 of Memoize.pm
# once (3µs+0s) by Koha::QueryParser::Driver::PQF::query_plan::BEGIN@4 at line 4 of /usr/share/koha/lib/Koha/QueryParser/Driver/PQF/query_plan.pm
# once (3µs+0s) by Koha::QueryParser::Driver::PQF::query_plan::modifier::BEGIN@4 at line 4 of /usr/share/koha/lib/Koha/QueryParser/Driver/PQF/query_plan/modifier.pm
# once (3µs+0s) by Math::BigInt::BEGIN@30 at line 30 of Math/BigInt.pm
# once (3µs+0s) by Time::Zone::BEGIN@46 at line 46 of Time/Zone.pm
# once (3µs+0s) by Koha::QueryParser::Driver::PQF::query_plan::filter::BEGIN@4 at line 4 of /usr/share/koha/lib/Koha/QueryParser/Driver/PQF/query_plan/filter.pm
# once (3µs+0s) by Date::Manip::Obj::BEGIN@11 at line 11 of Date/Manip/Obj.pm
# once (3µs+0s) by Date::Manip::TZ::BEGIN@19 at line 19 of Date/Manip/TZ.pm | ||||
35 | 294 | 189µs | shift; | ||
36 | 294 | 3.22ms | 6 | 55µs | $^H |= @_ ? bits(@_) : $default_bits; # spent 55µs making 6 calls to strict::bits, avg 9µs/call |
37 | } | ||||
38 | |||||
39 | # spent 2.01ms (1.14+872µs) within strict::unimport which was called 99 times, avg 20µs/call:
# once (27µs+24µs) by B::Deparse::BEGIN@3337 at line 3337 of B/Deparse.pm
# once (30µs+17µs) by Config::BEGIN@35 at line 35 of Config.pm
# once (34µs+9µs) by Readonly::XS::BEGIN@45 at line 45 of Readonly/XS.pm
# once (17µs+22µs) by CGI::Session::Driver::DBI::BEGIN@48 at line 48 of CGI/Session/Driver/DBI.pm
# once (22µs+16µs) by Cwd::BEGIN@635 at line 635 of Cwd.pm
# once (18µs+19µs) by Errno::BEGIN@188 at line 188 of Errno.pm
# once (25µs+12µs) by Date::Manip::TZ::BEGIN@1446 at line 1446 of Date/Manip/TZ.pm
# once (21µs+13µs) by HTTP::Message::BEGIN@643 at line 643 of HTTP/Message.pm
# once (18µs+16µs) by Convert::ASN1::BEGIN@59 at line 59 of Convert/ASN1.pm
# once (19µs+14µs) by Date::Manip::Base::BEGIN@1828 at line 1828 of Date/Manip/Base.pm
# once (19µs+13µs) by IO::Handle::BEGIN@355 at line 355 of IO/Handle.pm
# once (11µs+21µs) by utf8::BEGIN@155 at line 155 of utf8_heavy.pl
# once (16µs+15µs) by constant::BEGIN@38 at line 38 of constant.pm
# once (17µs+14µs) by YAML::Type::blessed::BEGIN@22 at line 22 of YAML/Types.pm
# once (18µs+10µs) by Math::BigInt::BEGIN@2526 at line 2526 of Math/BigInt.pm
# once (14µs+14µs) by B::BEGIN@237 at line 237 of B.pm
# once (17µs+11µs) by B::Deparse::BEGIN@473 at line 473 of B/Deparse.pm
# once (13µs+12µs) by version::BEGIN@15 at line 15 of version.pm
# once (14µs+11µs) by Math::BigInt::BEGIN@690 at line 690 of Math/BigInt.pm
# once (15µs+10µs) by YAML::Loader::BEGIN@285 at line 285 of YAML/Loader.pm
# once (14µs+11µs) by Net::LDAP::Filter::BEGIN@240 at line 240 of Net/LDAP/Filter.pm
# once (13µs+12µs) by DateTime::Locale::Base::BEGIN@363 at line 363 of DateTime/Locale/Base.pm
# once (12µs+12µs) by Module::Load::BEGIN@11 at line 11 of Module/Load.pm
# once (14µs+10µs) by JSON::BEGIN@284 at line 284 of JSON.pm
# once (14µs+10µs) by LWP::UserAgent::BEGIN@353 at line 353 of LWP/UserAgent.pm
# once (13µs+11µs) by YAML::Base::BEGIN@75 at line 75 of YAML/Base.pm
# once (13µs+10µs) by Template::Base::BEGIN@44 at line 44 of Template/Base.pm
# once (13µs+10µs) by URI::BEGIN@127 at line 127 of URI.pm
# once (12µs+11µs) by MIME::Lite::BEGIN@2276 at line 2276 of MIME/Lite.pm
# once (12µs+10µs) by utf8::BEGIN@76 at line 76 of utf8_heavy.pl
# once (12µs+11µs) by XML::LibXSLT::BEGIN@79 at line 79 of XML/LibXSLT.pm
# once (12µs+11µs) by constant::BEGIN@101 at line 101 of constant.pm
# once (12µs+11µs) by Convert::ASN1::BEGIN@67 at line 67 of Convert/ASN1.pm
# once (12µs+10µs) by XML::LibXML::XPathContext::BEGIN@141 at line 141 of XML/LibXML/XPathContext.pm
# once (11µs+11µs) by FileHandle::BEGIN@46 at line 46 of FileHandle.pm
# once (12µs+10µs) by YAML::Type::glob::BEGIN@97 at line 97 of YAML/Types.pm
# once (12µs+10µs) by Class::Accessor::BEGIN@27 at line 27 of Class/Accessor.pm
# once (12µs+10µs) by CGI::Session::ErrorHandler::BEGIN@44 at line 44 of CGI/Session/ErrorHandler.pm
# once (11µs+10µs) by LWP::Protocol::BEGIN@62 at line 62 of LWP/Protocol.pm
# once (11µs+10µs) by Carp::BEGIN@289 at line 289 of Carp/Heavy.pm
# once (12µs+9µs) by Text::CSV::BEGIN@136 at line 136 of Text/CSV.pm
# once (14µs+6µs) by AutoLoader::BEGIN@138 at line 138 of AutoLoader.pm
# once (11µs+9µs) by File::Spec::Unix::BEGIN@65 at line 65 of File/Spec/Unix.pm
# once (10µs+10µs) by AutoLoader::BEGIN@30 at line 30 of AutoLoader.pm
# once (10µs+9µs) by Date::Manip::TZ::BEGIN@137 at line 137 of Date/Manip/TZ.pm
# once (10µs+9µs) by Math::BigInt::BEGIN@207 at line 207 of Math/BigInt.pm
# once (11µs+8µs) by GDBM_File::BEGIN@79 at line 79 of GDBM_File.pm
# once (11µs+9µs) by DateTime::Infinite::BEGIN@15 at line 15 of DateTime/Infinite.pm
# once (9µs+10µs) by DateTime::Format::Builder::BEGIN@76 at line 76 of DateTime/Format/Builder.pm
# once (10µs+9µs) by DateTime::Locale::Base::BEGIN@25 at line 25 of DateTime/Locale/Base.pm
# once (10µs+8µs) by Exporter::Heavy::BEGIN@4 at line 4 of Exporter/Heavy.pm
# once (10µs+8µs) by Math::BigInt::FastCalc::BEGIN@42 at line 42 of Math/BigInt/FastCalc.pm
# once (10µs+9µs) by Fcntl::BEGIN@184 at line 184 of Fcntl.pm
# once (10µs+8µs) by Module::Load::Conditional::BEGIN@187 at line 187 of Module/Load/Conditional.pm
# once (10µs+8µs) by DBI::BEGIN@531 at line 531 of DBI.pm
# once (10µs+8µs) by B::Deparse::BEGIN@676 at line 676 of B/Deparse.pm
# once (10µs+7µs) by File::Path::BEGIN@295 at line 295 of File/Path.pm
# once (10µs+7µs) by Math::BigInt::BEGIN@2920 at line 2920 of Math/BigInt.pm
# once (7µs+10µs) by Module::Load::BEGIN@37 at line 37 of Module/Load.pm
# once (10µs+7µs) by DateTime::Format::Builder::Parser::generic::BEGIN@171 at line 171 of DateTime/Format/Builder/Parser/generic.pm
# once (9µs+7µs) by Date::Manip::Base::BEGIN@2025 at line 2025 of Date/Manip/Base.pm
# once (9µs+7µs) by Math::BigInt::BEGIN@879 at line 879 of Math/BigInt.pm
# once (9µs+7µs) by DBI::BEGIN@960 at line 960 of DBI.pm
# once (9µs+7µs) by Math::BigInt::BEGIN@377 at line 377 of Math/BigInt.pm
# once (9µs+7µs) by Template::Base::BEGIN@85 at line 85 of Template/Base.pm
# once (9µs+7µs) by Math::BigInt::BEGIN@656 at line 656 of Math/BigInt.pm
# once (9µs+7µs) by DBI::BEGIN@800 at line 800 of DBI.pm
# once (9µs+7µs) by DBI::BEGIN@688 at line 688 of DBI.pm
# once (9µs+7µs) by Math::BigInt::BEGIN@447 at line 447 of Math/BigInt.pm
# once (8µs+7µs) by Text::CSV::BEGIN@196 at line 196 of Text/CSV.pm
# once (9µs+6µs) by DBI::BEGIN@1031 at line 1031 of DBI.pm
# once (9µs+7µs) by DBI::BEGIN@863 at line 863 of DBI.pm
# once (8µs+7µs) by Locale::Maketext::Simple::BEGIN@118 at line 118 of Locale/Maketext/Simple.pm
# once (8µs+6µs) by MIME::Lite::IO_Handle::BEGIN@3139 at line 3139 of MIME/Lite.pm
# once (8µs+6µs) by DateTime::Locale::Base::BEGIN@176 at line 176 of DateTime/Locale/Base.pm
# once (8µs+6µs) by DateTime::Locale::Base::BEGIN@119 at line 119 of DateTime/Locale/Base.pm
# once (8µs+7µs) by Class::Factory::Util::BEGIN@17 at line 17 of Class/Factory/Util.pm
# once (8µs+6µs) by DBI::BEGIN@834 at line 834 of DBI.pm
# once (8µs+6µs) by Math::BigInt::BEGIN@336 at line 336 of Math/BigInt.pm
# once (8µs+6µs) by AutoLoader::BEGIN@186 at line 186 of AutoLoader.pm
# once (7µs+6µs) by DateTime::Format::Builder::Parser::Dispatch::BEGIN@78 at line 78 of DateTime/Format/Builder/Parser/Dispatch.pm
# once (8µs+6µs) by Math::BigInt::BEGIN@548 at line 548 of Math/BigInt.pm
# once (8µs+6µs) by Template::Base::BEGIN@137 at line 137 of Template/Base.pm
# once (7µs+6µs) by Math::BigInt::BEGIN@225 at line 225 of Math/BigInt.pm
# once (7µs+6µs) by JSON::Backend::PP::BEGIN@349 at line 349 of JSON.pm
# once (7µs+6µs) by Math::BigInt::BEGIN@943 at line 943 of Math/BigInt.pm
# once (7µs+6µs) by DateTime::Format::Builder::BEGIN@122 at line 122 of DateTime/Format/Builder.pm
# once (7µs+6µs) by Math::BigInt::BEGIN@278 at line 278 of Math/BigInt.pm
# once (7µs+6µs) by Math::BigInt::BEGIN@470 at line 470 of Math/BigInt.pm
# once (7µs+6µs) by CGI::Session::ErrorHandler::BEGIN@62 at line 62 of CGI/Session/ErrorHandler.pm
# once (7µs+6µs) by Math::BigInt::BEGIN@253 at line 253 of Math/BigInt.pm
# once (6µs+5µs) by Math::BigInt::BEGIN@239 at line 239 of Math/BigInt.pm
# once (10µs+0s) by POSIX::BEGIN@39 at line 39 of POSIX.pm
# once (8µs+0s) by MARC::File::BEGIN@61 at line 61 of MARC/File.pm
# once (6µs+0s) by Memoize::BEGIN@97 at line 97 of Memoize.pm
# once (5µs+0s) by DBI::BEGIN@269 at line 269 of DBI.pm
# once (4µs+0s) by Memoize::BEGIN@228 at line 228 of Memoize.pm
# once (4µs+0s) by Memoize::BEGIN@330 at line 330 of Memoize.pm
# once (4µs+0s) by Memoize::BEGIN@293 at line 293 of Memoize.pm | ||||
40 | 99 | 73µs | shift; | ||
41 | 99 | 1.03ms | 92 | 872µs | $^H &= ~ (@_ ? bits(@_) : $default_bits); # spent 872µs making 92 calls to strict::bits, avg 9µs/call |
42 | } | ||||
43 | |||||
44 | 1 | 18µs | 1; | ||
45 | __END__ | ||||
# spent 10µs within strict::CORE:match which was called:
# once (10µs+0s) by Modern::Perl::BEGIN@17 at line 6 | |||||
# spent 26µs within strict::CORE:regcomp which was called:
# once (26µs+0s) by Modern::Perl::BEGIN@17 at line 6 |