Profile of B/Hooks/EndOfScope.pm

← Index
NYTProf Performance Profile «block view•line view•sub view»
For xt/tapper-mcp-scheduler-with-db-longrun.t
Run on Tue May 22 17:18:39 2012
Reported on Tue May 22 17:22:57 2012

Filename | /2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/B/Hooks/EndOfScope.pm
Statements | Executed 292 statements in 1.47ms

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 632µs | 1.10ms | B::Hooks::EndOfScope::::BEGIN@14B::Hooks::EndOfScope::BEGIN@14
29 | 29 | 29 | 364µs | 50.3ms | B::Hooks::EndOfScope::::__ANON__[:26]B::Hooks::EndOfScope::__ANON__[:26]
42 | 3 | 2 | 364µs | 718µs | B::Hooks::EndOfScope::::on_scope_endB::Hooks::EndOfScope::on_scope_end
29 | 1 | 1 | 82µs | 82µs | B::Hooks::EndOfScope::::__ANON__[:25]B::Hooks::EndOfScope::__ANON__[:25]
1 | 1 | 1 | 21µs | 21µs | B::Hooks::EndOfScope::::BEGIN@13B::Hooks::EndOfScope::BEGIN@13
1 | 1 | 1 | 13µs | 405µs | B::Hooks::EndOfScope::::BEGIN@16B::Hooks::EndOfScope::BEGIN@16
1 | 1 | 1 | 11µs | 13µs | namespace::autoclean::::BEGIN@1namespace::autoclean::BEGIN@1
1 | 1 | 1 | 7µs | 14µs | namespace::autoclean::::BEGIN@2namespace::autoclean::BEGIN@2
1 | 1 | 1 | 4µs | 4µs | B::Hooks::EndOfScope::::BEGIN@5B::Hooks::EndOfScope::BEGIN@5

Call graph for these subroutines as a Graphviz dot language file.

Line | State ments | Time on line | Calls | Time in subs | Code
--- | --- | --- | --- | --- | ---
1 | 3 | 16µs | 2 | 15µs | # spent 13µs (11+2) within namespace::autoclean::BEGIN@1 which was called: # once (11µs+2µs) by namespace::autoclean::BEGIN@14 at line 1 use strict; # spent 13µs making 1 call to namespace::autoclean::BEGIN@1 # spent 2µs making 1 call to strict::import
2 | 3 | 36µs | 2 | 21µs | # spent 14µs (7+7) within namespace::autoclean::BEGIN@2 which was called: # once (7µs+7µs) by namespace::autoclean::BEGIN@14 at line 2 use warnings; # spent 14µs making 1 call to namespace::autoclean::BEGIN@2 # spent 7µs making 1 call to warnings::import
3 |  |  |  |  |
4 |  |  |  |  | package B::Hooks::EndOfScope;
5 |  |  |  |  | # spent 4µs within B::Hooks::EndOfScope::BEGIN@5 which was called: # once (4µs+0s) by namespace::autoclean::BEGIN@14 at line 7 BEGIN {
6 | 1 | 4µs |  |  | $B::Hooks::EndOfScope::AUTHORITY = 'cpan:FLORA';
7 | 1 | 22µs | 1 | 4µs | } # spent 4µs making 1 call to B::Hooks::EndOfScope::BEGIN@5
8 |  |  |  |  | {
9 | 2 | 1µs |  |  | $B::Hooks::EndOfScope::VERSION = '0.11';
10 |  |  |  |  | }
11 |  |  |  |  | # ABSTRACT: Execute code after a scope finished compilation
12 |  |  |  |  |
13 | 3 | 36µs | 1 | 21µs | # spent 21µs within B::Hooks::EndOfScope::BEGIN@13 which was called: # once (21µs+0s) by namespace::autoclean::BEGIN@14 at line 13 use 5.008000; # spent 21µs making 1 call to B::Hooks::EndOfScope::BEGIN@13
14 | 3 | 115µs | 3 | 1.14ms | # spent 1.10ms (632µs+471µs) within B::Hooks::EndOfScope::BEGIN@14 which was called: # once (632µs+471µs) by namespace::autoclean::BEGIN@14 at line 14 use Variable::Magic 0.48; # spent 1.10ms making 1 call to B::Hooks::EndOfScope::BEGIN@14 # spent 24µs making 1 call to Exporter::import # spent 17µs making 1 call to UNIVERSAL::VERSION
15 |  |  |  |  |
16 |  |  | 1 | 392µs | # spent 405µs (13+392) within B::Hooks::EndOfScope::BEGIN@16 which was called: # once (13µs+392µs) by namespace::autoclean::BEGIN@14 at line 19 use Sub::Exporter -setup => { # spent 392µs making 1 call to Sub::Exporter::__ANON__[Sub/Exporter.pm:756]
17 |  |  |  |  | exports => ['on_scope_end'],
18 |  |  |  |  | groups => { default => ['on_scope_end'] },
19 | 3 | 148µs | 1 | 405µs | }; # spent 405µs making 1 call to B::Hooks::EndOfScope::BEGIN@16
20 |  |  |  |  |
- - |  |  |  |  |
23 |  |  |  |  | {
24 | 1 | 500ns |  |  | my $wiz = Variable::Magic::wizard
25 | 29 | 112µs |  |  | # spent 82µs within B::Hooks::EndOfScope::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/B/Hooks/EndOfScope.pm:25] which was called 29 times, avg 3µs/call: # 29 times (82µs+0s) by Variable::Magic::cast at line 44, avg 3µs/call data => sub { [$_[1]] },
26 | 87 | 351µs | 42 | 49.9ms | # spent 50.3ms (364µs+49.9) within B::Hooks::EndOfScope::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/B/Hooks/EndOfScope.pm:26] which was called 29 times, avg 1.73ms/call: # once (21µs+38.4ms) by MooseX::Traits::BEGIN@9 at line 62 of namespace/autoclean.pm # once (23µs+2.12ms) by Module::Runtime::require_module at line 90 of MooseX/Traits.pm # once (20µs+739µs) by Class::C3::Componentised::ensure_class_loaded at line 2965 of DBIx/Class/Storage/DBI.pm # once (19µs+636µs) by Class::C3::Componentised::ensure_class_loaded at line 2034 of DBIx/Class/ResultSource.pm # once (13µs+607µs) by SQL::Translator::load at line 487 of SQL/Translator/Parser/DBIx/Class.pm # once (19µs+600µs) by DBIx::Class::ResultSource::Table::BEGIN@6 at line 4170 of DBIx/Class/ResultSet.pm # once (14µs+582µs) by parent::import at line 1543 of DBIx/Class/Schema.pm # once (13µs+548µs) by DBIx::Class::Storage::BEGIN@17 at line 172 of DBIx/Class/Storage/TxnScopeGuard.pm # once (15µs+541µs) by base::import at line 712 of DBIx/Class/Storage.pm # once (15µs+462µs) by Class::C3::Componentised::ensure_class_loaded at line 767 of DBIx/Class/Schema/Versioned.pm # once (13µs+399µs) by Class::C3::Componentised::ensure_class_loaded at line 252 of DBIx/Class/InflateColumn/DateTime.pm # once (11µs+398µs) by Class::C3::Componentised::ensure_class_loaded at line 102 of DBIx/Class/Relationship/HasOne.pm # once (15µs+394µs) by base::import at line 1493 of DBIx/Class/Row.pm # once (13µs+350µs) by Class::C3::Componentised::ensure_class_loaded at line 183 of DBIx/Class/Storage/DBI/SQLite.pm # once (11µs+343µs) by Class::C3::Componentised::ensure_class_loaded at line 151 of DBIx/Class/Relationship/ManyToMany.pm # once (17µs+316µs) by base::import at line 550 of DBIx/Class/SQLMaker.pm # once (9µs+299µs) by Class::C3::Componentised::ensure_class_loaded at line 842 of DBIx/Class/Relationship/Base.pm # once (10µs+233µs) by base::import at line 77 of DBIx/Class/Componentised.pm # once (9µs+227µs) by DBIx::Class::ResultSet::BEGIN@8 at line 491 of DBIx/Class/ResultSetColumn.pm # once (9µs+225µs) by base::import at line 679 of DBIx/Class/Storage/DBIHacks.pm # once (9µs+218µs) by Class::C3::Componentised::ensure_class_loaded at line 77 of DBIx/Class/Relationship/CascadeActions.pm # once (9µs+206µs) by Class::C3::Componentised::ensure_class_loaded at line 186 of DBIx/Class/Storage/DBI/Cursor.pm # once (8µs+203µs) by Class::C3::Componentised::ensure_class_loaded at line 63 of DBIx/Class/Relationship/HasMany.pm # once (8µs+200µs) by DBIx::Class::ResultSource::BEGIN@7 at line 139 of DBIx/Class/ResultSourceHandle.pm # once (6µs+179µs) by Class::C3::Componentised::ensure_class_loaded at line 106 of DBIx/Class/Relationship/BelongsTo.pm # once (13µs+145µs) by base::import at line 814 of DBIx/Class/SQLMaker/LimitDialects.pm # once (8µs+150µs) by base::import at line 90 of DBIx/Class/ResultSourceProxy.pm # once (8µs+103µs) by base::import at line 53 of DBIx/Class/AccessorGroup.pm # once (8µs+98µs) by Class::C3::Componentised::ensure_class_loaded at line 142 of DBIx/Class/ResultSourceProxy/Table.pm free => sub { $_->() for @{ $_[1] }; () }, # spent 44.1ms making 25 calls to namespace::clean::__ANON__[namespace/clean.pm:338], avg 1.76ms/call # spent 3.71ms making 16 calls to namespace::clean::__ANON__[namespace/clean.pm:311], avg 232µs/call # spent 2.12ms making 1 call to namespace::autoclean::__ANON__[namespace/autoclean.pm:57]
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 ourselfs 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 | 4µs | 1 | 45µs | local => \undef; # spent 45µs making 1 call to Variable::Magic::wizard
34 |  |  |  |  |
35 |  |  |  |  | # spent 718µs (364+354) within B::Hooks::EndOfScope::on_scope_end which was called 42 times, avg 17µs/call: # 25 times (196µs+159µs) by namespace::clean::import at line 338 of namespace/clean.pm, avg 14µs/call # 16 times (142µs+169µs) by namespace::clean::import at line 308 of namespace/clean.pm, avg 19µs/call # once (26µs+26µs) by namespace::autoclean::import at line 57 of namespace/autoclean.pm sub on_scope_end (&) {
36 | 126 | 352µs |  |  | my $cb = shift;
37 |  |  |  |  |
38 |  |  |  |  | $^H |= 0x020000;
39 |  |  |  |  |
40 | 29 | 143µs | 42 | 70µs | if (my $stack = Variable::Magic::getdata %^H, $wiz) { # spent 70µs making 42 calls to Variable::Magic::getdata, avg 2µs/call
41 |  |  |  |  | push @{ $stack }, $cb;
42 |  |  |  |  | }
43 |  |  |  |  | else {
44 | 1 | 123µs | 58 | 367µs | Variable::Magic::cast %^H, $wiz, $cb; # spent 284µs making 29 calls to Variable::Magic::cast, avg 10µs/call # spent 82µs making 29 calls to B::Hooks::EndOfScope::__ANON__[B/Hooks/EndOfScope.pm:25], avg 3µs/call
45 |  |  |  |  | }
46 |  |  |  |  | }
47 |  |  |  |  | }
48 |  |  |  |  |
49 |  |  |  |  |
50 | 1 | 4µs |  |  | 1;
51 |  |  |  |  |
52 |  |  |  |  | __END__