← Index
NYTProf Performance Profile   « block view • line view • sub view »
For -e
  Run on Wed Nov 17 21:39:01 2010
Reported on Wed Nov 17 22:05:49 2010

Filename/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/B/Hooks/EndOfScope.pm
StatementsExecuted 388 statements in 8.42ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
4646462.21ms627msB::Hooks::EndOfScope::::__ANON__[:26]B::Hooks::EndOfScope::__ANON__[:26]
1112.19ms4.10msB::Hooks::EndOfScope::::BEGIN@14B::Hooks::EndOfScope::BEGIN@14
46112.05ms4.21msB::Hooks::EndOfScope::::on_scope_endB::Hooks::EndOfScope::on_scope_end
4611510µs510µsB::Hooks::EndOfScope::::__ANON__[:25]B::Hooks::EndOfScope::__ANON__[:25]
11184µs84µsB::Hooks::EndOfScope::::BEGIN@13B::Hooks::EndOfScope::BEGIN@13
11169µs88µsnamespace::clean::::BEGIN@1 namespace::clean::BEGIN@1
11155µs1.68msB::Hooks::EndOfScope::::BEGIN@16B::Hooks::EndOfScope::BEGIN@16
11139µs108µsnamespace::clean::::BEGIN@2.1 namespace::clean::BEGIN@2.1
11117µs17µ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
1397µs2106µs
# spent 88µs (69+18) within namespace::clean::BEGIN@1 which was called: # once (69µs+18µs) by namespace::clean::BEGIN@17 at line 1
use strict;
# spent 88µs making 1 call to namespace::clean::BEGIN@1 # spent 18µs making 1 call to strict::import
23163µs2177µ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 17µs within B::Hooks::EndOfScope::BEGIN@5 which was called: # once (17µs+0s) by namespace::clean::BEGIN@17 at line 7
BEGIN {
6121µs $B::Hooks::EndOfScope::AUTHORITY = 'cpan:FLORA';
7183µs117µs}
# spent 17µ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 {
9119µs $B::Hooks::EndOfScope::VERSION = '0.09';
10164µs116µs}
# spent 16µs making 1 call to B::Hooks::EndOfScope::BEGIN@8
11# ABSTRACT: Execute code after a scope finished compilation
12
133159µs184µs
# spent 84µs within B::Hooks::EndOfScope::BEGIN@13 which was called: # once (84µs+0s) by namespace::clean::BEGIN@17 at line 13
use 5.008000;
# spent 84µs making 1 call to B::Hooks::EndOfScope::BEGIN@13
143599µs34.30ms
# spent 4.10ms (2.19+1.91) within B::Hooks::EndOfScope::BEGIN@14 which was called: # once (2.19ms+1.91ms) by namespace::clean::BEGIN@17 at line 14
use Variable::Magic 0.34;
# spent 4.10ms making 1 call to B::Hooks::EndOfScope::BEGIN@14 # spent 146µs making 1 call to Exporter::import # spent 60µs making 1 call to UNIVERSAL::VERSION
15
1611.62ms
# spent 1.68ms (55µs+1.62) within B::Hooks::EndOfScope::BEGIN@16 which was called: # once (55µs+1.62ms) by namespace::clean::BEGIN@17 at line 19
use Sub::Exporter -setup => {
# spent 1.62ms making 1 call to Sub::Exporter::__ANON__[Sub/Exporter.pm:756]
17 exports => ['on_scope_end'],
18 groups => { default => ['on_scope_end'] },
193594µs11.68ms};
# spent 1.68ms making 1 call to B::Hooks::EndOfScope::BEGIN@16
20
- -
23{
2414µs my $wiz = Variable::Magic::wizard
2546794µs
# spent 510µ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 46 times, avg 11µs/call: # 46 times (510µs+0s) by Variable::Magic::cast at line 37, avg 11µs/call
data => sub { [$_[1]] },
261392.39ms47625ms
# spent 627ms (2.21+625) 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 46 times, avg 13.6ms/call: # once (72µs+29.3ms) by KiokuDB::BEGIN@10 at line 61 of KiokuDB/Backend.pm # once (54µs+29.2ms) by KiokuDB::BEGIN@13 at line 535 of KiokuDB/LiveObjects.pm # once (49µs+24.9ms) by KiokuDB::Collapser::BEGIN@12 at line 308 of KiokuDB/Entry.pm # once (53µs+18.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 12 of MooseX/Clone/Meta/Attribute/Trait/Clone/Base.pm # once (56µs+16.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 20 of KiokuDB/TypeMap/Entry/Std.pm # once (52µs+15.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 58 of KiokuDB/TypeMap/Entry/Std/Intrinsic.pm # once (57µs+15.7ms) by KiokuDB::TypeMap::Resolver::BEGIN@9 at line 488 of KiokuDB/TypeMap/Entry/MOP.pm # once (57µs+15.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 14 of KiokuDB/Error.pm # once (50µs+15.3ms) by main::BEGIN@0 at line 659 of KiokuDB.pm # once (50µs+15.1ms) by KiokuDB::BEGIN@12 at line 385 of KiokuDB/Linker.pm # once (42µs+15.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 14 of KiokuDB/Role/UUIDs/LibUUID.pm # once (45µs+15.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 22 of KiokuDB/Role/UUIDs.pm # once (53µs+14.9ms) by KiokuDB::BEGIN@11 at line 400 of KiokuDB/Collapser.pm # once (49µs+14.3ms) by KiokuDB::BEGIN@14 at line 175 of KiokuDB/TypeMap.pm # once (47µs+14.1ms) by KiokuDB::Collapser::BEGIN@18 at line 447 of Data/Visitor.pm # once (46µs+13.5ms) by MooseX::Clone::BEGIN@11 at line 27 of MooseX/Clone/Meta/Attribute/Trait/StorableClone.pm # once (47µs+13.3ms) by MooseX::Clone::BEGIN@13 at line 40 of MooseX/Clone/Meta/Attribute/Trait/Copy.pm # once (45µs+13.2ms) by MooseX::Clone::BEGIN@10 at line 113 of MooseX/Clone/Meta/Attribute/Trait/Clone.pm # once (46µs+13.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 63 of MooseX/Clone.pm # once (47µs+12.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 40 of Data/Stream/Bulk/Nil.pm # once (46µs+12.7ms) by MooseX::Clone::BEGIN@12 at line 31 of MooseX/Clone/Meta/Attribute/Trait/NoClone.pm # once (44µs+12.7ms) 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 14 of KiokuDB/TypeMap/Entry/Std/ID.pm # once (45µs+12.6ms) by KiokuDB::TypeMap::BEGIN@9 at line 12 of KiokuDB/TypeMap/Entry.pm # once (47µs+12.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 82 of Data/Stream/Bulk.pm # once (70µs+12.5ms) 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 26 of MooseX/Clone/Meta/Attribute/Trait/Clone/Std.pm # once (44µs+12.5ms) 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 38 of KiokuDB/TypeMap/Entry/Std/Compile.pm # once (49µs+12.5ms) by KiokuDB::LiveObjects::BEGIN@1 at line 354 of Devel/PartialDump.pm # once (43µs+12.5ms) 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 12 of KiokuDB/Role/TypeMap.pm # once (44µs+12.5ms) 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 51 of KiokuDB/TypeMap/Entry/Std/Expand.pm # once (43µs+12.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 53 of KiokuDB/Role/API.pm # once (45µs+11.8ms) by KiokuDB::LiveObjects::BEGIN@14 at line 59 of KiokuDB/LiveObjects/TXNScope.pm # once (46µs+11.7ms) by KiokuDB::BEGIN@16 at line 121 of KiokuDB/TypeMap/Resolver.pm # once (48µs+11.6ms) by KiokuDB::Collapser::BEGIN@15 at line 235 of KiokuDB/Collapser/Buffer.pm # once (43µs+11.0ms) by KiokuDB::TypeMap::Entry::Std::BEGIN@6 at line 30 of KiokuDB/TypeMap/Entry/Compiled.pm # once (44µs+10.9ms) by KiokuDB::LiveObjects::BEGIN@13 at line 64 of KiokuDB/LiveObjects/Scope.pm # once (43µs+10.9ms) by KiokuDB::TypeMap::BEGIN@10 at line 18 of KiokuDB/TypeMap/Entry/Alias.pm # once (47µs+10.8ms) by KiokuDB::Collapser::BEGIN@16 at line 31 of KiokuDB/Error/UnknownObjects.pm # once (44µs+10.8ms) by KiokuDB::BEGIN@15 at line 32 of KiokuDB/TypeMap/Shadow.pm # once (50µs+10.7ms) by KiokuDB::BEGIN@17 at line 83 of KiokuDB/Stream/Objects.pm # once (43µs+10.7ms) 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 58 of Data/Stream/Bulk/Cat.pm # once (45µs+10.7ms) 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 43 of Data/Stream/Bulk/Filter.pm # once (44µs+10.7ms) by KiokuDB::TypeMap::Entry::MOP::BEGIN@9 at line 55 of KiokuDB/Thunk.pm # once (44µs+10.6ms) by KiokuDB::Linker::BEGIN@18 at line 43 of KiokuDB/Error/MissingObjects.pm # once (43µs+10.6ms) by KiokuDB::Collapser::BEGIN@13 at line 31 of KiokuDB/Entry/Skip.pm # once (46µs+10.5ms) by KiokuDB::Collapser::BEGIN@14 at line 43 of KiokuDB/Reference.pm # once (43µs+1.11ms) by KiokuDB::LiveObjects::BEGIN@7 at line 35 of KiokuDB/LiveObjects/Guard.pm
free => sub { $_->() for @{ $_[1] }; () };
# spent 625ms making 46 calls to namespace::clean::__ANON__[namespace/clean.pm:110], avg 13.6ms/call # spent 149µs making 1 call to Variable::Magic::wizard
27
28
# spent 4.21ms (2.05+2.16) within B::Hooks::EndOfScope::on_scope_end which was called 46 times, avg 92µs/call: # 46 times (2.05ms+2.16ms) by namespace::clean::import at line 110 of namespace/clean.pm, avg 92µs/call
sub on_scope_end (&) {
291381.83ms my $cb = shift;
30
31 $^H |= 0x020000;
32
3346873µs46323µs if (my $stack = Variable::Magic::getdata %^H, $wiz) {
# spent 323µs making 46 calls to Variable::Magic::getdata, avg 7µs/call
34 push @{ $stack }, $cb;
35 }
36 else {
371715µs922.35ms Variable::Magic::cast %^H, $wiz, $cb;
# spent 1.84ms making 46 calls to Variable::Magic::cast, avg 40µs/call # spent 510µs making 46 calls to B::Hooks::EndOfScope::__ANON__[B/Hooks/EndOfScope.pm:25], avg 11µs/call
38 }
39 }
40}
41
42
43115µs1;
44
45__END__
Report produced by the NYTProf 4.04 Perl profiler, developed by Tim Bunce and Adam Kaplan.