← Index
NYTProf Performance Profile   « block view • line view • sub view »
For -e
  Run on Wed Nov 17 21:45:08 2010
Reported on Wed Nov 17 22:10:08 2010

Filename/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/B/Hooks/EndOfScope.pm
StatementsExecuted 452 statements in 9.66ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
54222.64ms5.12msB::Hooks::EndOfScope::::on_scope_endB::Hooks::EndOfScope::on_scope_end
5454542.52ms1.03sB::Hooks::EndOfScope::::__ANON__[:26]B::Hooks::EndOfScope::__ANON__[:26]
1112.19ms3.99msB::Hooks::EndOfScope::::BEGIN@14B::Hooks::EndOfScope::BEGIN@14
5411631µs631µsB::Hooks::EndOfScope::::__ANON__[:25]B::Hooks::EndOfScope::__ANON__[:25]
111148µs168µsnamespace::clean::::BEGIN@1 namespace::clean::BEGIN@1
11171µs71µsB::Hooks::EndOfScope::::BEGIN@13B::Hooks::EndOfScope::BEGIN@13
11152µs1.72msB::Hooks::EndOfScope::::BEGIN@16B::Hooks::EndOfScope::BEGIN@16
11139µs108µsnamespace::clean::::BEGIN@2.1 namespace::clean::BEGIN@2.1
11118µs18µsB::Hooks::EndOfScope::::BEGIN@5B::Hooks::EndOfScope::BEGIN@5
11116µs16µsB::Hooks::EndOfScope::::BEGIN@8B::Hooks::EndOfScope::BEGIN@8
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
13110µs2188µs
# spent 168µs (148+20) within namespace::clean::BEGIN@1 which was called: # once (148µs+20µs) by namespace::clean::BEGIN@17 at line 1
use strict;
# spent 168µs making 1 call to namespace::clean::BEGIN@1 # spent 20µs making 1 call to strict::import
23186µs2178µs
# spent 108µs (39+69) within namespace::clean::BEGIN@2.1 which was called: # once (39µs+69µs) by namespace::clean::BEGIN@17 at line 2
use warnings;
# spent 108µs making 1 call to namespace::clean::BEGIN@2.1 # spent 69µs making 1 call to warnings::import
3
4package B::Hooks::EndOfScope;
5
# spent 18µs within B::Hooks::EndOfScope::BEGIN@5 which was called: # once (18µs+0s) by namespace::clean::BEGIN@17 at line 7
BEGIN {
6120µs $B::Hooks::EndOfScope::AUTHORITY = 'cpan:FLORA';
7181µs118µs}
# spent 18µs making 1 call to B::Hooks::EndOfScope::BEGIN@5
8
# spent 16µs within B::Hooks::EndOfScope::BEGIN@8 which was called: # once (16µs+0s) by namespace::clean::BEGIN@17 at line 10
BEGIN {
9118µs $B::Hooks::EndOfScope::VERSION = '0.09';
10163µs116µs}
# spent 16µs making 1 call to B::Hooks::EndOfScope::BEGIN@8
11# ABSTRACT: Execute code after a scope finished compilation
12
133143µs171µs
# spent 71µs within B::Hooks::EndOfScope::BEGIN@13 which was called: # once (71µs+0s) by namespace::clean::BEGIN@17 at line 13
use 5.008000;
# spent 71µs making 1 call to B::Hooks::EndOfScope::BEGIN@13
143586µs34.17ms
# spent 3.99ms (2.19+1.80) within B::Hooks::EndOfScope::BEGIN@14 which was called: # once (2.19ms+1.80ms) by namespace::clean::BEGIN@17 at line 14
use Variable::Magic 0.34;
# spent 3.99ms making 1 call to B::Hooks::EndOfScope::BEGIN@14 # spent 115µs making 1 call to Exporter::import # spent 70µs making 1 call to UNIVERSAL::VERSION
15
1611.67ms
# spent 1.72ms (52µs+1.67) within B::Hooks::EndOfScope::BEGIN@16 which was called: # once (52µs+1.67ms) by namespace::clean::BEGIN@17 at line 19
use Sub::Exporter -setup => {
# spent 1.67ms making 1 call to Sub::Exporter::__ANON__[Sub/Exporter.pm:756]
17 exports => ['on_scope_end'],
18 groups => { default => ['on_scope_end'] },
193598µs11.72ms};
# spent 1.72ms making 1 call to B::Hooks::EndOfScope::BEGIN@16
20
- -
23{
2414µs my $wiz = Variable::Magic::wizard
2554902µs
# spent 631µs within B::Hooks::EndOfScope::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/B/Hooks/EndOfScope.pm:25] which was called 54 times, avg 12µs/call: # 54 times (631µs+0s) by Variable::Magic::cast at line 37, avg 12µs/call
data => sub { [$_[1]] },
261632.70ms551.02s
# spent 1.03s (2.52ms+1.02) within B::Hooks::EndOfScope::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/B/Hooks/EndOfScope.pm:26] which was called 54 times, avg 19.0ms/call: # once (49µs+48.1ms) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 440 of Markdent/Role/HTMLStream.pm # once (50µs+40.5ms) by Markdent::Parser::BEGIN@11 at line 959 of Markdent/Dialect/Standard/SpanParser.pm # once (79µs+33.0ms) by Markdent::Parser::BEGIN@10 at line 808 of Markdent/Dialect/Standard/BlockParser.pm # once (49µs+30.5ms) by Markdent::Simple::Document::BEGIN@10 at line 310 of Markdent/Parser.pm # once (50µs+30.5ms) by Markdent::Types::Internal::BEGIN@11 at line 611 of MooseX/Types.pm # once (54µs+29.9ms) by MooseX::Types::BEGIN@12 at line 291 of MooseX/Types/Base.pm # once (46µs+27.1ms) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 106 of Markdent/Role/BalancedEvent.pm # once (45µs+22.0ms) by Markdent::Dialect::Standard::BlockParser::BEGIN@13 at line 59 of Markdent/Event/EndBlockquote.pm # once (50µs+21.9ms) by Markdent::Dialect::Standard::SpanParser::BEGIN@12 at line 75 of Markdent/Event/AutoLink.pm # once (48µs+21.0ms) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 210 of Markdent/Role/Event.pm # once (51µs+20.6ms) by Markdent::Dialect::Standard::SpanParser::BEGIN@15 at line 75 of Markdent/Event/EndHTMLTag.pm # once (45µs+20.3ms) by Markdent::Dialect::Standard::SpanParser::BEGIN@20 at line 86 of Markdent/Event/HTMLTag.pm # once (44µs+19.9ms) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 107 of Markdent/Role/DebugPrinter.pm # once (42µs+19.7ms) by Markdent::Dialect::Standard::SpanParser::BEGIN@18 at line 75 of Markdent/Event/HTMLComment.pm # once (46µs+19.4ms) by Markdent::Dialect::Standard::SpanParser::BEGIN@21 at line 116 of Markdent/Event/Image.pm # once (45µs+19.3ms) by Markdent::Dialect::Standard::BlockParser::BEGIN@26 at line 75 of Markdent/Event/HTMLCommentBlock.pm # once (45µs+19.3ms) by Markdent::Dialect::Standard::SpanParser::BEGIN@24 at line 86 of Markdent/Event/StartHTMLTag.pm # once (44µs+19.2ms) by Markdent::Dialect::Standard::SpanParser::BEGIN@27 at line 87 of Markdent/Event/Text.pm # once (45µs+19.1ms) by Markdent::Dialect::Standard::SpanParser::BEGIN@25 at line 109 of Markdent/Event/StartLink.pm # once (47µs+18.6ms) by main::BEGIN@0 at line 108 of Markdent/Simple/Document.pm # once (46µs+18.6ms) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 123 of Markdent/Role/AnyParser.pm # once (50µs+17.9ms) by Markdent::Simple::Document::BEGIN@9 at line 117 of Markdent/Handler/HTMLStream/Document.pm # once (45µs+17.8ms) by Markdent::Dialect::Standard::BlockParser::BEGIN@14 at line 75 of Markdent/Event/StartHeader.pm # once (47µs+17.6ms) by Markdent::Dialect::Standard::SpanParser::BEGIN@26 at line 90 of Markdent/Event/StartStrong.pm # once (46µs+17.4ms) by Markdent::Dialect::Standard::SpanParser::BEGIN@13 at line 90 of Markdent/Event/EndCode.pm # once (45µs+17.4ms) by Markdent::Dialect::Standard::SpanParser::BEGIN@23 at line 90 of Markdent/Event/StartEmphasis.pm # once (44µs+17.4ms) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 70 of Markdent/Role/SpanParser.pm # once (57µs+17.3ms) by Markdent::Dialect::Standard::SpanParser::BEGIN@22 at line 90 of Markdent/Event/StartCode.pm # once (45µs+17.3ms) by Markdent::Dialect::Standard::SpanParser::BEGIN@17 at line 90 of Markdent/Event/EndStrong.pm # once (44µs+17.2ms) by Markdent::Dialect::Standard::SpanParser::BEGIN@14 at line 90 of Markdent/Event/EndEmphasis.pm # once (44µs+17.1ms) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 91 of Markdent/Role/EventsAsMethods.pm # once (44µs+17.1ms) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 88 of Markdent/Role/BlockParser.pm # once (45µs+17.0ms) by Markdent::Dialect::Standard::BlockParser::BEGIN@15 at line 75 of Markdent/Event/EndHeader.pm # once (43µs+17.0ms) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 60 of Markdent/Role/EventAsText.pm # once (43µs+16.9ms) by Markdent::Dialect::Standard::BlockParser::BEGIN@27 at line 75 of Markdent/Event/Preformatted.pm # once (44µs+16.9ms) by Markdent::Dialect::Standard::BlockParser::BEGIN@25 at line 75 of Markdent/Event/HTMLBlock.pm # once (43µs+16.8ms) by Markdent::Dialect::Standard::SpanParser::BEGIN@19 at line 76 of Markdent/Event/HTMLEntity.pm # once (43µs+16.8ms) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 63 of Markdent/Role/Handler.pm # once (44µs+15.4ms) by Markdent::Dialect::Standard::BlockParser::BEGIN@11 at line 59 of Markdent/Event/EndDocument.pm # once (45µs+15.3ms) by Markdent::Dialect::Standard::BlockParser::BEGIN@10 at line 59 of Markdent/Event/StartDocument.pm # once (48µs+15.3ms) by Markdent::Types::Internal::BEGIN@24 at line 84 of MooseX/Types/Moose.pm # once (44µs+15.2ms) by Markdent::Dialect::Standard::BlockParser::BEGIN@19 at line 59 of Markdent/Event/EndOrderedList.pm # once (44µs+14.9ms) by Markdent::Dialect::Standard::BlockParser::BEGIN@23 at line 59 of Markdent/Event/EndUnorderedList.pm # once (78µs+14.8ms) by Markdent::Dialect::Standard::SpanParser::BEGIN@16 at line 62 of Markdent/Event/EndLink.pm # once (45µs+14.7ms) by Markdent::Dialect::Standard::BlockParser::BEGIN@16 at line 59 of Markdent/Event/StartListItem.pm # once (43µs+14.7ms) by Markdent::Dialect::Standard::BlockParser::BEGIN@17 at line 59 of Markdent/Event/EndListItem.pm # once (42µs+14.6ms) by Markdent::Dialect::Standard::BlockParser::BEGIN@20 at line 59 of Markdent/Event/StartParagraph.pm # once (43µs+14.6ms) by Markdent::Dialect::Standard::BlockParser::BEGIN@24 at line 59 of Markdent/Event/HorizontalRule.pm # once (44µs+14.6ms) by Markdent::Dialect::Standard::BlockParser::BEGIN@18 at line 59 of Markdent/Event/StartOrderedList.pm # once (43µs+14.5ms) by Markdent::Dialect::Standard::BlockParser::BEGIN@21 at line 59 of Markdent/Event/EndParagraph.pm # once (43µs+14.5ms) by Markdent::Dialect::Standard::BlockParser::BEGIN@22 at line 59 of Markdent/Event/StartUnorderedList.pm # once (43µs+14.5ms) by Markdent::Dialect::Standard::BlockParser::BEGIN@12 at line 59 of Markdent/Event/StartBlockquote.pm # once (43µs+3.65ms) by MooseX::Types::BEGIN@15 at line 102 of MooseX/Types/CheckedUtilExports.pm # once (43µs+1.99ms) by Markdent::Handler::HTMLStream::Document::BEGIN@11 at line 62 of namespace/autoclean.pm
free => sub { $_->() for @{ $_[1] }; () };
# spent 943ms making 49 calls to namespace::autoclean::__ANON__[namespace/autoclean.pm:57], avg 19.2ms/call # spent 81.3ms making 5 calls to namespace::clean::__ANON__[namespace/clean.pm:110], avg 16.3ms/call # spent 143µs making 1 call to Variable::Magic::wizard
27
28
# spent 5.12ms (2.64+2.48) within B::Hooks::EndOfScope::on_scope_end which was called 54 times, avg 95µs/call: # 49 times (2.41ms+2.24ms) by namespace::autoclean::import at line 57 of namespace/autoclean.pm, avg 95µs/call # 5 times (229µs+235µs) by namespace::clean::import at line 110 of namespace/clean.pm, avg 93µs/call
sub on_scope_end (&) {
292163.40ms my $cb = shift;
30
31 $^H |= 0x020000;
32
3354413µs if (my $stack = Variable::Magic::getdata %^H, $wiz) {
# spent 413µs making 54 calls to Variable::Magic::getdata, avg 8µs/call
34 push @{ $stack }, $cb;
35 }
36 else {
371834µs1082.69ms Variable::Magic::cast %^H, $wiz, $cb;
# spent 2.06ms making 54 calls to Variable::Magic::cast, avg 38µs/call # spent 631µs making 54 calls to B::Hooks::EndOfScope::__ANON__[B/Hooks/EndOfScope.pm:25], avg 12µs/call
38 }
39 }
40}
41
42
43114µs1;
44
45__END__
Report produced by the NYTProf 4.04 Perl profiler, developed by Tim Bunce and Adam Kaplan.