| Filename | /usr/share/perl/5.10/vars.pm |
| Statements | Executed 3651 statements in 18.3ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 215 | 215 | 163 | 13.4ms | 16.8ms | vars::import |
| 2085 | 3 | 1 | 3.41ms | 3.41ms | vars::CORE:match (opcode) |
| 1 | 1 | 1 | 319µs | 398µs | vars::BEGIN@7 |
| 1 | 1 | 1 | 33µs | 33µs | vars::BEGIN@3 |
| 1 | 1 | 1 | 7µs | 24µs | vars::BEGIN@8 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package vars; | ||||
| 2 | |||||
| 3 | 3 | 61µs | 1 | 33µs | # spent 33µs within vars::BEGIN@3 which was called:
# once (33µs+0s) by C4::Context::BEGIN@21 at line 3 # spent 33µs making 1 call to vars::BEGIN@3 |
| 4 | |||||
| 5 | 1 | 700ns | our $VERSION = '1.01'; | ||
| 6 | |||||
| 7 | 3 | 342µs | 2 | 476µs | # spent 398µs (319+78) within vars::BEGIN@7 which was called:
# once (319µs+78µs) by C4::Context::BEGIN@21 at line 7 # spent 398µs making 1 call to vars::BEGIN@7
# spent 78µs making 1 call to warnings::register::import |
| 8 | 3 | 312µs | 2 | 40µs | # spent 24µs (7+17) within vars::BEGIN@8 which was called:
# once (7µs+17µs) by C4::Context::BEGIN@21 at line 8 # spent 24µs making 1 call to vars::BEGIN@8
# spent 16µs making 1 call to strict::import |
| 9 | |||||
| 10 | # spent 16.8ms (13.4+3.41) within vars::import which was called 215 times, avg 78µs/call:
# once (494µs+111µs) by XML::LibXML::BEGIN@14 at line 14 of XML/LibXML.pm
# once (334µs+86µs) by Params::Check::BEGIN@12 at line 12 of Params/Check.pm
# once (296µs+119µs) by C4::Auth::BEGIN@37 at line 37 of /usr/share/koha/lib/C4/Auth.pm
# once (215µs+53µs) by Module::Load::Conditional::BEGIN@17 at line 17 of Module/Load/Conditional.pm
# once (198µs+49µs) by Template::Config::BEGIN@24 at line 24 of Template/Config.pm
# once (186µs+37µs) by DBD::mysql::BEGIN@5 at line 5 of DBD/mysql.pm
# once (170µs+35µs) by C4::Members::Attributes::BEGIN@27 at line 27 of /usr/share/koha/lib/C4/Members/Attributes.pm
# once (163µs+38µs) by XML::LibXSLT::BEGIN@12 at line 12 of XML/LibXSLT.pm
# once (157µs+43µs) by Set::Infinite::BEGIN@24 at line 24 of Set/Infinite.pm
# once (158µs+36µs) by YAML::Syck::BEGIN@5 at line 5 of YAML/Syck.pm
# once (153µs+35µs) by Convert::ASN1::parser::BEGIN@11 at line 11 of Convert/ASN1/parser.pm
# once (103µs+76µs) by CGI::Util::BEGIN@4 at line 4 of CGI/Util.pm
# once (142µs+37µs) by Date::Manip::BEGIN@63 at line 63 of Date/Manip.pm
# once (130µs+37µs) by version::BEGIN@7 at line 7 of version.pm
# once (132µs+35µs) by C4::Charset::BEGIN@28 at line 28 of /usr/share/koha/lib/C4/Charset.pm
# once (143µs+23µs) by C4::Log::BEGIN@30 at line 30 of /usr/share/koha/lib/C4/Log.pm
# once (130µs+30µs) by XML::LibXML::Common::BEGIN@22 at line 22 of XML/LibXML/Common.pm
# once (94µs+65µs) by C4::Circulation::BEGIN@60 at line 60 of /usr/share/koha/lib/C4/Circulation.pm
# once (122µs+33µs) by Params::Validate::BEGIN@7 at line 7 of Params/Validate.pm
# once (119µs+34µs) by C4::Auth_with_cas::BEGIN@31 at line 31 of /usr/share/koha/lib/C4/Auth_with_cas.pm
# once (114µs+28µs) by C4::ClassSource::BEGIN@27 at line 27 of /usr/share/koha/lib/C4/ClassSource.pm
# once (113µs+29µs) by Mail::Sendmail::BEGIN@39 at line 39 of Mail/Sendmail.pm
# once (120µs+17µs) by Date::Manip::BEGIN@9 at line 9 of Date/Manip.pm
# once (107µs+28µs) by MIME::Lite::BEGIN@333 at line 333 of MIME/Lite.pm
# once (105µs+28µs) by Set::Infinite::Basic::BEGIN@14 at line 14 of Set/Infinite/Basic.pm
# once (113µs+17µs) by C4::Reserves::BEGIN@44 at line 44 of /usr/share/koha/lib/C4/Reserves.pm
# once (110µs+19µs) by constant::BEGIN@6 at line 6 of constant.pm
# once (102µs+26µs) by C4::ClassSortRoutine::BEGIN@27 at line 27 of /usr/share/koha/lib/C4/ClassSortRoutine.pm
# once (102µs+22µs) by Set::Infinite::Arithmetic::BEGIN@37 at line 37 of Set/Infinite/Arithmetic.pm
# once (98µs+23µs) by Business::ISBN::BEGIN@69 at line 69 of Business/ISBN.pm
# once (95µs+23µs) by Math::BigInt::BEGIN@28 at line 28 of Math/BigInt.pm
# once (93µs+26µs) by XML::LibXSLT::StylesheetWrapper::BEGIN@310 at line 310 of XML/LibXSLT.pm
# once (69µs+48µs) by MARC::Record::BEGIN@27 at line 27 of MARC/Record.pm
# once (88µs+27µs) by XML::LibXML::Error::BEGIN@12 at line 12 of XML/LibXML/Error.pm
# once (93µs+22µs) by C4::Items::BEGIN@36 at line 36 of /usr/share/koha/lib/C4/Items.pm
# once (104µs+8µs) by Date::Manip::Lang::index::BEGIN@30 at line 30 of Date/Manip/Lang/index.pm
# once (91µs+18µs) by C4::XSLT::BEGIN@38 at line 38 of /usr/share/koha/lib/C4/XSLT.pm
# once (86µs+22µs) by Time::HiRes::BEGIN@4 at line 4 of Time/HiRes.pm
# once (82µs+25µs) by HTTP::Date::BEGIN@14 at line 14 of HTTP/Date.pm
# once (85µs+22µs) by List::Util::BEGIN@12 at line 12 of List/Util.pm
# once (83µs+23µs) by Date::Manip::Zones::BEGIN@23 at line 23 of Date/Manip/Zones.pm
# once (84µs+21µs) by C4::Stats::BEGIN@26 at line 26 of /usr/share/koha/lib/C4/Stats.pm
# once (85µs+20µs) by XML::LibXML::InputCallback::BEGIN@2077 at line 2077 of XML/LibXML.pm
# once (83µs+21µs) by C4::Context::BEGIN@21 at line 21 of /usr/share/koha/lib/C4/Context.pm
# once (81µs+22µs) by Storable::BEGIN@24 at line 24 of Storable.pm
# once (88µs+14µs) by Business::ISBN13::BEGIN@18 at line 18 of Business/ISBN13.pm
# once (80µs+23µs) by XML::Simple::BEGIN@51 at line 51 of XML/Simple.pm
# once (83µs+19µs) by XML::LibXML::SAX::Parser::BEGIN@13 at line 13 of XML/LibXML/SAX/Parser.pm
# once (83µs+19µs) by LWP::Simple::BEGIN@4 at line 4 of LWP/Simple.pm
# once (83µs+18µs) by Text::Iconv::BEGIN@6 at line 6 of Text/Iconv.pm
# once (81µs+19µs) by C4::Utils::BEGIN@26 at line 26 of /usr/share/koha/lib/C4/Utils.pm
# once (80µs+19µs) by C4::Auth_with_ldap::BEGIN@54 at line 54 of /usr/share/koha/lib/C4/Auth_with_ldap.pm
# once (80µs+18µs) by HTTP::Status::BEGIN@6 at line 6 of HTTP/Status.pm
# once (75µs+20µs) by Cache::Memcached::BEGIN@39 at line 39 of Cache/Memcached.pm
# once (71µs+24µs) by C4::Branch::BEGIN@24 at line 24 of /usr/share/koha/lib/C4/Branch.pm
# once (75µs+19µs) by Convert::ASN1::BEGIN@11 at line 11 of Convert/ASN1.pm
# once (78µs+15µs) by C4::Letters::BEGIN@37 at line 37 of /usr/share/koha/lib/C4/Letters.pm
# once (71µs+22µs) by Math::BigInt::FastCalc::BEGIN@10 at line 10 of Math/BigInt/FastCalc.pm
# once (82µs+7µs) by C4::ClassSortRoutine::Dewey::BEGIN@23 at line 23 of /usr/share/koha/lib/C4/ClassSortRoutine/Dewey.pm
# once (71µs+18µs) by C4::Search::BEGIN@40 at line 40 of /usr/share/koha/lib/C4/Search.pm
# once (71µs+17µs) by C4::Ratings::BEGIN@29 at line 29 of /usr/share/koha/lib/C4/Ratings.pm
# once (68µs+17µs) by Date::Calc::BEGIN@16 at line 16 of Date/Calc.pm
# once (64µs+21µs) by MIME::QuotedPrint::BEGIN@4 at line 4 of MIME/QuotedPrint.pm
# once (69µs+16µs) by C4::Auth_with_ldap::BEGIN@34 at line 34 of /usr/share/koha/lib/C4/Auth_with_ldap.pm
# once (60µs+24µs) by Date::Manip::Obj::BEGIN@18 at line 18 of Date/Manip/Obj.pm
# once (68µs+16µs) by Lingua::Stem::AutoLoader::BEGIN@44 at line 44 of Lingua/Stem/AutoLoader.pm
# once (67µs+17µs) by C4::Koha::BEGIN@33 at line 33 of /usr/share/koha/lib/C4/Koha.pm
# once (67µs+17µs) by C4::Languages::BEGIN@26 at line 26 of /usr/share/koha/lib/C4/Languages.pm
# once (68µs+15µs) by C4::Tags::BEGIN@32 at line 32 of /usr/share/koha/lib/C4/Tags.pm
# once (64µs+19µs) by C4::OAI::Sets::BEGIN@35 at line 35 of /usr/share/koha/lib/C4/OAI/Sets.pm
# once (63µs+18µs) by XML::LibXSLT::Security::BEGIN@506 at line 506 of XML/LibXSLT.pm
# once (63µs+18µs) by URI::Split::BEGIN@5 at line 5 of URI/Split.pm
# once (63µs+16µs) by C4::Output::BEGIN@38 at line 38 of /usr/share/koha/lib/C4/Output.pm
# once (64µs+15µs) by Template::Constants::BEGIN@28 at line 28 of Template/Constants.pm
# once (71µs+8µs) by XML::LibXML::PI::BEGIN@1765 at line 1765 of XML/LibXML.pm
# once (63µs+16µs) by C4::Debug::BEGIN@26 at line 26 of /usr/share/koha/lib/C4/Debug.pm
# once (63µs+16µs) by DateTime::TimeZone::Catalog::BEGIN@12 at line 12 of DateTime/TimeZone/Catalog.pm
# once (59µs+19µs) by List::MoreUtils::BEGIN@10 at line 10 of List/MoreUtils.pm
# once (63µs+13µs) by C4::VirtualShelves::BEGIN@32 at line 32 of /usr/share/koha/lib/C4/VirtualShelves.pm
# once (62µs+14µs) by Scalar::Util::BEGIN@10 at line 10 of Scalar/Util.pm
# once (62µs+14µs) by Sys::Hostname::Long::BEGIN@12 at line 12 of Sys/Hostname/Long.pm
# once (61µs+15µs) by POSIX::SigRt::BEGIN@66 at line 66 of POSIX.pm
# once (60µs+15µs) by C4::Dates::BEGIN@30 at line 30 of /usr/share/koha/lib/C4/Dates.pm
# once (57µs+17µs) by HTTP::Headers::BEGIN@6 at line 6 of HTTP/Headers.pm
# once (58µs+15µs) by Text::CSV::BEGIN@6 at line 6 of Text/CSV.pm
# once (58µs+14µs) by Cwd::BEGIN@5 at line 5 of Cwd.pm
# once (58µs+14µs) by URI::Escape::BEGIN@142 at line 142 of URI/Escape.pm
# once (58µs+13µs) by Readonly::BEGIN@178 at line 178 of Readonly.pm
# once (58µs+13µs) by XML::LibXML::XPathContext::BEGIN@13 at line 13 of XML/LibXML/XPathContext.pm
# once (57µs+12µs) by Time::Zone::BEGIN@149 at line 148 of Time/Zone.pm
# once (55µs+12µs) by fields::BEGIN@12 at line 12 of fields.pm
# once (56µs+11µs) by C4::Budgets::BEGIN@27 at line 27 of /usr/share/koha/lib/C4/Budgets.pm
# once (53µs+13µs) by DBI::Const::GetInfoType::BEGIN@16 at line 16 of DBI/Const/GetInfoType.pm
# once (53µs+13µs) by XML::SAX::Exception::BEGIN@8 at line 8 of XML/SAX/Exception.pm
# once (51µs+14µs) by Time::Local::BEGIN@9 at line 9 of Time/Local.pm
# once (55µs+11µs) by C4::ClassSortRoutine::LCC::BEGIN@25 at line 25 of /usr/share/koha/lib/C4/ClassSortRoutine/LCC.pm
# once (53µs+12µs) by C4::Biblio::BEGIN@41 at line 41 of /usr/share/koha/lib/C4/Biblio.pm
# once (52µs+12µs) by HTTP::Config::BEGIN@5 at line 5 of HTTP/Config.pm
# once (50µs+13µs) by URI::BEGIN@13 at line 13 of URI.pm
# once (52µs+11µs) by C4::Overdues::BEGIN@32 at line 32 of /usr/share/koha/lib/C4/Overdues.pm
# once (50µs+12µs) by Set::Infinite::Arithmetic::BEGIN@13 at line 13 of Set/Infinite/Arithmetic.pm
# once (50µs+11µs) by Time::Zone::BEGIN@47 at line 47 of Time/Zone.pm
# once (48µs+14µs) by XML::LibXML::BEGIN@35 at line 35 of XML/LibXML.pm
# once (50µs+12µs) by C4::NewsChannels::BEGIN@26 at line 26 of /usr/share/koha/lib/C4/NewsChannels.pm
# once (51µs+10µs) by Business::ISBN::BEGIN@73.14 at line 73 of Business/ISBN/Data.pm
# once (48µs+13µs) by B::Deparse::BEGIN@27 at line 27 of B/Deparse.pm
# once (50µs+11µs) by C4::SQLHelper::BEGIN@28 at line 28 of /usr/share/koha/lib/C4/SQLHelper.pm
# once (48µs+12µs) by Business::ISBN10::BEGIN@18 at line 18 of Business/ISBN10.pm
# once (49µs+11µs) by C4::Accounts::BEGIN@31 at line 31 of /usr/share/koha/lib/C4/Accounts.pm
# once (48µs+12µs) by File::Path::BEGIN@19 at line 19 of File/Path.pm
# once (48µs+12µs) by Set::Infinite::Arithmetic::BEGIN@31 at line 31 of Set/Infinite/Arithmetic.pm
# once (46µs+14µs) by base::BEGIN@4 at line 4 of base.pm
# once (47µs+12µs) by Date::Parse::BEGIN@207 at line 207 of Date/Parse.pm
# once (46µs+11µs) by IO::Select::BEGIN@11 at line 11 of IO/Select.pm
# once (46µs+11µs) by Text::Unaccent::BEGIN@21 at line 21 of Text/Unaccent.pm
# once (44µs+12µs) by Net::LDAP::BEGIN@11 at line 11 of Net/LDAP.pm
# once (45µs+11µs) by LWP::UserAgent::BEGIN@4 at line 4 of LWP/UserAgent.pm
# once (45µs+10µs) by Set::Infinite::_recurrence::BEGIN@12 at line 12 of Set/Infinite/_recurrence.pm
# once (44µs+11µs) by Date::Manip::TZ::etgmt00::BEGIN@34 at line 34 of Date/Manip/TZ/etgmt00.pm
# once (44µs+10µs) by XML::SAX::BEGIN@6 at line 6 of XML/SAX.pm
# once (44µs+10µs) by File::Spec::BEGIN@4 at line 4 of File/Spec.pm
# once (43µs+11µs) by C4::SMS::BEGIN@40 at line 40 of /usr/share/koha/lib/C4/SMS.pm
# once (44µs+9µs) by XML::LibXML::CDATASection::BEGIN@1723 at line 1723 of XML/LibXML.pm
# once (43µs+11µs) by Digest::MD5::BEGIN@4 at line 4 of Digest/MD5.pm
# once (40µs+12µs) by DateTime::TimeZone::Floating::BEGIN@5 at line 5 of DateTime/TimeZone/Floating.pm
# once (42µs+11µs) by Set::Infinite::Basic::BEGIN@13 at line 13 of Set/Infinite/Basic.pm
# once (39µs+13µs) by Template::Constants::BEGIN@27 at line 27 of Template/Constants.pm
# once (39µs+12µs) by C4::Members::BEGIN@891 at line 891 of /usr/share/koha/lib/C4/Members.pm
# once (43µs+8µs) by XML::LibXML::Literal::BEGIN@15 at line 15 of XML/LibXML/Literal.pm
# once (40µs+10µs) by Readonly::XS::BEGIN@20 at line 20 of Readonly/XS.pm
# once (40µs+10µs) by Date::Manip::Recur::BEGIN@25 at line 25 of Date/Manip/Recur.pm
# once (41µs+9µs) by Date::Manip::Date::BEGIN@28 at line 28 of Date/Manip/Date.pm
# once (41µs+8µs) by Lingua::Stem::Da::BEGIN@50 at line 50 of (eval 1041)[Lingua/Stem/AutoLoader.pm:88]
# once (39µs+10µs) by Date::Parse::BEGIN@9 at line 9 of Date/Parse.pm
# once (40µs+8µs) by DateTime::Format::DateParse::BEGIN@9 at line 9 of DateTime/Format/DateParse.pm
# once (41µs+8µs) by XML::LibXML::Comment::BEGIN@1716 at line 1716 of XML/LibXML.pm
# once (39µs+9µs) by MARC::Record::BEGIN@23 at line 23 of MARC/Record.pm
# once (38µs+10µs) by MIME::Base64::BEGIN@4 at line 4 of MIME/Base64.pm
# once (38µs+9µs) by Date::Manip::BEGIN@58 at line 58 of Date/Manip.pm
# once (37µs+10µs) by URI::BEGIN@7 at line 7 of URI.pm
# once (39µs+8µs) by DateTime::Format::Builder::Parser::generic::BEGIN@3 at line 3 of DateTime/Format/Builder/Parser/generic.pm
# once (38µs+8µs) by Lingua::Stem::Fr::BEGIN@34 at line 34 of (eval 1041)[Lingua/Stem/AutoLoader.pm:88]
# once (36µs+10µs) by DateTime::Format::Builder::Parser::Strptime::BEGIN@28 at line 28 of DateTime/Format/Builder/Parser/Strptime.pm
# once (30µs+15µs) by MIME::Lite::SMTP::BEGIN@3095 at line 3095 of MIME/Lite.pm
# once (36µs+9µs) by DateTime::Format::Builder::Parser::Regex::BEGIN@69 at line 69 of DateTime/Format/Builder/Parser/Regex.pm
# once (36µs+9µs) by Lingua::Stem::De::BEGIN@2 at line 2 of (eval 1041)[Lingua/Stem/AutoLoader.pm:88]
# once (36µs+8µs) by Lingua::Stem::En::BEGIN@18 at line 18 of (eval 1041)[Lingua/Stem/AutoLoader.pm:88]
# once (36µs+8µs) by MIME::Types::BEGIN@137 at line 137 of MIME/Types.pm
# once (35µs+8µs) by MIME::Types::BEGIN@7 at line 7 of MIME/Types.pm
# once (36µs+7µs) by Algorithm::CheckDigits::BEGIN@8 at line 8 of Algorithm/CheckDigits.pm
# once (34µs+9µs) by MARC::File::XML::BEGIN@5 at line 5 of MARC/File/XML.pm
# once (35µs+8µs) by Lingua::Stem::EnBroken::BEGIN@146 at line 146 of (eval 1041)[Lingua/Stem/AutoLoader.pm:88]
# once (34µs+8µs) by Text::CSV_XS::BEGIN@32 at line 32 of Text/CSV_XS.pm
# once (29µs+13µs) by URI::BEGIN@4 at line 4 of URI.pm
# once (34µs+8µs) by Readonly::BEGIN@42 at line 42 of Readonly.pm
# once (32µs+10µs) by DateTime::Format::Builder::Parser::Quick::BEGIN@3 at line 3 of DateTime/Format/Builder/Parser/Quick.pm
# once (32µs+9µs) by DateTime::Format::Builder::Parser::Dispatch::BEGIN@3 at line 3 of DateTime/Format/Builder/Parser/Dispatch.pm
# once (34µs+7µs) by XML::LibXML::Number::BEGIN@15 at line 15 of XML/LibXML/Number.pm
# once (32µs+9µs) by HTTP::Message::BEGIN@4 at line 4 of HTTP/Message.pm
# once (34µs+7µs) by Lingua::Stem::No::BEGIN@98 at line 98 of (eval 1041)[Lingua/Stem/AutoLoader.pm:88]
# once (32µs+7µs) by DateTime::TimeZone::UTC::BEGIN@5 at line 5 of DateTime/TimeZone/UTC.pm
# once (29µs+10µs) by Class::Factory::Util::BEGIN@4 at line 4 of Class/Factory/Util.pm
# once (33µs+7µs) by XML::LibXML::Document::BEGIN@1359 at line 1359 of XML/LibXML.pm
# once (30µs+9µs) by C4::ClassSortRoutine::Generic::BEGIN@23 at line 23 of /usr/share/koha/lib/C4/ClassSortRoutine/Generic.pm
# once (32µs+7µs) by Date::Manip::TZ::BEGIN@26 at line 26 of Date/Manip/TZ.pm
# once (31µs+8µs) by MIME::Type::BEGIN@6 at line 6 of MIME/Type.pm
# once (31µs+8µs) by Date::Manip::Lang::index::BEGIN@27 at line 27 of Date/Manip/Lang/index.pm
# once (28µs+11µs) by Net::LDAP::Message::BEGIN@10 at line 10 of Net/LDAP/Message.pm
# once (29µs+8µs) by MARC::File::USMARC::BEGIN@12 at line 12 of MARC/File/USMARC.pm
# once (30µs+7µs) by Lingua::Stem::Gl::BEGIN@66 at line 66 of (eval 1041)[Lingua/Stem/AutoLoader.pm:88]
# once (30µs+6µs) by Lingua::Stem::It::BEGIN@82 at line 82 of (eval 1041)[Lingua/Stem/AutoLoader.pm:88]
# once (29µs+8µs) by DateTime::Format::Builder::BEGIN@17 at line 17 of DateTime/Format/Builder.pm
# once (26µs+10µs) by Net::LDAP::Filter::BEGIN@8 at line 8 of Net/LDAP/Filter.pm
# once (28µs+8µs) by Date::Manip::Zones::BEGIN@20 at line 20 of Date/Manip/Zones.pm
# once (30µs+5µs) by Net::LDAP::Message::Dummy::BEGIN@251 at line 251 of Net/LDAP/Message.pm
# once (27µs+7µs) by Date::Manip::Delta::BEGIN@24 at line 24 of Date/Manip/Delta.pm
# once (27µs+6µs) by DateTime::Format::MySQL::BEGIN@5 at line 5 of DateTime/Format/MySQL.pm
# once (24µs+8µs) by XML::SAX::Base::BEGIN@29 at line 29 of XML/SAX/Base.pm
# once (28µs+4µs) by MARC::Field::BEGIN@10 at line 10 of MARC/Field.pm
# once (26µs+6µs) by C4::Members::AttributeTypes::BEGIN@24 at line 24 of /usr/share/koha/lib/C4/Members/AttributeTypes.pm
# once (24µs+7µs) by DateTime::TimeZone::Local::BEGIN@6 at line 6 of DateTime/TimeZone/Local.pm
# once (26µs+5µs) by XML::LibXML::DocumentFragment::BEGIN@1455 at line 1455 of XML/LibXML.pm
# once (23µs+8µs) by Readonly::BEGIN@39 at line 39 of Readonly.pm
# once (25µs+6µs) by MARC::File::BEGIN@12 at line 12 of MARC/File.pm
# once (23µs+6µs) by C4::Dates::BEGIN@31 at line 31 of /usr/share/koha/lib/C4/Dates.pm
# once (24µs+5µs) by XML::LibXML::Text::BEGIN@1663 at line 1663 of XML/LibXML.pm
# once (23µs+6µs) by Mail::Sendmail::BEGIN@183 at line 183 of Mail/Sendmail.pm
# once (23µs+5µs) by URI::Escape::BEGIN@143 at line 143 of URI/Escape.pm
# once (23µs+5µs) by XML::SAX::ParserFactory::BEGIN@6 at line 6 of XML/SAX/ParserFactory.pm
# once (23µs+5µs) by XML::LibXML::Attr::BEGIN@1732 at line 1732 of XML/LibXML.pm
# once (24µs+4µs) by MARC::Record::BEGIN@32 at line 32 of MARC/Record.pm
# once (22µs+6µs) by File::Spec::Unix::BEGIN@4 at line 4 of File/Spec/Unix.pm
# once (22µs+5µs) by MARC::File::USMARC::BEGIN@16 at line 16 of MARC/File/USMARC.pm
# once (21µs+6µs) by Digest::base::BEGIN@4 at line 4 of Digest/base.pm
# once (21µs+6µs) by Date::Manip::Lang::english::BEGIN@29 at line 29 of Date/Manip/Lang/english.pm
# once (21µs+6µs) by DateTime::Format::Builder::Parser::BEGIN@3 at line 3 of DateTime/Format/Builder/Parser.pm
# once (21µs+6µs) by Date::Manip::Base::BEGIN@25 at line 25 of Date/Manip/Base.pm
# once (21µs+5µs) by DateTime::Set::BEGIN@13 at line 13 of DateTime/Set.pm
# once (21µs+5µs) by DateTime::TimeZone::OffsetOnly::BEGIN@5 at line 5 of DateTime/TimeZone/OffsetOnly.pm
# once (20µs+5µs) by Lingua::Stem::Pt::BEGIN@114 at line 114 of (eval 1041)[Lingua/Stem/AutoLoader.pm:88]
# once (20µs+5µs) by C4::Members::Messaging::BEGIN@24 at line 24 of /usr/share/koha/lib/C4/Members/Messaging.pm
# once (20µs+5µs) by XML::LibXML::NodeList::BEGIN@16 at line 16 of XML/LibXML/NodeList.pm
# once (20µs+5µs) by DateTime::Span::BEGIN@13 at line 13 of DateTime/Span.pm
# once (21µs+4µs) by XML::LibXML::Element::BEGIN@1478 at line 1478 of XML/LibXML.pm
# once (19µs+5µs) by MARC::Record::BEGIN@12 at line 12 of MARC/Record.pm
# once (20µs+4µs) by XML::LibXML::Dtd::BEGIN@1754 at line 1754 of XML/LibXML.pm
# once (19µs+5µs) by DateTime::SpanSet::BEGIN@14 at line 14 of DateTime/SpanSet.pm
# once (19µs+5µs) by XML::LibXML::Boolean::BEGIN@16 at line 16 of XML/LibXML/Boolean.pm
# once (19µs+5µs) by Business::ISBN::Data::BEGIN@4 at line 4 of Business/ISBN/Data.pm
# once (19µs+4µs) by Lingua::Stem::Sv::BEGIN@130 at line 130 of (eval 1041)[Lingua/Stem/AutoLoader.pm:88]
# once (18µs+5µs) by Memoize::BEGIN@29 at line 29 of Memoize.pm
# once (18µs+4µs) by Date::Manip::TZ::etgmt00::BEGIN@36 at line 36 of Date/Manip/TZ/etgmt00.pm
# once (18µs+4µs) by Time::Zone::BEGIN@59 at line 59 of Time/Zone.pm
# once (18µs+4µs) by Date::Manip::Lang::english::BEGIN@32 at line 32 of Date/Manip/Lang/english.pm
# once (18µs+4µs) by C4::Dates::BEGIN@39 at line 39 of /usr/share/koha/lib/C4/Dates.pm | ||||
| 11 | 860 | 2.85ms | my $callpack = caller; | ||
| 12 | my ($pack, @imports) = @_; | ||||
| 13 | my ($sym, $ch); | ||||
| 14 | foreach (@imports) { | ||||
| 15 | 2780 | 14.7ms | 695 | 2.29ms | if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) { # spent 2.29ms making 695 calls to vars::CORE:match, avg 3µs/call |
| 16 | 695 | 606µs | if ($sym =~ /\W/) { # spent 606µs making 695 calls to vars::CORE:match, avg 871ns/call | ||
| 17 | # time for a more-detailed check-up | ||||
| 18 | if ($sym =~ /^\w+[[{].*[]}]$/) { | ||||
| 19 | require Carp; | ||||
| 20 | Carp::croak("Can't declare individual elements of hash or array"); | ||||
| 21 | } elsif (warnings::enabled() and length($sym) == 1 and $sym !~ tr/a-zA-Z//) { | ||||
| 22 | warnings::warn("No need to declare built-in vars"); | ||||
| 23 | } elsif (($^H &= strict::bits('vars'))) { | ||||
| 24 | require Carp; | ||||
| 25 | Carp::croak("'$_' is not a valid variable name under strict vars"); | ||||
| 26 | } | ||||
| 27 | } | ||||
| 28 | 695 | 509µs | $sym = "${callpack}::$sym" unless $sym =~ /::/; # spent 509µs making 695 calls to vars::CORE:match, avg 733ns/call | ||
| 29 | *$sym = | ||||
| 30 | ( $ch eq "\$" ? \$$sym | ||||
| 31 | : $ch eq "\@" ? \@$sym | ||||
| 32 | : $ch eq "\%" ? \%$sym | ||||
| 33 | : $ch eq "\*" ? \*$sym | ||||
| 34 | : $ch eq "\&" ? \&$sym | ||||
| 35 | : do { | ||||
| 36 | require Carp; | ||||
| 37 | Carp::croak("'$_' is not a valid variable name"); | ||||
| 38 | }); | ||||
| 39 | } else { | ||||
| 40 | require Carp; | ||||
| 41 | Carp::croak("'$_' is not a valid variable name"); | ||||
| 42 | } | ||||
| 43 | } | ||||
| 44 | }; | ||||
| 45 | |||||
| 46 | 1 | 3µs | 1; | ||
| 47 | __END__ | ||||
sub vars::CORE:match; # opcode |