← Index
NYTProf Performance Profile   « line view »
For ../prof.pl
  Run on Thu Dec 15 15:23:56 2022
Reported on Thu Dec 15 15:27:01 2022

Filename/Users/ether/perl5/perlbrew/perls/36.0/lib/5.36.0/Exporter.pm
StatementsExecuted 3425 statements in 10.8ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
2292201107.32ms11.7msExporter::::importExporter::import
26212.34ms2.46msExporter::::as_heavyExporter::as_heavy
80121351µs351µsExporter::::CORE:matchExporter::CORE:match (opcode)
172021266µs266µsExporter::::CORE:substExporter::CORE:subst (opcode)
221175µs2.49msExporter::::exportExporter::export
11138µs43µsExporter::::BEGIN@3Exporter::BEGIN@3
44410µs54µsExporter::::export_ok_tagsExporter::export_ok_tags
1117µs16µ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
3267µs248µs
# spent 43µs (38+5) within Exporter::BEGIN@3 which was called: # once (38µs+5µs) by Moo::_Utils::BEGIN@12 at line 3
use strict;
# spent 43µs making 1 call to Exporter::BEGIN@3 # spent 5µs making 1 call to strict::import
42925µs225µs
# spent 16µs (7+9) within Exporter::BEGIN@4 which was called: # once (7µs+9µs) by Moo::_Utils::BEGIN@12 at line 4
no strict 'refs';
# spent 16µs making 1 call to Exporter::BEGIN@4 # spent 9µs making 1 call to strict::unimport
5
610sour $Debug = 0;
710sour $ExportLevel = 0;
811µsour $Verbose ||= 0;
910sour $VERSION = '5.77';
10our %Cache;
11
12
# spent 2.46ms (2.34+118µs) within Exporter::as_heavy which was called 26 times, avg 95µs/call: # 22 times (2.31ms+105µs) by Exporter::export at line 22, avg 110µs/call # 4 times (31µs+13µs) by Exporter::export_ok_tags at line 86, avg 11µs/call
sub as_heavy {
13261.23ms 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
162662µs my $c = (caller(1))[3];
1726162µs2674µs $c =~ s/.*:://;
# spent 74µs making 26 calls to Exporter::CORE:subst, avg 3µs/call
182685µs \&{"Exporter::Heavy::heavy_$c"};
19}
20
21
# spent 2.49ms (75µs+2.42) within Exporter::export which was called 22 times, avg 113µs/call: # 22 times (75µs+2.42ms) by Exporter::import at line 59, avg 113µs/call
sub export {
222289µs443.75ms goto &{as_heavy()};
# spent 2.42ms making 22 calls to Exporter::as_heavy, avg 110µs/call # spent 1.33ms making 22 calls to Exporter::Heavy::heavy_export, avg 60µs/call
23}
24
25
# spent 11.7ms (7.32+4.36) within Exporter::import which was called 229 times, avg 51µs/call: # 10 times (201µs+14µ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 22µs/call # once (17µs+2.22ms) by OpenAPI::Modern::BEGIN@19 at line 19 of OpenAPI/Modern.pm # once (695µs+56µs) by POSIX::import at line 192 of POSIX.pm # once (374µs+32µs) by Mojo::Util::BEGIN@18 at line 18 of Mojo/Util.pm # once (258µs+119µs) by Storable::BEGIN@83 at line 84 of Storable.pm # once (64µs+236µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 8 of IO/Compress/Adapter/Deflate.pm # once (38µs+107µs) by File::Glob::import at line 42 of File/Glob.pm # once (48µs+95µs) by IO::Compress::RawDeflate::BEGIN@10 at line 10 of IO/Compress/RawDeflate.pm # once (53µs+87µs) by IO::Uncompress::Gunzip::BEGIN@16 at line 16 of IO/Uncompress/Gunzip.pm # once (117µs+6µs) by IO::Compress::Base::BEGIN@9 at line 9 of IO/Compress/Base.pm # once (30µs+91µs) by YAML::PP::Lexer::BEGIN@10 at line 10 of YAML/PP/Lexer.pm # once (31µs+88µs) by IO::Compress::Gzip::BEGIN@15 at line 15 of IO/Compress/Gzip.pm # once (29µs+86µs) by IO::Compress::Zlib::Extra::BEGIN@13 at line 13 of IO/Compress/Zlib/Extra.pm # once (100µs+5µs) by POSIX::BEGIN@11 at line 17 of POSIX.pm # once (94µs+10µs) by JSON::Schema::Modern::BEGIN@36 at line 36 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern.pm # once (95µs+7µs) by IO::Uncompress::Base::BEGIN@19 at line 19 of IO/Uncompress/Base.pm # once (95µs+5µs) by IO::Compress::RawDeflate::BEGIN@11 at line 11 of IO/Compress/RawDeflate.pm # once (32µs+67µs) by Getopt::Long::import at line 119 of Getopt/Long.pm # once (18µs+79µs) by JSON::Schema::Modern::Annotation::BEGIN@17 at line 17 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Annotation.pm # once (87µs+9µs) by Mojo::Parameters::BEGIN@5 at line 5 of Mojo/Parameters.pm # once (95µs+1000ns) by IO::Uncompress::RawInflate::BEGIN@8 at line 8 of IO/Uncompress/RawInflate.pm # once (16µs+72µs) by IO::Uncompress::Adapter::Inflate::BEGIN@7 at line 7 of IO/Uncompress/Adapter/Inflate.pm # once (84µs+4µs) by Mojo::Util::BEGIN@7 at line 7 of Mojo/Util.pm # once (80µs+5µs) by IO::Compress::Gzip::BEGIN@12 at line 12 of IO/Compress/Gzip.pm # once (71µs+13µs) by IO::Uncompress::Base::BEGIN@17 at line 17 of IO/Uncompress/Base.pm # once (21µs+60µs) by YAML::PP::Parser::BEGIN@19 at line 19 of YAML/PP/Parser.pm # once (13µs+66µs) by JSON::Schema::Modern::Result::BEGIN@25 at line 25 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Result.pm # once (68µs+7µs) by IO::Compress::Base::BEGIN@11 at line 146 of IO/File.pm # once (65µs+9µs) by JSON::Schema::Modern::BEGIN@27 at line 481 of File/ShareDir.pm # once (9µs+65µs) by IO::Uncompress::RawInflate::BEGIN@9 at line 9 of IO/Uncompress/RawInflate.pm # once (17µs+55µs) by JSON::Schema::Modern::BEGIN@24 at line 24 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern.pm # once (19µs+51µs) by JSON::Schema::Modern::Error::BEGIN@17 at line 17 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Error.pm # once (64µs+6µs) by OpenAPI::Modern::BEGIN@20 at line 20 of OpenAPI/Modern.pm # once (64µs+5µs) by Moo::BEGIN@6 at line 17 of Moo.pm # once (12µs+56µs) by JSON::Schema::Modern::Document::OpenAPI::BEGIN@19 at line 19 of JSON/Schema/Modern/Document/OpenAPI.pm # once (12µs+55µs) by IO::Compress::Adapter::Deflate::BEGIN@7 at line 7 of IO/Compress/Adapter/Deflate.pm # once (13µs+52µs) by JSON::Schema::Modern::Document::BEGIN@21 at line 21 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Document.pm # once (63µs+1000ns) by OpenAPI::Modern::BEGIN@27 at line 27 of OpenAPI/Modern.pm # once (8µs+55µs) by IO::Uncompress::Gunzip::BEGIN@15 at line 15 of IO/Uncompress/Gunzip.pm # once (9µs+50µs) by IO::Compress::Gzip::BEGIN@14 at line 14 of IO/Compress/Gzip.pm # once (51µs+5µs) by Mojo::Util::BEGIN@8 at line 8 of Mojo/Util.pm # once (53µs+2µs) by Data::Perl::Collection::Array::MooseLike::BEGIN@8 at line 8 of Data/Perl/Collection/Array/MooseLike.pm # once (49µs+4µs) by IO::File::BEGIN@129 at line 129 of IO/File.pm # once (46µs+6µs) by Moo::_Utils::BEGIN@36 at line 36 of Moo/_Utils.pm # once (44µs+6µs) by Method::Generate::Accessor::BEGIN@8 at line 8 of Method/Generate/Accessor.pm # once (46µs+4µs) by Mojo::Util::BEGIN@16.6 at line 16 of Mojo/Util.pm # once (46µs+2µs) by Mojo::Util::BEGIN@19 at line 19 of Mojo/Util.pm # once (43µs+2µs) by JSON::Schema::Modern::Vocabulary::Applicator::BEGIN@20 at line 20 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Vocabulary/Applicator.pm # once (41µs+4µs) by YAML::PP::Schema::Core::BEGIN@7 at line 10 of YAML/PP/Schema/Core.pm # once (39µs+6µs) by JSON::Schema::Modern::BEGIN@26 at line 26 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern.pm # once (44µs+1µs) by YAML::PP::Schema::BEGIN@9 at line 9 of YAML/PP/Schema.pm # once (43µs+2µs) by JSON::Schema::Modern::Utilities::BEGIN@17 at line 17 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Utilities.pm # once (43µs+1000ns) by Method::Generate::Accessor::BEGIN@10 at line 10 of Method/Generate/Accessor.pm # once (40µs+4µs) by experimental::BEGIN@8 at line 8 of experimental.pm # once (39µs+4µs) by Mojo::Util::BEGIN@6 at line 6 of Mojo/Util.pm # once (40µs+2µs) by Moo::Role::BEGIN@5 at line 16 of Moo/Role.pm # once (38µs+4µs) by JSON::Schema::Modern::Vocabulary::Core::BEGIN@17 at line 17 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Vocabulary/Core.pm # once (39µs+2µs) by JSON::Schema::Modern::Document::OpenAPI::BEGIN@18 at line 18 of JSON/Schema/Modern/Document/OpenAPI.pm # once (35µs+5µs) by JSON::MaybeXS::BEGIN@29 at line 31 of JSON/MaybeXS.pm # once (37µs+3µs) by Data::Perl::Collection::Array::MooseLike::BEGIN@7 at line 7 of Data/Perl/Collection/Array/MooseLike.pm # once (36µs+3µs) by Tie::Hash::BEGIN@190 at line 190 of Tie/Hash.pm # once (36µs+2µs) by Socket::BEGIN@697 at line 697 of Socket.pm # once (35µs+3µs) by JSON::Schema::Modern::Vocabulary::Validation::BEGIN@20 at line 20 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Vocabulary/Validation.pm # once (35µs+2µs) by IO::Handle::BEGIN@265 at line 265 of IO/Handle.pm # once (32µs+5µs) by Moo::_Utils::BEGIN@37 at line 37 of Moo/_Utils.pm # once (34µs+3µs) by SelectSaver::BEGIN@38 at line 38 of SelectSaver.pm # once (35µs+2µs) by JSON::Schema::Modern::Vocabulary::FormatAssertion::BEGIN@17 at line 17 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Vocabulary/FormatAssertion.pm # once (34µs+3µs) by YAML::PP::Parser::BEGIN@11 at line 16 of YAML/PP/Parser.pm # once (36µs+1000ns) by Mojo::Util::BEGIN@4 at line 4 of Mojo/Util.pm # once (32µs+5µs) by Mojo::Util::BEGIN@17 at line 17 of Mojo/Util.pm # once (34µs+2µs) by IO::File::BEGIN@130 at line 130 of IO/File.pm # once (33µs+3µs) by OpenAPI::Modern::BEGIN@24 at line 24 of OpenAPI/Modern.pm # once (34µs+2µs) by Storable::BEGIN@42 at line 42 of Storable.pm # once (34µs+2µs) by Pod::Simple::TiedOutFH::BEGIN@4 at line 4 of Pod/Simple/TiedOutFH.pm # once (33µs+3µs) by Mojo::Util::BEGIN@13.4 at line 13 of Mojo/Util.pm # once (31µs+4µs) by IO::Compress::Base::Common::BEGIN@523 at line 523 of IO/Compress/Base/Common.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 (31µs+3µs) by Unicode::Normalize::BEGIN@6 at line 6 of Unicode/Normalize.pm # once (33µs+1000ns) by JSON::Schema::Modern::Vocabulary::FormatAnnotation::BEGIN@17 at line 17 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Vocabulary/FormatAnnotation.pm # once (32µs+1µs) by JSON::Schema::Modern::Vocabulary::MetaData::BEGIN@17 at line 17 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Vocabulary/MetaData.pm # once (30µs+3µs) by IO::BEGIN@6 at line 6 of IO.pm # once (32µs+1µs) by IO::Compress::Base::Common::BEGIN@7 at line 7 of IO/Compress/Base/Common.pm # once (30µs+3µs) by YAML::PP::Dumper::BEGIN@13 at line 20 of YAML/PP/Dumper.pm # once (30µs+3µs) by Mojo::URL::BEGIN@7 at line 7 of Mojo/URL.pm # once (29µs+3µs) by Compress::Raw::Zlib::BEGIN@6 at line 6 of Compress/Raw/Zlib.pm # once (30µs+2µs) by YAML::PP::Representer::BEGIN@9 at line 17 of YAML/PP/Representer.pm # once (26µs+6µs) by JSON::Schema::Modern::Utilities::BEGIN@18 at line 18 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Utilities.pm # once (29µs+2µs) by MooX::TypeTiny::Role::GenerateAccessor::BEGIN@3 at line 3 of MooX/TypeTiny/Role/GenerateAccessor.pm # once (29µs+2µs) by Method::Generate::BuildAll::BEGIN@7 at line 7 of Method/Generate/BuildAll.pm # once (29µs+2µs) by namespace::clean::BEGIN@38 at line 38 of namespace/clean.pm # once (29µs+2µs) by namespace::clean::BEGIN@11 at line 45 of Sub/Exporter/Progressive.pm # once (30µs+1µs) by Pod::Text::BEGIN@23 at line 23 of Pod/Text.pm # once (26µs+4µs) by IO::Seekable::BEGIN@103 at line 103 of IO/Seekable.pm # once (29µs+1µs) by Type::Library::BEGIN@15 at line 15 of Type/Library.pm # once (28µs+2µs) by Tie::Array::BEGIN@5 at line 5 of Tie/Array.pm # once (27µs+3µs) by Encode::BEGIN@56 at line 56 of Encode.pm # once (28µs+2µs) by Params::Util::BEGIN@63 at line 19 of Params/Util/PP.pm # once (27µs+2µs) by Try::Tiny::BEGIN@13 at line 13 of Try/Tiny.pm # once (27µs+2µs) by Type::Tiny::Duck::BEGIN@14 at line 14 of Type/Tiny/Duck.pm # once (27µs+2µs) by OpenAPI::Modern::BEGIN@18 at line 18 of OpenAPI/Modern.pm # once (28µs+1µs) by Types::Standard::BEGIN@24 at line 24 of Types/Standard.pm # once (27µs+2µs) by YAML::PP::Schema::JSON::BEGIN@14 at line 14 of YAML/PP/Schema/JSON.pm # once (28µs+1µs) by Mojo::Util::BEGIN@10 at line 10 of Mojo/Util.pm # once (27µs+2µs) by JSON::Schema::Modern::Utilities::BEGIN@19 at line 19 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Utilities.pm # once (25µs+3µs) by YAML::PP::Representer::BEGIN@7 at line 7 of YAML/PP/Representer.pm # once (26µs+2µs) by Method::Generate::Constructor::BEGIN@7 at line 7 of Method/Generate/Constructor.pm # once (26µs+2µs) by Sub::Quote::BEGIN@8 at line 8 of Sub/Quote.pm # once (26µs+1µs) by Type::Tiny::Union::BEGIN@14 at line 14 of Type/Tiny/Union.pm # once (26µs+1µs) by YAML::PP::Preserve::Hash::BEGIN@228 at line 228 of YAML/PP.pm # once (26µs+1µs) by JSON::Schema::Modern::Vocabulary::BEGIN@17 at line 17 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Vocabulary.pm # once (27µs+0s) by Mojo::Util::BEGIN@20 at line 20 of Mojo/Util.pm # once (24µs+2µs) by JSON::Schema::Modern::Vocabulary::Unevaluated::BEGIN@18 at line 18 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Vocabulary/Unevaluated.pm # once (25µs+1000ns) by Method::Generate::Accessor::BEGIN@5 at line 5 of Method/Generate/Accessor.pm # once (23µs+3µs) by YAML::PP::Constructor::BEGIN@9 at line 11 of YAML/PP/Constructor.pm # once (24µs+2µs) by Pod::Usage::BEGIN@16 at line 16 of Pod/Usage.pm # once (25µs+1000ns) by Data::Perl::Collection::Hash::MooseLike::BEGIN@7 at line 7 of Data/Perl/Collection/Hash/MooseLike.pm # once (24µs+2µs) by File::GlobMapper::BEGIN@5 at line 5 of File/GlobMapper.pm # once (25µs+0s) by JSON::Schema::Modern::Document::BEGIN@18 at line 18 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Document.pm # once (23µs+2µs) by IO::Seekable::BEGIN@98 at line 98 of IO/Seekable.pm # once (25µs+0s) by IO::Uncompress::Adapter::Inflate::BEGIN@8 at line 8 of IO/Uncompress/Adapter/Inflate.pm # once (24µs+1µs) by Sub::Install::BEGIN@6 at line 6 of Sub/Install.pm # once (22µs+3µs) by Method::Generate::Constructor::BEGIN@5 at line 5 of Method/Generate/Constructor.pm # once (24µs+1µs) by Type::Coercion::BEGIN@15 at line 15 of Type/Coercion.pm # once (24µs+1µs) by Type::Tiny::Class::BEGIN@14 at line 14 of Type/Tiny/Class.pm # once (24µs+1µs) by JSON::Schema::Modern::Vocabulary::Content::BEGIN@19 at line 19 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Vocabulary/Content.pm # once (23µs+2µs) by YAML::PP::Writer::File::BEGIN@11 at line 11 of YAML/PP/Writer/File.pm # once (23µs+2µs) by YAML::PP::Writer::File::BEGIN@7 at line 7 of YAML/PP/Writer/File.pm # once (24µs+0s) by Digest::SHA::BEGIN@8 at line 8 of Digest/SHA.pm # once (23µs+1µs) by JSON::Schema::Modern::BEGIN@18 at line 18 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern.pm # once (23µs+1µs) by IO::Uncompress::Base::BEGIN@23 at line 23 of IO/Uncompress/Base.pm # once (22µs+2µs) by YAML::PP::Emitter::BEGIN@8 at line 13 of YAML/PP/Emitter.pm # once (22µs+2µs) by Mojo::Path::BEGIN@5 at line 5 of Mojo/Path.pm # once (21µs+2µs) by Types::TypeTiny::BEGIN@12 at line 12 of Types/TypeTiny.pm # once (22µs+1µs) by JSON::Schema::Modern::BEGIN@25 at line 25 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern.pm # once (21µs+2µs) by Data::Perl::Role::Collection::Array::BEGIN@10 at line 10 of Data/Perl/Role/Collection/Array.pm # once (21µs+2µs) by YAML::PP::Reader::File::BEGIN@45 at line 45 of YAML/PP/Reader.pm # once (22µs+1µs) by Module::Implementation::BEGIN@9 at line 9 of Module/Implementation.pm # once (21µs+1µs) by JSON::Schema::Modern::BEGIN@27 at line 27 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern.pm # once (21µs+1µs) by Type::Tiny::BEGIN@20 at line 20 of Type/Tiny.pm # once (21µs+1µs) by YAML::PP::Dumper::BEGIN@7 at line 7 of YAML/PP/Dumper.pm # once (21µs+0s) by File::ShareDir::BEGIN@1.26 at line 1 of (eval 31)[File/ShareDir.pm:481] # once (20µs+1000ns) by IO::Handle::BEGIN@266 at line 266 of IO/Handle.pm # once (20µs+1000ns) by Data::Perl::Role::Collection::Hash::BEGIN@8 at line 8 of Data/Perl/Role/Collection/Hash.pm # once (20µs+1000ns) by Moo::sification::BEGIN@6 at line 6 of Moo/sification.pm # once (19µs+1µs) by MooX::TypeTiny::BEGIN@7 at line 7 of MooX/TypeTiny.pm # once (17µs+3µs) by IO::Uncompress::Base::BEGIN@20 at line 20 of IO/Uncompress/Base.pm # once (19µs+0s) by Cpanel::JSON::XS::BEGIN@235 at line 235 of Cpanel/JSON/XS.pm # once (19µs+0s) by Method::Generate::Constructor::BEGIN@8 at line 8 of Method/Generate/Constructor.pm # once (18µs+1µs) by Sub::Defer::BEGIN@5 at line 5 of Sub/Defer.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 JSON::Schema::Modern::Vocabulary::BEGIN@18 at line 18 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Vocabulary.pm # once (19µs+0s) by main::BEGIN@3 at line 3 of /Users/ether/git/fastly/Heavenly/profiling/jsm-0.558-plus-no-annotations-om-0.037/../prof.pl # once (17µs+1µs) by YAML::PP::Lexer::BEGIN@11 at line 11 of YAML/PP/Lexer.pm # once (18µs+0s) by SelectSaver::BEGIN@39 at line 39 of SelectSaver.pm # once (16µs+2µs) by YAML::PP::BEGIN@12 at line 12 of YAML/PP.pm # once (18µs+0s) by IO::Compress::RawDeflate::BEGIN@12 at line 12 of IO/Compress/RawDeflate.pm # once (16µs+1µs) by Method::Generate::Accessor::BEGIN@9 at line 9 of Method/Generate/Accessor.pm # once (17µs+0s) by IO::Uncompress::RawInflate::BEGIN@11 at line 11 of IO/Uncompress/RawInflate.pm # once (17µs+0s) by Method::Generate::Constructor::BEGIN@6 at line 6 of Method/Generate/Constructor.pm # once (16µs+1µs) by JSON::Schema::Modern::Vocabulary::Content::BEGIN@17 at line 17 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Vocabulary/Content.pm # once (15µs+1000ns) by IO::File::BEGIN@132 at line 132 of IO/File.pm # once (15µs+1000ns) by Data::Perl::Collection::Hash::MooseLike::BEGIN@8 at line 8 of Data/Perl/Collection/Hash/MooseLike.pm # once (15µs+1000ns) by YAML::PP::Reader::File::BEGIN@49 at line 49 of YAML/PP/Reader.pm # once (15µs+1000ns) by IO::Compress::RawDeflate::BEGIN@150 at line 150 of IO/Compress/RawDeflate.pm # once (14µs+1µs) by Method::Generate::Constructor::BEGIN@9 at line 9 of Method/Generate/Constructor.pm # once (14µs+1µs) by Sub::Defer::BEGIN@6 at line 6 of Sub/Defer.pm # once (15µs+0s) by IO::Compress::Base::BEGIN@914 at line 914 of IO/Compress/Base.pm # once (15µs+0s) by YAML::PP::Parser::BEGIN@22 at line 22 of YAML/PP/Parser.pm # once (15µs+0s) by JSON::Schema::Modern::Result::BEGIN@24 at line 24 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Result.pm # once (14µs+0s) by Cwd::BEGIN@3 at line 3 of Cwd.pm # once (14µs+0s) by JSON::Schema::Modern::BEGIN@21 at line 21 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern.pm # once (13µs+1µs) by YAML::PP::Emitter::BEGIN@6 at line 6 of YAML/PP/Emitter.pm # once (13µs+1µs) by Moo::BEGIN@18 at line 18 of Moo.pm # once (13µs+0s) by Method::Generate::BuildAll::BEGIN@8 at line 8 of Method/Generate/BuildAll.pm # once (13µs+0s) by JSON::Schema::Modern::Document::OpenAPI::BEGIN@20 at line 20 of JSON/Schema/Modern/Document/OpenAPI.pm # once (13µs+0s) by YAML::PP::Schema::JSON::BEGIN@16 at line 16 of YAML/PP/Schema/JSON.pm # once (13µs+0s) by YAML::PP::BEGIN@13 at line 13 of YAML/PP.pm # once (13µs+0s) by Mojo::Util::BEGIN@12 at line 12 of Mojo/Util.pm # once (11µs+1µs) by JSON::Schema::Modern::Vocabulary::Validation::BEGIN@18 at line 18 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Vocabulary/Validation.pm # once (11µs+1µs) by YAML::PP::Constructor::BEGIN@12 at line 12 of YAML/PP/Constructor.pm # once (11µs+1µs) by MooX::TypeTiny::Role::GenerateAccessor::BEGIN@4 at line 4 of MooX/TypeTiny/Role/GenerateAccessor.pm # once (12µs+0s) by Moo::Role::BEGIN@17 at line 17 of Moo/Role.pm # once (12µs+0s) by YAML::PP::Schema::Core::BEGIN@14 at line 14 of YAML/PP/Schema/Core.pm # once (12µs+0s) by JSON::Schema::Modern::BEGIN@19 at line 19 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern.pm # once (12µs+0s) by JSON::Schema::Modern::Document::OpenAPI::BEGIN@21 at line 21 of JSON/Schema/Modern/Document/OpenAPI.pm # once (12µs+0s) by YAML::PP::BEGIN@9 at line 9 of YAML/PP.pm # once (12µs+0s) by IO::Compress::RawDeflate::BEGIN@9 at line 9 of IO/Compress/RawDeflate.pm # once (11µs+1µs) by Pod::Text::BEGIN@24 at line 24 of Pod/Text.pm # once (10µs+1000ns) by JSON::Schema::Modern::Document::BEGIN@20 at line 20 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Document.pm # once (11µs+0s) by JSON::Schema::Modern::Vocabulary::Applicator::BEGIN@18 at line 18 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Vocabulary/Applicator.pm # once (10µs+1000ns) by YAML::PP::Schema::BEGIN@11 at line 11 of YAML/PP/Schema.pm # once (11µs+0s) by IO::Compress::Base::Common::BEGIN@8 at line 8 of IO/Compress/Base/Common.pm # once (11µs+0s) by JSON::Schema::Modern::Document::OpenAPI::BEGIN@23 at line 23 of JSON/Schema/Modern/Document/OpenAPI.pm # once (10µs+0s) by Role::Tiny::With::BEGIN@11 at line 11 of Role/Tiny/With.pm # once (10µs+0s) by Getopt::Long::BEGIN@26 at line 26 of Getopt/Long.pm # once (10µs+0s) by Moo::sification::BEGIN@8 at line 8 of Moo/sification.pm # once (10µs+0s) by Encode::BEGIN@15 at line 15 of Encode.pm # once (10µs+0s) by JSON::Schema::Modern::Utilities::BEGIN@20 at line 20 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Utilities.pm # once (9µs+0s) by IO::Poll::BEGIN@11 at line 11 of IO/Poll.pm # once (8µs+1µs) by JSON::Schema::Modern::BEGIN@22 at line 22 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern.pm # once (9µs+0s) by OpenAPI::Modern::BEGIN@22 at line 22 of OpenAPI/Modern.pm # once (8µs+1µs) by Sub::Quote::BEGIN@11 at line 11 of Sub/Quote.pm # once (8µs+1µs) by JSON::Schema::Modern::Utilities::BEGIN@21 at line 21 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Utilities.pm # once (9µs+0s) by IO::Uncompress::Gunzip::BEGIN@12 at line 12 of IO/Uncompress/Gunzip.pm # once (8µs+0s) by YAML::PP::Constructor::BEGIN@13 at line 13 of YAML/PP/Constructor.pm # once (8µs+0s) by Pod::Usage::BEGIN@18 at line 18 of Pod/Usage.pm # once (7µs+1000ns) by Sub::Quote::BEGIN@9 at line 9 of Sub/Quote.pm # once (8µs+0s) by Mojo::Util::BEGIN@14 at line 14 of Mojo/Util.pm # once (7µs+0s) by Try::Tiny::BEGIN@10 at line 10 of Try/Tiny.pm # once (7µs+0s) by Ref::Util::XS::BEGIN@8 at line 8 of Ref/Util/XS.pm # once (6µs+0s) by Sub::Defer::BEGIN@4 at line 4 of Sub/Defer.pm # once (6µs+0s) by Safe::Isa::BEGIN@6 at line 6 of Safe/Isa.pm # once (6µs+0s) by URI::Escape::BEGIN@147 at line 147 of URI/Escape.pm # once (6µs+0s) by Encode::Alias::BEGIN@7 at line 7 of Encode/Alias.pm # once (6µs+0s) by JSON::Schema::Modern::Utilities::BEGIN@27 at line 27 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Utilities.pm # once (6µs+0s) by Fcntl::BEGIN@60 at line 60 of Fcntl.pm # once (5µs+0s) by Ref::Util::BEGIN@7 at line 7 of Ref/Util.pm # once (5µs+0s) by Mojo::Util::BEGIN@9 at line 9 of Mojo/Util.pm # once (2µs+0s) by Sub::Quote::BEGIN@10 at line 10 of Sub/Quote.pm # once (2µs+0s) by Path::Tiny::BEGIN@12 at line 12 of Path/Tiny.pm
sub import {
2622953µs my $pkg = shift;
27229129µs my $callpkg = caller($ExportLevel);
28
29229118µs if ($pkg eq "Exporter" and @_ and $_[0] eq "import") {
301437µs *{$callpkg."::import"} = \&import;
311443µs return;
32 }
33
34 # We *need* to treat @{"$pkg\::EXPORT_FAIL"} since Carp uses it :-(
35215349µ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.
38215234µs my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"};
39215122µs return export $pkg, $callpkg, @_
40 if $Verbose or $Debug or $fail && @$fail > 1;
41215152µs my $export_cache = ($Cache{$pkg} ||= {});
42215162µs my $args = @_ or @_ = @$exports;
43
4421590µs if ($args and not %$export_cache) {
45 s/^&//, $export_cache->{$_} = 1
46352.06ms1694192µs foreach (@$exports, @{"$pkg\::EXPORT_OK"});
# spent 192µs making 1694 calls to Exporter::CORE:subst, avg 113ns/call
47 }
4821528µ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.
51215110µ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.23ms589301µs foreach (@_);
# spent 301µs making 589 calls to Exporter::CORE:match, avg 511ns/call
55 } else {
56 ($heavy = /\W/) and last
5738256µs21250µs foreach (@_);
# spent 50µs making 212 calls to Exporter::CORE:match, avg 236ns/call
58 }
59215162µ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__} =
61193610µs sub {require Carp; &Carp::carp} if not $SIG{__WARN__};
62 # shortcut for the common case of no type character
631932.22ms *{"$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 54µs (10+44) within Exporter::export_ok_tags which was called 4 times, avg 14µs/call: # once (3µs+13µs) by IO::Compress::Gzip::BEGIN@11 at line 44 of IO/Compress/RawDeflate.pm # once (4µs+12µs) by IO::Uncompress::Gunzip::BEGIN@12 at line 25 of IO/Uncompress/RawInflate.pm # once (2µs+10µs) by Mojo::Util::BEGIN@12 at line 36 of IO/Compress/Gzip.pm # once (1µs+9µs) by Mojo::Util::BEGIN@14 at line 27 of IO/Uncompress/Gunzip.pm
sub export_ok_tags {
86415µs896µs goto &{as_heavy()};
# spent 52µs making 4 calls to Exporter::Heavy::heavy_export_ok_tags, avg 13µs/call # spent 44µs making 4 calls to Exporter::as_heavy, avg 11µs/call
87}
88
89sub require_version {
90 goto &{as_heavy()};
91}
92
9314µs1;
94__END__
 
# spent 351µs within Exporter::CORE:match which was called 801 times, avg 438ns/call: # 589 times (301µs+0s) by Exporter::import at line 54, avg 511ns/call # 212 times (50µs+0s) by Exporter::import at line 57, avg 236ns/call
sub Exporter::CORE:match; # opcode
# spent 266µs within Exporter::CORE:subst which was called 1720 times, avg 155ns/call: # 1694 times (192µs+0s) by Exporter::import at line 46, avg 113ns/call # 26 times (74µs+0s) by Exporter::as_heavy at line 17, avg 3µ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.