← Index
NYTProf Performance Profile   « line view »
For ../prof.pl
  Run on Wed Dec 14 15:33:55 2022
Reported on Wed Dec 14 15:40:02 2022

Filename/Users/ether/perl5/perlbrew/perls/36.0/lib/5.36.0/Exporter.pm
StatementsExecuted 3425 statements in 12.6ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
2292201109.94ms14.9msExporter::::importExporter::import
26212.28ms2.45msExporter::::as_heavyExporter::as_heavy
79721434µs434µsExporter::::CORE:matchExporter::CORE:match (opcode)
172021390µs390µsExporter::::CORE:substExporter::CORE:subst (opcode)
221195µs2.49msExporter::::exportExporter::export
11117µs19µsExporter::::BEGIN@3Exporter::BEGIN@3
44417µs73µsExporter::::export_ok_tagsExporter::export_ok_tags
1114µs8µsExporter::::BEGIN@4Exporter::BEGIN@4
0000s0sExporter::::__ANON__[:61]Exporter::__ANON__[:61]
0000s0sExporter::::export_failExporter::export_fail
0000s0sExporter::::export_tagsExporter::export_tags
0000s0sExporter::::export_to_levelExporter::export_to_level
0000s0sExporter::::require_versionExporter::require_version
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package Exporter;
2
3223µs221µs
# spent 19µs (17+2) within Exporter::BEGIN@3 which was called: # once (17µs+2µs) by Moo::_Utils::BEGIN@12 at line 3
use strict;
# spent 19µs making 1 call to Exporter::BEGIN@3 # spent 2µs making 1 call to strict::import
42407µs212µs
# spent 8µs (4+4) within Exporter::BEGIN@4 which was called: # once (4µs+4µs) by Moo::_Utils::BEGIN@12 at line 4
no strict 'refs';
# spent 8µs making 1 call to Exporter::BEGIN@4 # spent 4µs making 1 call to strict::unimport
5
610sour $Debug = 0;
710sour $ExportLevel = 0;
810sour $Verbose ||= 0;
910sour $VERSION = '5.77';
10our %Cache;
11
12
# spent 2.45ms (2.28+173µs) within Exporter::as_heavy which was called 26 times, avg 94µs/call: # 22 times (2.24ms+156µs) by Exporter::export at line 22, avg 109µs/call # 4 times (39µs+17µs) by Exporter::export_ok_tags at line 86, avg 14µs/call
sub as_heavy {
1326599µs require Exporter::Heavy;
14 # Unfortunately, this does not work if the caller is aliased as *name = \&foo
15 # Thus the need to create a lot of identical subroutines
162684µs my $c = (caller(1))[3];
1726176µs2698µs $c =~ s/.*:://;
# spent 98µs making 26 calls to Exporter::CORE:subst, avg 4µs/call
1826109µs \&{"Exporter::Heavy::heavy_$c"};
19}
20
21
# spent 2.49ms (95µs+2.39) within Exporter::export which was called 22 times, avg 113µs/call: # 22 times (95µs+2.39ms) by Exporter::import at line 59, avg 113µs/call
sub export {
2222130µs444.16ms goto &{as_heavy()};
# spent 2.39ms making 22 calls to Exporter::as_heavy, avg 109µs/call # spent 1.77ms making 22 calls to Exporter::Heavy::heavy_export, avg 80µs/call
23}
24
25
# spent 14.9ms (9.94+4.98) within Exporter::import which was called 229 times, avg 65µs/call: # 10 times (242µs+11µs) by Data::Perl::Role::Collection::Array::BEGIN@8 or JSON::Schema::Modern::BEGIN@20 or JSON::Schema::Modern::Document::BEGIN@19 or JSON::Schema::Modern::Document::OpenAPI::BEGIN@22 or JSON::Schema::Modern::Result::BEGIN@23 or JSON::Schema::Modern::Vocabulary::Applicator::BEGIN@17 or JSON::Schema::Modern::Vocabulary::Unevaluated::BEGIN@17 or JSON::Schema::Modern::Vocabulary::Validation::BEGIN@17 or Mojo::Util::BEGIN@15.5 or OpenAPI::Modern::BEGIN@21 at line 39 of List/Util.pm, avg 25µs/call # once (21µs+2.18ms) by OpenAPI::Modern::BEGIN@19 at line 19 of OpenAPI/Modern.pm # once (1.15ms+105µs) by POSIX::import at line 192 of POSIX.pm # once (593µs+38µs) by Mojo::Util::BEGIN@18 at line 18 of Mojo/Util.pm # once (309µs+121µs) by Storable::BEGIN@83 at line 84 of Storable.pm # once (66µs+216µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 8 of IO/Compress/Adapter/Deflate.pm # once (58µs+183µs) by IO::Compress::Gzip::BEGIN@15 at line 15 of IO/Compress/Gzip.pm # once (50µs+188µs) by IO::Compress::Zlib::Extra::BEGIN@13 at line 13 of IO/Compress/Zlib/Extra.pm # once (98µs+136µs) by IO::Uncompress::Gunzip::BEGIN@16 at line 16 of IO/Uncompress/Gunzip.pm # once (50µs+155µs) by File::Glob::import at line 42 of File/Glob.pm # once (162µs+8µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 8 of IO/Uncompress/RawInflate.pm # once (165µs+2µs) by Type::Library::BEGIN@15 at line 15 of Type/Library.pm # once (145µs+11µs) by POSIX::BEGIN@11 at line 17 of POSIX.pm # once (23µs+118µs) by IO::Uncompress::Gunzip::BEGIN@15 at line 15 of IO/Uncompress/Gunzip.pm # once (123µs+10µs) by IO::Compress::Base::BEGIN@9 at line 9 of IO/Compress/Base.pm # once (45µs+88µs) by IO::Compress::RawDeflate::BEGIN@10 at line 10 of IO/Compress/RawDeflate.pm # once (124µs+7µs) by Mojo::Parameters::BEGIN@5 at line 5 of Mojo/Parameters.pm # once (41µs+87µs) by YAML::PP::Lexer::BEGIN@10 at line 10 of YAML/PP/Lexer.pm # once (117µs+10µs) by IO::Compress::Base::BEGIN@11 at line 146 of IO/File.pm # once (21µs+102µs) by IO::Uncompress::Adapter::Inflate::BEGIN@7 at line 7 of IO/Uncompress/Adapter/Inflate.pm # once (112µs+10µs) by IO::Uncompress::Base::BEGIN@17 at line 17 of IO/Uncompress/Base.pm # once (110µs+7µs) by IO::Uncompress::Base::BEGIN@19 at line 19 of IO/Uncompress/Base.pm # once (33µs+80µs) by Getopt::Long::import at line 119 of Getopt/Long.pm # once (25µs+86µs) by JSON::Schema::Modern::Annotation::BEGIN@17 at line 17 of JSON/Schema/Modern/Annotation.pm # once (28µs+82µs) by JSON::Schema::Modern::BEGIN@24 at line 24 of JSON/Schema/Modern.pm # once (104µs+4µs) by Mojo::Util::BEGIN@4 at line 4 of Mojo/Util.pm # once (96µs+8µs) by Moo::BEGIN@6 at line 17 of Moo.pm # once (99µs+4µs) by Mojo::Util::BEGIN@16.6 at line 16 of Mojo/Util.pm # once (31µs+71µs) by YAML::PP::Parser::BEGIN@19 at line 19 of YAML/PP/Parser.pm # once (98µs+3µs) by Data::Perl::Collection::Array::MooseLike::BEGIN@7 at line 7 of Data/Perl/Collection/Array/MooseLike.pm # once (91µs+7µs) by IO::Compress::RawDeflate::BEGIN@11 at line 11 of IO/Compress/RawDeflate.pm # once (98µs+0s) by Role::Tiny::With::BEGIN@11 at line 11 of Role/Tiny/With.pm # once (18µs+80µs) by IO::Uncompress::RawInflate::BEGIN@9 at line 9 of IO/Uncompress/RawInflate.pm # once (18µs+79µs) by IO::Compress::Adapter::Deflate::BEGIN@7 at line 7 of IO/Compress/Adapter/Deflate.pm # once (93µs+4µs) by Mojo::URL::BEGIN@7 at line 7 of Mojo/URL.pm # once (19µs+77µs) by JSON::Schema::Modern::Document::OpenAPI::BEGIN@19 at line 19 of JSON/Schema/Modern/Document/OpenAPI.pm # once (84µs+6µs) by Moo::_Utils::BEGIN@37 at line 37 of Moo/_Utils.pm # once (14µs+76µs) by JSON::Schema::Modern::Result::BEGIN@25 at line 25 of JSON/Schema/Modern/Result.pm # once (68µs+15µs) by JSON::Schema::Modern::BEGIN@27 at line 481 of File/ShareDir.pm # once (18µs+65µs) by JSON::Schema::Modern::Error::BEGIN@17 at line 17 of JSON/Schema/Modern/Error.pm # once (70µs+11µs) by YAML::PP::Schema::Core::BEGIN@7 at line 10 of YAML/PP/Schema/Core.pm # once (73µs+7µs) by IO::Compress::Gzip::BEGIN@12 at line 12 of IO/Compress/Gzip.pm # once (72µs+7µs) by JSON::Schema::Modern::BEGIN@36 at line 36 of JSON/Schema/Modern.pm # once (69µs+9µs) by Method::Generate::Accessor::BEGIN@8 at line 8 of Method/Generate/Accessor.pm # once (70µs+6µs) by YAML::PP::Schema::BEGIN@9 at line 9 of YAML/PP/Schema.pm # once (66µs+5µs) by Moo::Role::BEGIN@5 at line 16 of Moo/Role.pm # once (66µs+5µs) by Mojo::Util::BEGIN@7 at line 7 of Mojo/Util.pm # once (59µs+7µs) by Moo::_Utils::BEGIN@36 at line 36 of Moo/_Utils.pm # once (62µs+2µs) by OpenAPI::Modern::BEGIN@24 at line 24 of OpenAPI/Modern.pm # once (60µs+4µs) by JSON::Schema::Modern::Vocabulary::Core::BEGIN@17 at line 17 of JSON/Schema/Modern/Vocabulary/Core.pm # once (10µs+54µs) by JSON::Schema::Modern::Document::BEGIN@21 at line 21 of JSON/Schema/Modern/Document.pm # once (57µs+6µs) by OpenAPI::Modern::BEGIN@20 at line 20 of OpenAPI/Modern.pm # once (54µs+9µs) by Mojo::Util::BEGIN@8 at line 8 of Mojo/Util.pm # once (8µs+54µs) by IO::Compress::Gzip::BEGIN@14 at line 14 of IO/Compress/Gzip.pm # once (58µs+2µs) by Data::Perl::Collection::Array::MooseLike::BEGIN@8 at line 8 of Data/Perl/Collection/Array/MooseLike.pm # once (55µs+3µs) by Socket::BEGIN@697 at line 697 of Socket.pm # once (56µs+2µs) by JSON::Schema::Modern::Vocabulary::MetaData::BEGIN@17 at line 17 of JSON/Schema/Modern/Vocabulary/MetaData.pm # once (54µs+3µs) by Tie::Hash::BEGIN@190 at line 190 of Tie/Hash.pm # once (56µs+1µs) by JSON::Schema::Modern::Vocabulary::Validation::BEGIN@20 at line 20 of JSON/Schema/Modern/Vocabulary/Validation.pm # once (52µs+4µs) by Storable::BEGIN@42 at line 42 of Storable.pm # once (48µs+7µs) by Mojo::Util::BEGIN@17 at line 17 of Mojo/Util.pm # once (48µs+6µs) by Module::Implementation::BEGIN@9 at line 9 of Module/Implementation.pm # once (47µs+7µs) by Mojo::Util::BEGIN@13.4 at line 13 of Mojo/Util.pm # once (50µs+3µs) by JSON::Schema::Modern::Vocabulary::Applicator::BEGIN@20 at line 20 of JSON/Schema/Modern/Vocabulary/Applicator.pm # once (45µs+7µs) by JSON::Schema::Modern::BEGIN@18 at line 18 of JSON/Schema/Modern.pm # once (49µs+2µs) by YAML::PP::Representer::BEGIN@9 at line 17 of YAML/PP/Representer.pm # once (48µs+3µs) by JSON::Schema::Modern::Vocabulary::FormatAnnotation::BEGIN@17 at line 17 of JSON/Schema/Modern/Vocabulary/FormatAnnotation.pm # once (45µs+5µs) by YAML::PP::Dumper::BEGIN@13 at line 20 of YAML/PP/Dumper.pm # once (47µs+3µs) by YAML::PP::Parser::BEGIN@11 at line 16 of YAML/PP/Parser.pm # once (47µs+2µs) by JSON::Schema::Modern::Document::OpenAPI::BEGIN@18 at line 18 of JSON/Schema/Modern/Document/OpenAPI.pm # once (43µs+6µs) by YAML::PP::Constructor::BEGIN@9 at line 11 of YAML/PP/Constructor.pm # once (46µs+2µs) by OpenAPI::Modern::BEGIN@27 at line 27 of OpenAPI/Modern.pm # once (44µs+4µs) by JSON::MaybeXS::BEGIN@29 at line 31 of JSON/MaybeXS.pm # once (43µs+3µs) by IO::File::BEGIN@129 at line 129 of IO/File.pm # once (44µs+2µs) by Method::Generate::BuildAll::BEGIN@7 at line 7 of Method/Generate/BuildAll.pm # once (42µs+3µs) by Encode::BEGIN@56 at line 56 of Encode.pm # once (43µs+1000ns) by JSON::Schema::Modern::Vocabulary::FormatAssertion::BEGIN@17 at line 17 of JSON/Schema/Modern/Vocabulary/FormatAssertion.pm # once (43µs+1000ns) by IO::BEGIN@6 at line 6 of IO.pm # once (40µs+3µs) by Compress::Raw::Zlib::BEGIN@6 at line 6 of Compress/Raw/Zlib.pm # once (40µs+2µs) by IO::Compress::Base::Common::BEGIN@7 at line 7 of IO/Compress/Base/Common.pm # once (34µs+8µs) by namespace::clean::BEGIN@38 at line 38 of namespace/clean.pm # once (37µs+4µs) by experimental::BEGIN@8 at line 8 of experimental.pm # once (32µs+9µs) by Type::Tiny::BEGIN@20 at line 20 of Type/Tiny.pm # once (39µs+2µs) by Unicode::Normalize::BEGIN@6 at line 6 of Unicode/Normalize.pm # once (36µs+5µs) by IO::Seekable::BEGIN@103 at line 103 of IO/Seekable.pm # once (40µs+0s) by IO::Uncompress::Adapter::Inflate::BEGIN@8 at line 8 of IO/Uncompress/Adapter/Inflate.pm # once (35µs+4µs) by Pod::Simple::TiedOutFH::BEGIN@4 at line 4 of Pod/Simple/TiedOutFH.pm # once (36µs+3µs) by Sub::Quote::BEGIN@8 at line 8 of Sub/Quote.pm # once (37µs+2µs) by JSON::Schema::Modern::Vocabulary::OpenAPI::BEGIN@17 at line 17 of JSON/Schema/Modern/Vocabulary/OpenAPI.pm # once (37µs+2µs) by Types::TypeTiny::BEGIN@12 at line 12 of Types/TypeTiny.pm # once (34µs+5µs) by YAML::PP::Representer::BEGIN@7 at line 7 of YAML/PP/Representer.pm # once (37µs+2µs) by IO::File::BEGIN@130 at line 130 of IO/File.pm # once (36µs+3µs) by Mojo::Util::BEGIN@10 at line 10 of Mojo/Util.pm # once (38µs+1000ns) by SelectSaver::BEGIN@38 at line 38 of SelectSaver.pm # once (36µs+2µs) by Mojo::Path::BEGIN@5 at line 5 of Mojo/Path.pm # once (35µs+2µs) by JSON::Schema::Modern::BEGIN@26 at line 26 of JSON/Schema/Modern.pm # once (35µs+1µs) by Pod::Text::BEGIN@23 at line 23 of Pod/Text.pm # once (35µs+1µs) by namespace::clean::BEGIN@11 at line 45 of Sub/Exporter/Progressive.pm # once (33µs+2µs) by MooX::TypeTiny::Role::GenerateAccessor::BEGIN@3 at line 3 of MooX/TypeTiny/Role/GenerateAccessor.pm # once (34µs+1000ns) by YAML::PP::Writer::File::BEGIN@7 at line 7 of YAML/PP/Writer/File.pm # once (33µs+2µs) by Mojo::Util::BEGIN@6 at line 6 of Mojo/Util.pm # once (31µs+3µs) by JSON::Schema::Modern::Utilities::BEGIN@18 at line 18 of JSON/Schema/Modern/Utilities.pm # once (31µs+3µs) by Moo::sification::BEGIN@6 at line 6 of Moo/sification.pm # once (33µs+1000ns) by Types::Standard::BEGIN@24 at line 24 of Types/Standard.pm # once (32µs+2µs) by Pod::Usage::BEGIN@16 at line 16 of Pod/Usage.pm # once (32µs+2µs) by Tie::Array::BEGIN@5 at line 5 of Tie/Array.pm # once (33µs+1000ns) by YAML::PP::Dumper::BEGIN@7 at line 7 of YAML/PP/Dumper.pm # once (31µs+3µs) by Mojo::Util::BEGIN@19 at line 19 of Mojo/Util.pm # once (32µs+1µs) by JSON::Schema::Modern::Utilities::BEGIN@17 at line 17 of JSON/Schema/Modern/Utilities.pm # once (31µs+2µs) by Type::Tiny::Union::BEGIN@14 at line 14 of Type/Tiny/Union.pm # once (32µs+1µs) by File::GlobMapper::BEGIN@5 at line 5 of File/GlobMapper.pm # once (30µs+2µs) by IO::Compress::Base::Common::BEGIN@523 at line 523 of IO/Compress/Base/Common.pm # once (31µs+1000ns) by YAML::PP::Emitter::BEGIN@8 at line 13 of YAML/PP/Emitter.pm # once (30µs+2µs) by Method::Generate::Constructor::BEGIN@5 at line 5 of Method/Generate/Constructor.pm # once (30µs+2µs) by IO::Uncompress::Base::BEGIN@23 at line 23 of IO/Uncompress/Base.pm # once (31µs+1000ns) by IO::Seekable::BEGIN@98 at line 98 of IO/Seekable.pm # once (30µs+2µs) by JSON::Schema::Modern::Vocabulary::Content::BEGIN@19 at line 19 of JSON/Schema/Modern/Vocabulary/Content.pm # once (30µs+1µs) by Type::Coercion::BEGIN@15 at line 15 of Type/Coercion.pm # once (30µs+0s) by Data::Perl::Collection::Hash::MooseLike::BEGIN@7 at line 7 of Data/Perl/Collection/Hash/MooseLike.pm # once (29µs+1µs) by Type::Tiny::Duck::BEGIN@14 at line 14 of Type/Tiny/Duck.pm # once (27µs+3µs) by MooX::TypeTiny::BEGIN@7 at line 7 of MooX/TypeTiny.pm # once (27µs+2µs) by YAML::PP::Schema::JSON::BEGIN@14 at line 14 of YAML/PP/Schema/JSON.pm # once (27µs+2µs) by Try::Tiny::BEGIN@13 at line 13 of Try/Tiny.pm # once (27µs+2µs) by YAML::PP::Preserve::Hash::BEGIN@228 at line 228 of YAML/PP.pm # once (27µs+2µs) by IO::Handle::BEGIN@265 at line 265 of IO/Handle.pm # once (28µs+1µs) by JSON::Schema::Modern::Vocabulary::Content::BEGIN@17 at line 17 of JSON/Schema/Modern/Vocabulary/Content.pm # once (25µs+3µs) by Params::Util::BEGIN@63 at line 19 of Params/Util/PP.pm # once (28µs+0s) by File::ShareDir::BEGIN@1.26 at line 1 of (eval 31)[File/ShareDir.pm:481] # once (27µs+1µs) by Sub::Install::BEGIN@6 at line 6 of Sub/Install.pm # once (26µs+2µs) by Method::Generate::Accessor::BEGIN@5 at line 5 of Method/Generate/Accessor.pm # once (25µs+3µs) by YAML::PP::Reader::File::BEGIN@45 at line 45 of YAML/PP/Reader.pm # once (27µs+0s) by Data::Perl::Collection::Hash::MooseLike::BEGIN@8 at line 8 of Data/Perl/Collection/Hash/MooseLike.pm # once (25µs+2µs) by Data::Perl::Role::Collection::Array::BEGIN@10 at line 10 of Data/Perl/Role/Collection/Array.pm # once (26µs+1µs) by JSON::Schema::Modern::BEGIN@25 at line 25 of JSON/Schema/Modern.pm # once (25µs+2µs) by Type::Tiny::Class::BEGIN@14 at line 14 of Type/Tiny/Class.pm # once (25µs+2µs) by IO::Handle::BEGIN@266 at line 266 of IO/Handle.pm # once (24µs+2µs) by Data::Perl::Role::Collection::Hash::BEGIN@8 at line 8 of Data/Perl/Role/Collection/Hash.pm # once (23µs+2µs) by OpenAPI::Modern::BEGIN@18 at line 18 of OpenAPI/Modern.pm # once (24µs+1µs) by YAML::PP::Emitter::BEGIN@6 at line 6 of YAML/PP/Emitter.pm # once (24µs+1µs) by IO::File::BEGIN@132 at line 132 of IO/File.pm # once (24µs+1µs) by JSON::Schema::Modern::BEGIN@21 at line 21 of JSON/Schema/Modern.pm # once (24µs+1µs) by Method::Generate::Constructor::BEGIN@6 at line 6 of Method/Generate/Constructor.pm # once (25µs+0s) by IO::Uncompress::Base::BEGIN@20 at line 20 of IO/Uncompress/Base.pm # once (24µs+1µs) by YAML::PP::BEGIN@13 at line 13 of YAML/PP.pm # once (24µs+1µs) by JSON::Schema::Modern::Document::BEGIN@18 at line 18 of JSON/Schema/Modern/Document.pm # once (23µs+1µs) by Digest::SHA::BEGIN@8 at line 8 of Digest/SHA.pm # once (22µs+2µs) by YAML::PP::BEGIN@12 at line 12 of YAML/PP.pm # once (24µs+0s) by Cpanel::JSON::XS::BEGIN@235 at line 235 of Cpanel/JSON/XS.pm # once (23µs+0s) by YAML::PP::Schema::BEGIN@11 at line 11 of YAML/PP/Schema.pm # once (20µs+3µs) by JSON::Schema::Modern::Vocabulary::Unevaluated::BEGIN@18 at line 18 of JSON/Schema/Modern/Vocabulary/Unevaluated.pm # once (22µs+1µs) by JSON::Schema::Modern::Vocabulary::BEGIN@17 at line 17 of JSON/Schema/Modern/Vocabulary.pm # once (23µs+0s) by Method::Generate::Constructor::BEGIN@7 at line 7 of Method/Generate/Constructor.pm # once (21µs+1µs) by JSON::Schema::Modern::Utilities::BEGIN@19 at line 19 of JSON/Schema/Modern/Utilities.pm # once (21µs+1µs) by YAML::PP::Lexer::BEGIN@11 at line 11 of YAML/PP/Lexer.pm # once (18µs+4µs) by JSON::Schema::Modern::BEGIN@27 at line 27 of JSON/Schema/Modern.pm # once (21µs+1µs) by YAML::PP::Writer::File::BEGIN@11 at line 11 of YAML/PP/Writer/File.pm # once (21µs+1µs) by YAML::PP::Constructor::BEGIN@12 at line 12 of YAML/PP/Constructor.pm # once (21µs+0s) by Cwd::BEGIN@3 at line 3 of Cwd.pm # once (21µs+0s) by Getopt::Long::BEGIN@26 at line 26 of Getopt/Long.pm # once (20µs+1000ns) by JSON::Schema::Modern::Vocabulary::BEGIN@18 at line 18 of JSON/Schema/Modern/Vocabulary.pm # once (20µs+1000ns) by Sub::Defer::BEGIN@5 at line 5 of Sub/Defer.pm # once (21µs+0s) by IO::Uncompress::RawInflate::BEGIN@11 at line 11 of IO/Uncompress/RawInflate.pm # once (20µs+0s) by Moo::Role::BEGIN@17 at line 17 of Moo/Role.pm # once (19µs+1µs) by Method::Generate::Accessor::BEGIN@10 at line 10 of Method/Generate/Accessor.pm # once (19µs+1µs) by YAML::PP::Constructor::BEGIN@13 at line 13 of YAML/PP/Constructor.pm # once (19µs+1µs) by SelectSaver::BEGIN@39 at line 39 of SelectSaver.pm # once (18µs+1µs) by Method::Generate::BuildAll::BEGIN@8 at line 8 of Method/Generate/BuildAll.pm # once (18µs+1µs) by YAML::PP::Preserve::Array::BEGIN@302 at line 302 of YAML/PP.pm # once (18µs+1µs) by YAML::PP::Parser::BEGIN@22 at line 22 of YAML/PP/Parser.pm # once (17µs+1µs) by JSON::Schema::Modern::Document::OpenAPI::BEGIN@21 at line 21 of JSON/Schema/Modern/Document/OpenAPI.pm # once (18µs+0s) by JSON::Schema::Modern::BEGIN@19 at line 19 of JSON/Schema/Modern.pm # once (18µs+0s) by IO::Uncompress::Gunzip::BEGIN@12 at line 12 of IO/Uncompress/Gunzip.pm # once (18µs+0s) by Mojo::Util::BEGIN@12 at line 12 of Mojo/Util.pm # once (17µs+0s) by IO::Poll::BEGIN@11 at line 11 of IO/Poll.pm # once (16µs+1µs) by Method::Generate::Accessor::BEGIN@9 at line 9 of Method/Generate/Accessor.pm # once (16µs+1µs) by YAML::PP::Schema::Core::BEGIN@14 at line 14 of YAML/PP/Schema/Core.pm # once (16µs+1µs) by JSON::Schema::Modern::Result::BEGIN@24 at line 24 of JSON/Schema/Modern/Result.pm # once (15µs+1000ns) by Moo::sification::BEGIN@8 at line 8 of Moo/sification.pm # once (14µs+2µs) by IO::Compress::RawDeflate::BEGIN@12 at line 12 of IO/Compress/RawDeflate.pm # once (16µs+0s) by Sub::Quote::BEGIN@11 at line 11 of Sub/Quote.pm # once (16µs+0s) by IO::Compress::Base::Common::BEGIN@8 at line 8 of IO/Compress/Base/Common.pm # once (16µs+0s) by YAML::PP::Reader::File::BEGIN@49 at line 49 of YAML/PP/Reader.pm # once (16µs+0s) by Mojo::Util::BEGIN@20 at line 20 of Mojo/Util.pm # once (15µs+0s) by IO::Compress::Base::BEGIN@914 at line 914 of IO/Compress/Base.pm # once (14µs+1µs) by Moo::BEGIN@18 at line 18 of Moo.pm # once (14µs+0s) by IO::Compress::RawDeflate::BEGIN@150 at line 150 of IO/Compress/RawDeflate.pm # once (13µs+1µs) by Sub::Quote::BEGIN@9 at line 9 of Sub/Quote.pm # once (13µs+1µs) by JSON::Schema::Modern::Document::OpenAPI::BEGIN@20 at line 20 of JSON/Schema/Modern/Document/OpenAPI.pm # once (14µs+0s) by JSON::Schema::Modern::Document::OpenAPI::BEGIN@23 at line 23 of JSON/Schema/Modern/Document/OpenAPI.pm # once (14µs+0s) by Pod::Text::BEGIN@24 at line 24 of Pod/Text.pm # once (14µs+0s) by YAML::PP::Schema::JSON::BEGIN@16 at line 16 of YAML/PP/Schema/JSON.pm # once (14µs+0s) by main::BEGIN@3 at line 3 of /Users/ether/git/fastly/Heavenly/profiling/jsm-0.552-om-0.031/../prof.pl # once (13µs+1µs) by Method::Generate::Constructor::BEGIN@8 at line 8 of Method/Generate/Constructor.pm # once (14µs+0s) by Mojo::Util::BEGIN@14 at line 14 of Mojo/Util.pm # once (13µs+0s) by JSON::Schema::Modern::Utilities::BEGIN@20 at line 20 of JSON/Schema/Modern/Utilities.pm # once (13µs+0s) by MooX::TypeTiny::Role::GenerateAccessor::BEGIN@4 at line 4 of MooX/TypeTiny/Role/GenerateAccessor.pm # once (12µs+1000ns) by JSON::Schema::Modern::BEGIN@22 at line 22 of JSON/Schema/Modern.pm # once (12µs+1000ns) by JSON::Schema::Modern::Vocabulary::Applicator::BEGIN@18 at line 18 of JSON/Schema/Modern/Vocabulary/Applicator.pm # once (12µs+1000ns) by Method::Generate::Constructor::BEGIN@9 at line 9 of Method/Generate/Constructor.pm # once (12µs+0s) by YAML::PP::BEGIN@9 at line 9 of YAML/PP.pm # once (10µs+1000ns) by Sub::Defer::BEGIN@6 at line 6 of Sub/Defer.pm # once (10µs+0s) by Pod::Usage::BEGIN@18 at line 18 of Pod/Usage.pm # once (8µs+1µs) by JSON::Schema::Modern::Utilities::BEGIN@21 at line 21 of JSON/Schema/Modern/Utilities.pm # once (9µs+0s) by OpenAPI::Modern::BEGIN@22 at line 22 of OpenAPI/Modern.pm # once (9µs+0s) by Fcntl::BEGIN@60 at line 60 of Fcntl.pm # once (7µs+1000ns) by JSON::Schema::Modern::Document::BEGIN@20 at line 20 of JSON/Schema/Modern/Document.pm # once (7µs+0s) by JSON::Schema::Modern::Utilities::BEGIN@27 at line 27 of JSON/Schema/Modern/Utilities.pm # once (7µs+0s) by IO::Compress::RawDeflate::BEGIN@9 at line 9 of IO/Compress/RawDeflate.pm # once (7µs+0s) by URI::Escape::BEGIN@147 at line 147 of URI/Escape.pm # once (7µs+0s) by JSON::Schema::Modern::Vocabulary::Validation::BEGIN@18 at line 18 of JSON/Schema/Modern/Vocabulary/Validation.pm # once (7µs+0s) by Mojo::Util::BEGIN@9 at line 9 of Mojo/Util.pm # once (6µs+0s) by Try::Tiny::BEGIN@10 at line 10 of Try/Tiny.pm # once (5µs+0s) by Ref::Util::XS::BEGIN@8 at line 8 of Ref/Util/XS.pm # once (5µs+0s) by Ref::Util::BEGIN@7 at line 7 of Ref/Util.pm # once (5µs+0s) by Sub::Defer::BEGIN@4 at line 4 of Sub/Defer.pm # once (5µs+0s) by Encode::BEGIN@15 at line 15 of Encode.pm # once (4µs+0s) by Sub::Quote::BEGIN@10 at line 10 of Sub/Quote.pm # once (4µs+0s) by Safe::Isa::BEGIN@6 at line 6 of Safe/Isa.pm # once (3µs+0s) by Path::Tiny::BEGIN@12 at line 12 of Path/Tiny.pm # once (3µs+0s) by Encode::Alias::BEGIN@7 at line 7 of Encode/Alias.pm
sub import {
2622990µs my $pkg = shift;
27229141µs my $callpkg = caller($ExportLevel);
28
29229121µs if ($pkg eq "Exporter" and @_ and $_[0] eq "import") {
3014125µs *{$callpkg."::import"} = \&import;
311446µs return;
32 }
33
34 # We *need* to treat @{"$pkg\::EXPORT_FAIL"} since Carp uses it :-(
35215385µs my $exports = \@{"$pkg\::EXPORT"};
36 # But, avoid creating things if they don't exist, which saves a couple of
37 # hundred bytes per package processed.
38215308µs my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"};
39215184µs return export $pkg, $callpkg, @_
40 if $Verbose or $Debug or $fail && @$fail > 1;
41215161µs my $export_cache = ($Cache{$pkg} ||= {});
42215195µs my $args = @_ or @_ = @$exports;
43
44215121µs if ($args and not %$export_cache) {
45 s/^&//, $export_cache->{$_} = 1
46353.05ms1694292µs foreach (@$exports, @{"$pkg\::EXPORT_OK"});
# spent 292µs making 1694 calls to Exporter::CORE:subst, avg 172ns/call
47 }
4821532µs my $heavy;
49 # Try very hard not to use {} and hence have to enter scope on the foreach
50 # We bomb out of the loop with last as soon as heavy is set.
51215105µs if ($args or $fail) {
52 ($heavy = (/\W/ or $args and not exists $export_cache->{$_}
53 or $fail and @$fail and $_ eq $fail->[0])) and last
541771.67ms585360µs foreach (@_);
# spent 360µs making 585 calls to Exporter::CORE:match, avg 615ns/call
55 } else {
56 ($heavy = /\W/) and last
5738391µs21274µs foreach (@_);
# spent 74µs making 212 calls to Exporter::CORE:match, avg 349ns/call
58 }
59215167µs222.49ms return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy;
# spent 2.49ms making 22 calls to Exporter::export, avg 113µs/call
60 local $SIG{__WARN__} =
61193756µs sub {require Carp; &Carp::carp} if not $SIG{__WARN__};
62 # shortcut for the common case of no type character
631932.99ms *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
64}
65
66# Default methods
67
68sub export_fail {
69 my $self = shift;
70 @_;
71}
72
73# Unfortunately, caller(1)[3] "does not work" if the caller is aliased as
74# *name = \&foo. Thus the need to create a lot of identical subroutines
75# Otherwise we could have aliased them to export().
76
77sub export_to_level {
78 goto &{as_heavy()};
79}
80
81sub export_tags {
82 goto &{as_heavy()};
83}
84
85
# spent 73µs (17+56) within Exporter::export_ok_tags which was called 4 times, avg 18µs/call: # once (7µs+18µs) by IO::Uncompress::Gunzip::BEGIN@12 at line 25 of IO/Uncompress/RawInflate.pm # once (3µs+14µs) by Mojo::Util::BEGIN@12 at line 36 of IO/Compress/Gzip.pm # once (3µs+13µs) by IO::Compress::Gzip::BEGIN@11 at line 44 of IO/Compress/RawDeflate.pm # once (4µs+11µs) by Mojo::Util::BEGIN@14 at line 27 of IO/Uncompress/Gunzip.pm
sub export_ok_tags {
86429µs8114µs goto &{as_heavy()};
# spent 58µs making 4 calls to Exporter::Heavy::heavy_export_ok_tags, avg 14µs/call # spent 56µs making 4 calls to Exporter::as_heavy, avg 14µs/call
87}
88
89sub require_version {
90 goto &{as_heavy()};
91}
92
9313µs1;
94__END__
 
# spent 434µs within Exporter::CORE:match which was called 797 times, avg 545ns/call: # 585 times (360µs+0s) by Exporter::import at line 54, avg 615ns/call # 212 times (74µs+0s) by Exporter::import at line 57, avg 349ns/call
sub Exporter::CORE:match; # opcode
# spent 390µs within Exporter::CORE:subst which was called 1720 times, avg 227ns/call: # 1694 times (292µs+0s) by Exporter::import at line 46, avg 172ns/call # 26 times (98µs+0s) by Exporter::as_heavy at line 17, avg 4µs/call
sub Exporter::CORE:subst; # opcode
Report produced by the NYTProf 6.12 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.