| Filename | /Users/ether/perl5/perlbrew/perls/36.0/lib/5.36.0/Exporter.pm |
| Statements | Executed 3425 statements in 13.8ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 229 | 220 | 110 | 11.2ms | 16.5ms | Exporter::import |
| 26 | 2 | 1 | 2.14ms | 2.35ms | Exporter::as_heavy |
| 1720 | 2 | 1 | 491µs | 491µs | Exporter::CORE:subst (opcode) |
| 801 | 2 | 1 | 453µs | 453µs | Exporter::CORE:match (opcode) |
| 22 | 1 | 1 | 132µs | 2.38ms | Exporter::export |
| 4 | 4 | 4 | 26µs | 127µs | Exporter::export_ok_tags |
| 1 | 1 | 1 | 15µs | 17µs | Exporter::BEGIN@3 |
| 1 | 1 | 1 | 6µs | 11µs | Exporter::BEGIN@4 |
| 0 | 0 | 0 | 0s | 0s | Exporter::__ANON__[:61] |
| 0 | 0 | 0 | 0s | 0s | Exporter::export_fail |
| 0 | 0 | 0 | 0s | 0s | Exporter::export_tags |
| 0 | 0 | 0 | 0s | 0s | Exporter::export_to_level |
| 0 | 0 | 0 | 0s | 0s | Exporter::require_version |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package Exporter; | ||||
| 2 | |||||
| 3 | 2 | 26µs | 2 | 19µs | # spent 17µs (15+2) within Exporter::BEGIN@3 which was called:
# once (15µs+2µs) by Moo::_Utils::BEGIN@12 at line 3 # spent 17µs making 1 call to Exporter::BEGIN@3
# spent 2µs making 1 call to strict::import |
| 4 | 2 | 422µs | 2 | 16µs | # spent 11µs (6+5) within Exporter::BEGIN@4 which was called:
# once (6µs+5µs) by Moo::_Utils::BEGIN@12 at line 4 # spent 11µs making 1 call to Exporter::BEGIN@4
# spent 5µs making 1 call to strict::unimport |
| 5 | |||||
| 6 | 1 | 0s | our $Debug = 0; | ||
| 7 | 1 | 0s | our $ExportLevel = 0; | ||
| 8 | 1 | 0s | our $Verbose ||= 0; | ||
| 9 | 1 | 1µs | our $VERSION = '5.77'; | ||
| 10 | our %Cache; | ||||
| 11 | |||||
| 12 | sub as_heavy { | ||||
| 13 | 26 | 289µ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 | ||||
| 16 | 26 | 93µs | my $c = (caller(1))[3]; | ||
| 17 | 26 | 305µs | 26 | 124µs | $c =~ s/.*:://; # spent 124µs making 26 calls to Exporter::CORE:subst, avg 5µs/call |
| 18 | 26 | 166µs | \&{"Exporter::Heavy::heavy_$c"}; | ||
| 19 | } | ||||
| 20 | |||||
| 21 | # spent 2.38ms (132µs+2.25) within Exporter::export which was called 22 times, avg 108µs/call:
# 22 times (132µs+2.25ms) by Exporter::import at line 59, avg 108µs/call | ||||
| 22 | 22 | 208µs | 44 | 4.35ms | goto &{as_heavy()}; # spent 2.25ms making 22 calls to Exporter::as_heavy, avg 102µs/call
# spent 2.10ms making 22 calls to Exporter::Heavy::heavy_export, avg 96µs/call |
| 23 | } | ||||
| 24 | |||||
| 25 | # spent 16.5ms (11.2+5.31) within Exporter::import which was called 229 times, avg 72µs/call:
# 10 times (275µs+19µ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 29µs/call
# once (23µs+1.90ms) by OpenAPI::Modern::BEGIN@19 at line 19 of OpenAPI/Modern.pm
# once (1.25ms+128µs) by POSIX::import at line 192 of POSIX.pm
# once (561µs+69µs) by Mojo::Util::BEGIN@18 at line 18 of Mojo/Util.pm
# once (374µs+195µs) by Storable::BEGIN@83 at line 84 of Storable.pm
# once (101µs+341µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 8 of IO/Compress/Adapter/Deflate.pm
# once (55µs+333µs) by YAML::PP::Parser::BEGIN@19 at line 19 of YAML/PP/Parser.pm
# once (187µs+164µs) by IO::Uncompress::Gunzip::BEGIN@16 at line 16 of IO/Uncompress/Gunzip.pm
# once (59µs+197µs) by IO::Compress::Gzip::BEGIN@15 at line 15 of IO/Compress/Gzip.pm
# once (138µs+101µs) by IO::Uncompress::Adapter::Inflate::BEGIN@7 at line 7 of IO/Uncompress/Adapter/Inflate.pm
# once (53µs+157µs) by IO::Compress::Zlib::Extra::BEGIN@13 at line 13 of IO/Compress/Zlib/Extra.pm
# once (67µs+140µs) by IO::Compress::RawDeflate::BEGIN@10 at line 10 of IO/Compress/RawDeflate.pm
# once (185µs+9µs) by IO::Compress::Base::BEGIN@11 at line 146 of IO/File.pm
# once (62µs+125µs) by YAML::PP::Lexer::BEGIN@10 at line 10 of YAML/PP/Lexer.pm
# once (169µs+12µs) by IO::Compress::Gzip::BEGIN@12 at line 12 of IO/Compress/Gzip.pm
# once (167µs+12µs) by POSIX::BEGIN@11 at line 17 of POSIX.pm
# once (169µs+9µs) by IO::Compress::Base::BEGIN@9 at line 9 of IO/Compress/Base.pm
# once (38µs+133µs) by File::Glob::import at line 42 of File/Glob.pm
# once (149µs+13µs) by IO::Uncompress::Base::BEGIN@17 at line 17 of IO/Uncompress/Base.pm
# once (43µs+115µs) by JSON::Schema::Modern::Document::BEGIN@21 at line 21 of JSON/Schema/Modern/Document.pm
# once (145µs+8µs) by IO::Compress::RawDeflate::BEGIN@11 at line 11 of IO/Compress/RawDeflate.pm
# once (93µs+60µs) by Getopt::Long::import at line 119 of Getopt/Long.pm
# once (135µs+12µs) by Mojo::Util::BEGIN@7 at line 7 of Mojo/Util.pm
# once (142µs+4µs) by Mojo::URL::BEGIN@7 at line 7 of Mojo/URL.pm
# once (29µs+115µs) by JSON::Schema::Modern::Error::BEGIN@17 at line 17 of JSON/Schema/Modern/Error.pm
# once (125µs+13µs) by Mojo::Parameters::BEGIN@5 at line 5 of Mojo/Parameters.pm
# once (123µs+5µs) by Tie::Hash::BEGIN@190 at line 190 of Tie/Hash.pm
# once (118µs+1µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 8 of IO/Uncompress/RawInflate.pm
# once (106µs+8µs) by IO::Uncompress::Base::BEGIN@19 at line 19 of IO/Uncompress/Base.pm
# once (24µs+88µs) by IO::Compress::Adapter::Deflate::BEGIN@7 at line 7 of IO/Compress/Adapter/Deflate.pm
# once (21µs+90µs) by JSON::Schema::Modern::Document::OpenAPI::BEGIN@19 at line 19 of JSON/Schema/Modern/Document/OpenAPI.pm
# once (106µs+2µs) by YAML::PP::Schema::JSON::BEGIN@14 at line 14 of YAML/PP/Schema/JSON.pm
# once (18µs+82µs) by JSON::Schema::Modern::Result::BEGIN@25 at line 25 of JSON/Schema/Modern/Result.pm
# once (89µs+8µs) by OpenAPI::Modern::BEGIN@20 at line 20 of OpenAPI/Modern.pm
# once (17µs+79µs) by IO::Compress::Gzip::BEGIN@14 at line 14 of IO/Compress/Gzip.pm
# once (86µs+9µs) by YAML::PP::Schema::Core::BEGIN@7 at line 10 of YAML/PP/Schema/Core.pm
# once (19µs+76µs) by IO::Uncompress::RawInflate::BEGIN@9 at line 9 of IO/Uncompress/RawInflate.pm
# once (29µs+60µs) by IO::Uncompress::Gunzip::BEGIN@15 at line 15 of IO/Uncompress/Gunzip.pm
# once (80µs+6µs) by Method::Generate::Accessor::BEGIN@8 at line 8 of Method/Generate/Accessor.pm
# once (78µs+7µs) by Mojo::Util::BEGIN@8 at line 8 of Mojo/Util.pm
# once (18µs+63µs) by JSON::Schema::Modern::Annotation::BEGIN@17 at line 17 of JSON/Schema/Modern/Annotation.pm
# once (73µs+7µs) by experimental::BEGIN@8 at line 8 of experimental.pm
# once (75µs+2µs) by JSON::Schema::Modern::Vocabulary::Applicator::BEGIN@20 at line 20 of JSON/Schema/Modern/Vocabulary/Applicator.pm
# once (72µs+4µs) by JSON::Schema::Modern::BEGIN@27 at line 481 of File/ShareDir.pm
# once (20µs+55µs) by JSON::Schema::Modern::BEGIN@24 at line 24 of JSON/Schema/Modern.pm
# once (71µs+3µs) by IO::Uncompress::Adapter::Inflate::BEGIN@8 at line 8 of IO/Uncompress/Adapter/Inflate.pm
# once (65µs+7µs) by Moo::BEGIN@6 at line 17 of Moo.pm
# once (70µs+1µs) by MooX::TypeTiny::Role::GenerateAccessor::BEGIN@3 at line 3 of MooX/TypeTiny/Role/GenerateAccessor.pm
# once (70µs+1µs) by JSON::Schema::Modern::Vocabulary::FormatAssertion::BEGIN@17 at line 17 of JSON/Schema/Modern/Vocabulary/FormatAssertion.pm
# once (66µs+4µs) by YAML::PP::Emitter::BEGIN@8 at line 13 of YAML/PP/Emitter.pm
# once (65µs+3µs) by Moo::Role::BEGIN@5 at line 16 of Moo/Role.pm
# once (63µs+2µs) by JSON::Schema::Modern::Vocabulary::Validation::BEGIN@20 at line 20 of JSON/Schema/Modern/Vocabulary/Validation.pm
# once (58µs+6µs) by Tie::Array::BEGIN@5 at line 5 of Tie/Array.pm
# once (62µs+2µs) by YAML::PP::Emitter::BEGIN@6 at line 6 of YAML/PP/Emitter.pm
# once (60µs+4µs) by Encode::BEGIN@56 at line 56 of Encode.pm
# once (56µs+5µs) by Mojo::Util::BEGIN@6 at line 6 of Mojo/Util.pm
# once (56µs+5µs) by YAML::PP::Constructor::BEGIN@9 at line 11 of YAML/PP/Constructor.pm
# once (59µs+2µs) by JSON::Schema::Modern::Vocabulary::MetaData::BEGIN@17 at line 17 of JSON/Schema/Modern/Vocabulary/MetaData.pm
# once (55µs+5µs) by OpenAPI::Modern::BEGIN@27 at line 27 of OpenAPI/Modern.pm
# once (54µs+5µs) by JSON::MaybeXS::BEGIN@29 at line 31 of JSON/MaybeXS.pm
# once (57µs+2µs) by JSON::Schema::Modern::BEGIN@36 at line 36 of JSON/Schema/Modern.pm
# once (58µs+0s) by JSON::Schema::Modern::Vocabulary::Unevaluated::BEGIN@18 at line 18 of JSON/Schema/Modern/Vocabulary/Unevaluated.pm
# once (52µs+5µs) by Sub::Quote::BEGIN@8 at line 8 of Sub/Quote.pm
# once (54µs+2µs) by JSON::Schema::Modern::BEGIN@26 at line 26 of JSON/Schema/Modern.pm
# once (52µs+2µs) by JSON::Schema::Modern::BEGIN@25 at line 25 of JSON/Schema/Modern.pm
# once (53µs+1000ns) by YAML::PP::Reader::File::BEGIN@49 at line 49 of YAML/PP/Reader.pm
# once (51µs+3µs) by Moo::_Utils::BEGIN@36 at line 36 of Moo/_Utils.pm
# once (49µs+4µs) by YAML::PP::Dumper::BEGIN@13 at line 20 of YAML/PP/Dumper.pm
# once (51µs+2µs) by YAML::PP::Representer::BEGIN@9 at line 17 of YAML/PP/Representer.pm
# once (49µs+3µs) by IO::File::BEGIN@130 at line 130 of IO/File.pm
# once (50µs+2µs) by OpenAPI::Modern::BEGIN@24 at line 24 of OpenAPI/Modern.pm
# once (47µs+3µs) by YAML::PP::Preserve::Array::BEGIN@302 at line 302 of YAML/PP.pm
# once (48µs+2µs) by Storable::BEGIN@42 at line 42 of Storable.pm
# once (46µs+3µs) by Type::Coercion::BEGIN@15 at line 15 of Type/Coercion.pm
# once (46µs+3µs) by Type::Tiny::Union::BEGIN@14 at line 14 of Type/Tiny/Union.pm
# once (46µs+3µs) by JSON::Schema::Modern::Document::OpenAPI::BEGIN@18 at line 18 of JSON/Schema/Modern/Document/OpenAPI.pm
# once (42µs+5µs) by Mojo::Util::BEGIN@13.4 at line 13 of Mojo/Util.pm
# once (46µs+0s) by Method::Generate::BuildAll::BEGIN@8 at line 8 of Method/Generate/BuildAll.pm
# once (42µs+4µs) by Pod::Simple::TiedOutFH::BEGIN@4 at line 4 of Pod/Simple/TiedOutFH.pm
# once (40µs+5µs) by IO::Seekable::BEGIN@103 at line 103 of IO/Seekable.pm
# once (41µs+3µs) by IO::File::BEGIN@129 at line 129 of IO/File.pm
# once (42µs+2µs) by JSON::Schema::Modern::Vocabulary::Core::BEGIN@17 at line 17 of JSON/Schema/Modern/Vocabulary/Core.pm
# once (38µs+5µs) by YAML::PP::Writer::File::BEGIN@7 at line 7 of YAML/PP/Writer/File.pm
# once (41µs+2µs) by Mojo::Util::BEGIN@4 at line 4 of Mojo/Util.pm
# once (39µs+4µs) by YAML::PP::Representer::BEGIN@7 at line 7 of YAML/PP/Representer.pm
# once (41µs+1000ns) by Mojo::Path::BEGIN@5 at line 5 of Mojo/Path.pm
# once (36µs+6µs) by Method::Generate::Constructor::BEGIN@5 at line 5 of Method/Generate/Constructor.pm
# once (41µs+0s) by Mojo::Util::BEGIN@20 at line 20 of Mojo/Util.pm
# once (39µs+2µs) by YAML::PP::Schema::BEGIN@9 at line 9 of YAML/PP/Schema.pm
# once (41µs+0s) by JSON::Schema::Modern::Document::BEGIN@20 at line 20 of JSON/Schema/Modern/Document.pm
# once (39µs+2µs) by SelectSaver::BEGIN@38 at line 38 of SelectSaver.pm
# once (37µs+3µs) by MooX::TypeTiny::BEGIN@7 at line 7 of MooX/TypeTiny.pm
# once (39µs+1µs) by JSON::Schema::Modern::BEGIN@18 at line 18 of JSON/Schema/Modern.pm
# once (36µs+3µs) by YAML::PP::BEGIN@12 at line 12 of YAML/PP.pm
# once (36µs+3µs) by Compress::Raw::Zlib::BEGIN@6 at line 6 of Compress/Raw/Zlib.pm
# once (37µs+1µs) by Digest::SHA::BEGIN@8 at line 8 of Digest/SHA.pm
# once (33µs+5µs) by Mojo::Util::BEGIN@17 at line 17 of Mojo/Util.pm
# once (35µs+3µs) by IO::File::BEGIN@132 at line 132 of IO/File.pm
# once (36µs+2µs) by OpenAPI::Modern::BEGIN@18 at line 18 of OpenAPI/Modern.pm
# once (33µs+5µs) by Moo::_Utils::BEGIN@37 at line 37 of Moo/_Utils.pm
# once (35µs+2µs) by Data::Perl::Collection::Array::MooseLike::BEGIN@7 at line 7 of Data/Perl/Collection/Array/MooseLike.pm
# once (35µs+2µs) by Mojo::Util::BEGIN@16.6 at line 16 of Mojo/Util.pm
# once (35µs+2µs) by Type::Tiny::Class::BEGIN@14 at line 14 of Type/Tiny/Class.pm
# once (37µs+0s) by namespace::clean::BEGIN@38 at line 38 of namespace/clean.pm
# once (31µs+6µs) by Method::Generate::Constructor::BEGIN@6 at line 6 of Method/Generate/Constructor.pm
# once (36µs+0s) by main::BEGIN@3 at line 3 of /Users/ether/git/fastly/Heavenly/profiling/jsm-0.558-om-0.037/../prof.pl
# once (29µs+7µs) by JSON::Schema::Modern::BEGIN@27 at line 27 of JSON/Schema/Modern.pm
# once (36µs+0s) by Pod::Text::BEGIN@23 at line 23 of Pod/Text.pm
# once (34µs+2µs) by Data::Perl::Role::Collection::Array::BEGIN@10 at line 10 of Data/Perl/Role/Collection/Array.pm
# once (35µs+1µs) by Data::Perl::Collection::Hash::MooseLike::BEGIN@8 at line 8 of Data/Perl/Collection/Hash/MooseLike.pm
# once (33µs+2µs) by JSON::Schema::Modern::Vocabulary::OpenAPI::BEGIN@17 at line 17 of JSON/Schema/Modern/Vocabulary/OpenAPI.pm
# once (34µs+1000ns) by IO::Uncompress::Base::BEGIN@23 at line 23 of IO/Uncompress/Base.pm
# once (33µs+2µs) by YAML::PP::Preserve::Hash::BEGIN@228 at line 228 of YAML/PP.pm
# once (33µs+2µs) by IO::Compress::Base::Common::BEGIN@7 at line 7 of IO/Compress/Base/Common.pm
# once (32µs+2µs) by YAML::PP::Parser::BEGIN@22 at line 22 of YAML/PP/Parser.pm
# once (33µs+1000ns) by Method::Generate::BuildAll::BEGIN@7 at line 7 of Method/Generate/BuildAll.pm
# once (31µs+2µs) by Type::Tiny::Duck::BEGIN@14 at line 14 of Type/Tiny/Duck.pm
# once (31µs+2µs) by Unicode::Normalize::BEGIN@6 at line 6 of Unicode/Normalize.pm
# once (31µs+2µs) by Data::Perl::Collection::Hash::MooseLike::BEGIN@7 at line 7 of Data/Perl/Collection/Hash/MooseLike.pm
# once (29µs+3µs) by YAML::PP::Dumper::BEGIN@7 at line 7 of YAML/PP/Dumper.pm
# once (30µs+2µs) by YAML::PP::Parser::BEGIN@11 at line 16 of YAML/PP/Parser.pm
# once (30µs+2µs) by Types::Standard::BEGIN@24 at line 24 of Types/Standard.pm
# once (30µs+2µs) by Sub::Install::BEGIN@6 at line 6 of Sub/Install.pm
# once (29µs+2µs) by IO::Handle::BEGIN@265 at line 265 of IO/Handle.pm
# once (29µs+2µs) by Params::Util::BEGIN@63 at line 19 of Params/Util/PP.pm
# once (30µs+1µs) by Method::Generate::Accessor::BEGIN@5 at line 5 of Method/Generate/Accessor.pm
# once (30µs+1µs) by JSON::Schema::Modern::Vocabulary::FormatAnnotation::BEGIN@17 at line 17 of JSON/Schema/Modern/Vocabulary/FormatAnnotation.pm
# once (27µs+4µs) by IO::Seekable::BEGIN@98 at line 98 of IO/Seekable.pm
# once (28µs+2µs) by Try::Tiny::BEGIN@13 at line 13 of Try/Tiny.pm
# once (28µs+2µs) by File::GlobMapper::BEGIN@5 at line 5 of File/GlobMapper.pm
# once (27µs+3µs) by YAML::PP::Reader::File::BEGIN@45 at line 45 of YAML/PP/Reader.pm
# once (27µs+3µs) by IO::BEGIN@6 at line 6 of IO.pm
# once (29µs+1µs) by Method::Generate::Constructor::BEGIN@7 at line 7 of Method/Generate/Constructor.pm
# once (27µs+2µs) by JSON::Schema::Modern::Vocabulary::BEGIN@17 at line 17 of JSON/Schema/Modern/Vocabulary.pm
# once (29µs+0s) by IO::Compress::Base::BEGIN@914 at line 914 of IO/Compress/Base.pm
# once (27µs+1µs) by IO::Uncompress::Base::BEGIN@20 at line 20 of IO/Uncompress/Base.pm
# once (28µs+0s) by YAML::PP::Lexer::BEGIN@11 at line 11 of YAML/PP/Lexer.pm
# once (26µs+2µs) by YAML::PP::Schema::JSON::BEGIN@16 at line 16 of YAML/PP/Schema/JSON.pm
# once (27µs+0s) by Mojo::Util::BEGIN@10 at line 10 of Mojo/Util.pm
# once (26µs+1µs) by Mojo::Util::BEGIN@19 at line 19 of Mojo/Util.pm
# once (26µs+1µs) by IO::Compress::Base::Common::BEGIN@523 at line 523 of IO/Compress/Base/Common.pm
# once (25µs+1000ns) by Data::Perl::Collection::Array::MooseLike::BEGIN@8 at line 8 of Data/Perl/Collection/Array/MooseLike.pm
# once (26µs+0s) by JSON::Schema::Modern::Result::BEGIN@24 at line 24 of JSON/Schema/Modern/Result.pm
# once (24µs+2µs) by Moo::sification::BEGIN@6 at line 6 of Moo/sification.pm
# once (24µs+1µs) by YAML::PP::Writer::File::BEGIN@11 at line 11 of YAML/PP/Writer/File.pm
# once (25µs+0s) by JSON::Schema::Modern::Utilities::BEGIN@17 at line 17 of JSON/Schema/Modern/Utilities.pm
# once (25µs+0s) by IO::Handle::BEGIN@266 at line 266 of IO/Handle.pm
# once (24µs+1µs) by JSON::Schema::Modern::Vocabulary::Content::BEGIN@19 at line 19 of JSON/Schema/Modern/Vocabulary/Content.pm
# once (25µs+0s) by YAML::PP::BEGIN@9 at line 9 of YAML/PP.pm
# once (23µs+2µs) by JSON::Schema::Modern::Document::BEGIN@18 at line 18 of JSON/Schema/Modern/Document.pm
# once (23µs+1µs) by Types::TypeTiny::BEGIN@12 at line 12 of Types/TypeTiny.pm
# once (22µs+2µs) by IO::Compress::RawDeflate::BEGIN@150 at line 150 of IO/Compress/RawDeflate.pm
# once (24µs+0s) by IO::Compress::RawDeflate::BEGIN@9 at line 9 of IO/Compress/RawDeflate.pm
# once (24µs+0s) by YAML::PP::Schema::Core::BEGIN@14 at line 14 of YAML/PP/Schema/Core.pm
# once (24µs+0s) by JSON::Schema::Modern::BEGIN@21 at line 21 of JSON/Schema/Modern.pm
# once (24µs+0s) by Method::Generate::Accessor::BEGIN@10 at line 10 of Method/Generate/Accessor.pm
# once (24µs+0s) by IO::Uncompress::RawInflate::BEGIN@11 at line 11 of IO/Uncompress/RawInflate.pm
# once (23µs+1µs) by Pod::Usage::BEGIN@16 at line 16 of Pod/Usage.pm
# once (23µs+1µs) by SelectSaver::BEGIN@39 at line 39 of SelectSaver.pm
# once (22µs+1µs) by namespace::clean::BEGIN@11 at line 45 of Sub/Exporter/Progressive.pm
# once (22µs+1µs) by Type::Tiny::BEGIN@20 at line 20 of Type/Tiny.pm
# once (23µs+0s) by Safe::Isa::BEGIN@6 at line 6 of Safe/Isa.pm
# once (22µs+1µs) by Type::Library::BEGIN@15 at line 15 of Type/Library.pm
# once (23µs+0s) by IO::Poll::BEGIN@11 at line 11 of IO/Poll.pm
# once (20µs+2µs) by IO::Compress::RawDeflate::BEGIN@12 at line 12 of IO/Compress/RawDeflate.pm
# once (21µs+1µs) by Socket::BEGIN@697 at line 697 of Socket.pm
# once (20µs+2µs) by MooX::TypeTiny::Role::GenerateAccessor::BEGIN@4 at line 4 of MooX/TypeTiny/Role/GenerateAccessor.pm
# once (22µs+0s) by YAML::PP::Constructor::BEGIN@13 at line 13 of YAML/PP/Constructor.pm
# once (21µs+0s) by Mojo::Util::BEGIN@12 at line 12 of Mojo/Util.pm
# once (19µs+2µs) by JSON::Schema::Modern::Utilities::BEGIN@18 at line 18 of JSON/Schema/Modern/Utilities.pm
# once (20µs+1000ns) by Method::Generate::Accessor::BEGIN@9 at line 9 of Method/Generate/Accessor.pm
# once (21µs+0s) by Sub::Quote::BEGIN@11 at line 11 of Sub/Quote.pm
# once (21µs+0s) by Moo::Role::BEGIN@17 at line 17 of Moo/Role.pm
# once (19µs+1µs) by Module::Implementation::BEGIN@9 at line 9 of Module/Implementation.pm
# once (20µs+0s) by File::ShareDir::BEGIN@1.26 at line 1 of (eval 31)[File/ShareDir.pm:481]
# once (19µs+1µs) by YAML::PP::Constructor::BEGIN@12 at line 12 of YAML/PP/Constructor.pm
# once (17µs+2µs) by JSON::Schema::Modern::Vocabulary::BEGIN@18 at line 18 of JSON/Schema/Modern/Vocabulary.pm
# once (18µs+1µs) by JSON::Schema::Modern::BEGIN@19 at line 19 of JSON/Schema/Modern.pm
# once (18µs+1µs) by Pod::Text::BEGIN@24 at line 24 of Pod/Text.pm
# once (18µs+1µs) by JSON::Schema::Modern::Vocabulary::Content::BEGIN@17 at line 17 of JSON/Schema/Modern/Vocabulary/Content.pm
# once (19µs+0s) by Sub::Quote::BEGIN@9 at line 9 of Sub/Quote.pm
# once (17µs+1µs) by Sub::Defer::BEGIN@5 at line 5 of Sub/Defer.pm
# once (18µs+0s) by Mojo::Util::BEGIN@14 at line 14 of Mojo/Util.pm
# once (18µs+0s) by Cpanel::JSON::XS::BEGIN@235 at line 235 of Cpanel/JSON/XS.pm
# once (18µs+0s) by JSON::Schema::Modern::Document::OpenAPI::BEGIN@20 at line 20 of JSON/Schema/Modern/Document/OpenAPI.pm
# once (16µs+1µs) by Data::Perl::Role::Collection::Hash::BEGIN@8 at line 8 of Data/Perl/Role/Collection/Hash.pm
# once (17µs+0s) by IO::Uncompress::Gunzip::BEGIN@12 at line 12 of IO/Uncompress/Gunzip.pm
# once (16µs+0s) by JSON::Schema::Modern::Vocabulary::Validation::BEGIN@18 at line 18 of JSON/Schema/Modern/Vocabulary/Validation.pm
# once (15µs+0s) by Method::Generate::Constructor::BEGIN@8 at line 8 of Method/Generate/Constructor.pm
# once (14µs+1µs) by JSON::Schema::Modern::Document::OpenAPI::BEGIN@21 at line 21 of JSON/Schema/Modern/Document/OpenAPI.pm
# once (13µs+1µs) by JSON::Schema::Modern::Utilities::BEGIN@19 at line 19 of JSON/Schema/Modern/Utilities.pm
# once (14µs+0s) by JSON::Schema::Modern::Document::OpenAPI::BEGIN@23 at line 23 of JSON/Schema/Modern/Document/OpenAPI.pm
# once (13µs+0s) by YAML::PP::BEGIN@13 at line 13 of YAML/PP.pm
# once (13µs+0s) by Moo::BEGIN@18 at line 18 of Moo.pm
# once (11µs+1µs) by Sub::Defer::BEGIN@6 at line 6 of Sub/Defer.pm
# once (11µs+1µs) by JSON::Schema::Modern::BEGIN@22 at line 22 of JSON/Schema/Modern.pm
# once (12µs+0s) by Fcntl::BEGIN@60 at line 60 of Fcntl.pm
# once (12µs+0s) by Moo::sification::BEGIN@8 at line 8 of Moo/sification.pm
# once (12µs+0s) by OpenAPI::Modern::BEGIN@22 at line 22 of OpenAPI/Modern.pm
# once (12µs+0s) by IO::Compress::Base::Common::BEGIN@8 at line 8 of IO/Compress/Base/Common.pm
# once (11µs+1µs) by Method::Generate::Constructor::BEGIN@9 at line 9 of Method/Generate/Constructor.pm
# once (11µs+0s) by YAML::PP::Schema::BEGIN@11 at line 11 of YAML/PP/Schema.pm
# once (11µs+0s) by Cwd::BEGIN@3 at line 3 of Cwd.pm
# once (10µs+0s) by JSON::Schema::Modern::Utilities::BEGIN@21 at line 21 of JSON/Schema/Modern/Utilities.pm
# once (10µs+0s) by Role::Tiny::With::BEGIN@11 at line 11 of Role/Tiny/With.pm
# once (8µs+0s) by JSON::Schema::Modern::Vocabulary::Applicator::BEGIN@18 at line 18 of JSON/Schema/Modern/Vocabulary/Applicator.pm
# once (8µs+0s) by Getopt::Long::BEGIN@26 at line 26 of Getopt/Long.pm
# once (8µs+0s) by Ref::Util::XS::BEGIN@8 at line 8 of Ref/Util/XS.pm
# once (7µs+0s) by Sub::Defer::BEGIN@4 at line 4 of Sub/Defer.pm
# once (7µs+0s) by Try::Tiny::BEGIN@10 at line 10 of Try/Tiny.pm
# once (7µs+0s) by Encode::BEGIN@15 at line 15 of Encode.pm
# once (6µs+0s) by JSON::Schema::Modern::Utilities::BEGIN@20 at line 20 of JSON/Schema/Modern/Utilities.pm
# once (6µs+0s) by Pod::Usage::BEGIN@18 at line 18 of Pod/Usage.pm
# once (6µs+0s) by Ref::Util::BEGIN@7 at line 7 of Ref/Util.pm
# once (5µs+0s) by Encode::Alias::BEGIN@7 at line 7 of Encode/Alias.pm
# once (5µs+0s) by JSON::Schema::Modern::Utilities::BEGIN@27 at line 27 of JSON/Schema/Modern/Utilities.pm
# once (5µs+0s) by Path::Tiny::BEGIN@12 at line 12 of Path/Tiny.pm
# once (4µs+0s) by Sub::Quote::BEGIN@10 at line 10 of Sub/Quote.pm
# once (4µs+0s) by URI::Escape::BEGIN@147 at line 147 of URI/Escape.pm
# once (3µs+0s) by Mojo::Util::BEGIN@9 at line 9 of Mojo/Util.pm | ||||
| 26 | 229 | 85µs | my $pkg = shift; | ||
| 27 | 229 | 173µs | my $callpkg = caller($ExportLevel); | ||
| 28 | |||||
| 29 | 229 | 137µs | if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { | ||
| 30 | 14 | 54µs | *{$callpkg."::import"} = \&import; | ||
| 31 | 14 | 47µs | return; | ||
| 32 | } | ||||
| 33 | |||||
| 34 | # We *need* to treat @{"$pkg\::EXPORT_FAIL"} since Carp uses it :-( | ||||
| 35 | 215 | 502µ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. | ||||
| 38 | 215 | 457µs | my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; | ||
| 39 | 215 | 148µs | return export $pkg, $callpkg, @_ | ||
| 40 | if $Verbose or $Debug or $fail && @$fail > 1; | ||||
| 41 | 215 | 232µs | my $export_cache = ($Cache{$pkg} ||= {}); | ||
| 42 | 215 | 248µs | my $args = @_ or @_ = @$exports; | ||
| 43 | |||||
| 44 | 215 | 111µs | if ($args and not %$export_cache) { | ||
| 45 | s/^&//, $export_cache->{$_} = 1 | ||||
| 46 | 35 | 3.33ms | 1694 | 367µs | foreach (@$exports, @{"$pkg\::EXPORT_OK"}); # spent 367µs making 1694 calls to Exporter::CORE:subst, avg 217ns/call |
| 47 | } | ||||
| 48 | 215 | 28µ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. | ||||
| 51 | 215 | 158µ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 | ||||
| 54 | 177 | 2.10ms | 589 | 374µs | foreach (@_); # spent 374µs making 589 calls to Exporter::CORE:match, avg 635ns/call |
| 55 | } else { | ||||
| 56 | ($heavy = /\W/) and last | ||||
| 57 | 38 | 450µs | 212 | 79µs | foreach (@_); # spent 79µs making 212 calls to Exporter::CORE:match, avg 373ns/call |
| 58 | } | ||||
| 59 | 215 | 196µs | 22 | 2.38ms | return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; # spent 2.38ms making 22 calls to Exporter::export, avg 108µs/call |
| 60 | local $SIG{__WARN__} = | ||||
| 61 | 193 | 880µs | sub {require Carp; &Carp::carp} if not $SIG{__WARN__}; | ||
| 62 | # shortcut for the common case of no type character | ||||
| 63 | 193 | 2.93ms | *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; | ||
| 64 | } | ||||
| 65 | |||||
| 66 | # Default methods | ||||
| 67 | |||||
| 68 | sub 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 | |||||
| 77 | sub export_to_level { | ||||
| 78 | goto &{as_heavy()}; | ||||
| 79 | } | ||||
| 80 | |||||
| 81 | sub export_tags { | ||||
| 82 | goto &{as_heavy()}; | ||||
| 83 | } | ||||
| 84 | |||||
| 85 | # spent 127µs (26+101) within Exporter::export_ok_tags which was called 4 times, avg 32µs/call:
# once (7µs+38µs) by IO::Uncompress::Gunzip::BEGIN@12 at line 25 of IO/Uncompress/RawInflate.pm
# once (6µs+22µs) by Mojo::Util::BEGIN@12 at line 36 of IO/Compress/Gzip.pm
# once (8µs+20µs) by IO::Compress::Gzip::BEGIN@11 at line 44 of IO/Compress/RawDeflate.pm
# once (5µs+21µs) by Mojo::Util::BEGIN@14 at line 27 of IO/Uncompress/Gunzip.pm | ||||
| 86 | 4 | 29µs | 8 | 170µs | goto &{as_heavy()}; # spent 101µs making 4 calls to Exporter::as_heavy, avg 25µs/call
# spent 69µs making 4 calls to Exporter::Heavy::heavy_export_ok_tags, avg 17µs/call |
| 87 | } | ||||
| 88 | |||||
| 89 | sub require_version { | ||||
| 90 | goto &{as_heavy()}; | ||||
| 91 | } | ||||
| 92 | |||||
| 93 | 1 | 4µs | 1; | ||
| 94 | __END__ | ||||
sub Exporter::CORE:match; # opcode | |||||
sub Exporter::CORE:subst; # opcode |