| Filename | /Users/ether/.perlbrew/libs/36.0@std/lib/perl5/B/Hooks/EndOfScope/XS.pm |
| Statements | Executed 123 statements in 2.01ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 1.52ms | 2.70ms | B::Hooks::EndOfScope::XS::BEGIN@18 |
| 1 | 1 | 1 | 1.38ms | 1.53ms | B::Hooks::EndOfScope::XS::BEGIN@19 |
| 18 | 18 | 18 | 213µs | 8.76ms | B::Hooks::EndOfScope::XS::__ANON__[:26] |
| 18 | 1 | 1 | 156µs | 293µs | B::Hooks::EndOfScope::XS::on_scope_end |
| 1 | 1 | 1 | 52µs | 55µs | B::Hooks::EndOfScope::XS::BEGIN@4 |
| 18 | 1 | 1 | 33µs | 33µs | B::Hooks::EndOfScope::XS::__ANON__[:25] |
| 1 | 1 | 1 | 8µs | 8µs | B::Hooks::EndOfScope::XS::BEGIN@16 |
| 1 | 1 | 1 | 6µs | 34µs | B::Hooks::EndOfScope::XS::BEGIN@5 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package B::Hooks::EndOfScope::XS; | ||||
| 2 | # ABSTRACT: Execute code after a scope finished compilation - XS implementation | ||||
| 3 | |||||
| 4 | 2 | 36µs | 2 | 58µs | # spent 55µs (52+3) within B::Hooks::EndOfScope::XS::BEGIN@4 which was called:
# once (52µs+3µs) by Module::Runtime::require_module at line 4 # spent 55µs making 1 call to B::Hooks::EndOfScope::XS::BEGIN@4
# spent 3µs making 1 call to strict::import |
| 5 | 2 | 41µs | 2 | 62µs | # spent 34µs (6+28) within B::Hooks::EndOfScope::XS::BEGIN@5 which was called:
# once (6µs+28µs) by Module::Runtime::require_module at line 5 # spent 34µs making 1 call to B::Hooks::EndOfScope::XS::BEGIN@5
# spent 28µs making 1 call to warnings::import |
| 6 | |||||
| 7 | 1 | 1µs | our $VERSION = '0.26'; | ||
| 8 | |||||
| 9 | # Limit the V::M-based (XS) version to perl 5.8.4+ | ||||
| 10 | # | ||||
| 11 | # Given the unorthodox stuff we do to work around the hinthash double-free | ||||
| 12 | # might as well play it safe and only implement it in the PP version | ||||
| 13 | # and leave it at that | ||||
| 14 | # https://rt.perl.org/Public/Bug/Display.html?id=27040#txn-82797 | ||||
| 15 | # | ||||
| 16 | 2 | 28µs | 1 | 8µs | # spent 8µs within B::Hooks::EndOfScope::XS::BEGIN@16 which was called:
# once (8µs+0s) by Module::Runtime::require_module at line 16 # spent 8µs making 1 call to B::Hooks::EndOfScope::XS::BEGIN@16 |
| 17 | |||||
| 18 | 3 | 603µs | 2 | 2.70ms | # spent 2.70ms (1.52+1.18) within B::Hooks::EndOfScope::XS::BEGIN@18 which was called:
# once (1.52ms+1.18ms) by Module::Runtime::require_module at line 18 # spent 2.70ms making 1 call to B::Hooks::EndOfScope::XS::BEGIN@18
# spent 7µs making 1 call to UNIVERSAL::VERSION |
| 19 | 1 | 565µs | # spent 1.53ms (1.38+156µs) within B::Hooks::EndOfScope::XS::BEGIN@19 which was called:
# once (1.38ms+156µs) by Module::Runtime::require_module at line 22 | ||
| 20 | exports => ['on_scope_end'], | ||||
| 21 | groups => { default => ['on_scope_end'] }, | ||||
| 22 | 2 | 223µs | 3 | 1.58ms | }; # spent 1.53ms making 1 call to B::Hooks::EndOfScope::XS::BEGIN@19
# spent 42µs making 1 call to Sub::Exporter::Progressive::import
# spent 9µs making 1 call to UNIVERSAL::VERSION |
| 23 | |||||
| 24 | my $wiz = Variable::Magic::wizard | ||||
| 25 | 18 | 36µs | # spent 33µs within B::Hooks::EndOfScope::XS::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/B/Hooks/EndOfScope/XS.pm:25] which was called 18 times, avg 2µs/call:
# 18 times (33µs+0s) by Variable::Magic::cast at line 43, avg 2µs/call | ||
| 26 | 36 | 217µs | 18 | 8.54ms | # spent 8.76ms (213µs+8.54) within B::Hooks::EndOfScope::XS::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/B/Hooks/EndOfScope/XS.pm:26] which was called 18 times, avg 486µs/call:
# once (47µs+1.77ms) by OpenAPI::Modern::BEGIN@26 at line 982 of JSON/Schema/Modern.pm
# once (11µs+679µs) by JSON::Schema::Modern::BEGIN@34 at line 208 of JSON/Schema/Modern/Result.pm
# once (10µs+678µs) by main::BEGIN@2 at line 681 of OpenAPI/Modern.pm
# once (14µs+604µs) by OpenAPI::Modern::BEGIN@28 at line 229 of JSON/Schema/Modern/Document/OpenAPI.pm
# once (21µs+575µs) by JSON::Schema::Modern::BEGIN@35 at line 205 of JSON/Schema/Modern/Document.pm
# once (13µs+575µs) by Module::Runtime::require_module at line 496 of JSON/Schema/Modern/Vocabulary/Applicator.pm
# once (6µs+479µs) by JSON::Schema::Modern::BEGIN@33 at line 84 of JSON/Schema/Modern/Error.pm
# once (13µs+466µs) by JSON::Schema::Modern::Vocabulary::Applicator::BEGIN@21 at line 154 of JSON/Schema/Modern/Vocabulary/Unevaluated.pm
# once (10µs+395µs) by JSON::Schema::Modern::Result::BEGIN@20 at line 83 of JSON/Schema/Modern/Annotation.pm
# once (9µs+390µs) by Module::Runtime::require_module at line 326 of JSON/Schema/Modern/Vocabulary/Validation.pm
# once (11µs+313µs) by Module::Runtime::require_module at line 189 of JSON/Schema/Modern/Vocabulary/FormatAssertion.pm
# once (9µs+294µs) by Module::Runtime::require_module at line 347 of JSON/Schema/Modern/Vocabulary/Core.pm
# once (7µs+280µs) by Moo::_Utils::_require at line 94 of JSON/Schema/Modern/Vocabulary.pm
# once (7µs+278µs) by Module::Runtime::require_module at line 108 of JSON/Schema/Modern/Vocabulary/OpenAPI.pm
# once (4µs+225µs) by Module::Runtime::require_module at line 118 of JSON/Schema/Modern/Vocabulary/Content.pm
# once (9µs+198µs) by JSON::Schema::Modern::BEGIN@36 at line 356 of JSON/Schema/Modern/Utilities.pm
# once (6µs+188µs) by Module::Runtime::require_module at line 45 of JSON/Schema/Modern/Vocabulary/FormatAnnotation.pm
# once (6µs+156µs) by Module::Runtime::require_module at line 78 of JSON/Schema/Modern/Vocabulary/MetaData.pm # spent 8.54ms making 18 calls to namespace::clean::__ANON__[namespace/clean.pm:185], avg 475µs/call |
| 27 | # When someone localise %^H, our magic doesn't want to be copied | ||||
| 28 | # down. We want it to be around only for the scope we've initially | ||||
| 29 | # attached ourselves to. Merely having MGf_LOCAL and a noop svt_local | ||||
| 30 | # callback achieves this. If anything wants to attach more magic of our | ||||
| 31 | # kind to a localised %^H, things will continue to just work as we'll be | ||||
| 32 | # attached with a new and empty callback list. | ||||
| 33 | 1 | 5µs | 1 | 58µs | local => \undef # spent 58µs making 1 call to Variable::Magic::wizard |
| 34 | ; | ||||
| 35 | |||||
| 36 | # spent 293µs (156+137) within B::Hooks::EndOfScope::XS::on_scope_end which was called 18 times, avg 16µs/call:
# 18 times (156µs+137µs) by namespace::clean::import at line 185 of namespace/clean.pm, avg 16µs/call | ||||
| 37 | 18 | 25µs | $^H |= 0x020000; | ||
| 38 | |||||
| 39 | 18 | 127µs | 18 | 27µs | if (my $stack = Variable::Magic::getdata %^H, $wiz) { # spent 27µs making 18 calls to Variable::Magic::getdata, avg 2µs/call |
| 40 | push @{ $stack }, $_[0]; | ||||
| 41 | } | ||||
| 42 | else { | ||||
| 43 | 18 | 102µs | 36 | 143µs | Variable::Magic::cast %^H, $wiz, $_[0]; # spent 110µs making 18 calls to Variable::Magic::cast, avg 6µs/call
# spent 33µs making 18 calls to B::Hooks::EndOfScope::XS::__ANON__[B/Hooks/EndOfScope/XS.pm:25], avg 2µs/call |
| 44 | } | ||||
| 45 | } | ||||
| 46 | |||||
| 47 | 1 | 4µs | 1; | ||
| 48 | |||||
| 49 | __END__ |