← 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:35 2012

Filename/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/namespace/autoclean.pm
StatementsExecuted 43 statements in 1.07ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1111.27ms1.86msnamespace::autoclean::::BEGIN@16namespace::autoclean::BEGIN@16
111316µs2.10msnamespace::autoclean::::BEGIN@14namespace::autoclean::BEGIN@14
111242µs2.12msnamespace::autoclean::::__ANON__[:57]namespace::autoclean::__ANON__[:57]
11156µs107µsnamespace::autoclean::::importnamespace::autoclean::import
11115µs36µsnamespace::autoclean::::BEGIN@13namespace::autoclean::BEGIN@13
11113µs43µsnamespace::autoclean::::BEGIN@15namespace::autoclean::BEGIN@15
11113µs16µsMooseX::Traits::::BEGIN@1 MooseX::Traits::BEGIN@1
1117µs14µsMooseX::Traits::::BEGIN@2.6 MooseX::Traits::BEGIN@2.6
1113µs3µsnamespace::autoclean::::BEGIN@5namespace::autoclean::BEGIN@5
0000s0snamespace::autoclean::::__ANON__[:25]namespace::autoclean::__ANON__[:25]
0000s0snamespace::autoclean::::__ANON__[:26]namespace::autoclean::__ANON__[:26]
0000s0snamespace::autoclean::::__ANON__[:27]namespace::autoclean::__ANON__[:27]
0000s0snamespace::autoclean::::__ANON__[:33]namespace::autoclean::__ANON__[:33]
0000s0snamespace::autoclean::::__ANON__[:51]namespace::autoclean::__ANON__[:51]
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1317µs219µs
# spent 16µs (13+3) within MooseX::Traits::BEGIN@1 which was called: # once (13µs+3µs) by MooseX::Traits::BEGIN@9 at line 1
use strict;
# spent 16µs making 1 call to MooseX::Traits::BEGIN@1 # spent 3µs making 1 call to strict::import
2334µs221µs
# spent 14µs (7+7) within MooseX::Traits::BEGIN@2.6 which was called: # once (7µs+7µs) by MooseX::Traits::BEGIN@9 at line 2
use warnings;
# spent 14µs making 1 call to MooseX::Traits::BEGIN@2.6 # spent 7µs making 1 call to warnings::import
3
4package namespace::autoclean;
5
# spent 3µs within namespace::autoclean::BEGIN@5 which was called: # once (3µs+0s) by MooseX::Traits::BEGIN@9 at line 7
BEGIN {
616µs $namespace::autoclean::AUTHORITY = 'cpan:FLORA';
7175µs13µs}
# spent 3µs making 1 call to namespace::autoclean::BEGIN@5
8{
923µs $namespace::autoclean::VERSION = '0.13';
10}
11# ABSTRACT: Keep imports out of your namespace
12
13348µs257µs
# spent 36µs (15+21) within namespace::autoclean::BEGIN@13 which was called: # once (15µs+21µs) by MooseX::Traits::BEGIN@9 at line 13
use Class::MOP 0.80;
# spent 36µs making 1 call to namespace::autoclean::BEGIN@13 # spent 21µs making 1 call to UNIVERSAL::VERSION
14384µs22.27ms
# spent 2.10ms (316µs+1.78) within namespace::autoclean::BEGIN@14 which was called: # once (316µs+1.78ms) by MooseX::Traits::BEGIN@9 at line 14
use B::Hooks::EndOfScope;
# spent 2.10ms making 1 call to namespace::autoclean::BEGIN@14 # spent 175µs making 1 call to Sub::Exporter::__ANON__[Sub/Exporter.pm:756]
15327µs272µs
# spent 43µs (13+30) within namespace::autoclean::BEGIN@15 which was called: # once (13µs+30µs) by MooseX::Traits::BEGIN@9 at line 15
use List::Util qw( first );
# spent 43µs making 1 call to namespace::autoclean::BEGIN@15 # spent 30µs making 1 call to Exporter::import
163424µs32.07ms
# spent 1.86ms (1.27+594µs) within namespace::autoclean::BEGIN@16 which was called: # once (1.27ms+594µs) by MooseX::Traits::BEGIN@9 at line 16
use namespace::clean 0.20;
# spent 1.86ms making 1 call to namespace::autoclean::BEGIN@16 # spent 188µs making 1 call to namespace::clean::import # spent 20µs making 1 call to UNIVERSAL::VERSION
17
18
19
# spent 107µs (56+52) within namespace::autoclean::import which was called: # once (56µs+52µs) by MooseX::Traits::BEGIN@9 at line 9 of MooseX/Traits.pm
sub import {
20658µs my ($class, %args) = @_;
21
22 my $subcast = sub {
23 my $i = shift;
24 return $i if ref $i eq 'CODE';
25 return sub { $_ =~ $i } if ref $i eq 'Regexp';
26 return sub { $_ eq $i };
27 };
28
29 my $runtest = sub {
30 my ($code, $method_name) = @_;
31 local $_ = $method_name;
32 return $code->();
33 };
34
35 my $cleanee = exists $args{-cleanee} ? $args{-cleanee} : scalar caller;
36
37 my @also = map { $subcast->($_) } (
38 exists $args{-also}
39 ? (ref $args{-also} eq 'ARRAY' ? @{ $args{-also} } : $args{-also})
40 : ()
41 );
42
43
# spent 2.12ms (242µs+1.88) within namespace::autoclean::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/namespace/autoclean.pm:57] which was called: # once (242µs+1.88ms) by B::Hooks::EndOfScope::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/B/Hooks/EndOfScope.pm:26] at line 26 of B/Hooks/EndOfScope.pm
on_scope_end {
4415251µs136µs my $meta = Class::MOP::Class->initialize($cleanee);
# spent 36µs making 1 call to Class::MOP::Class::initialize
4511.47ms my %methods = map { ($_ => 1) } $meta->get_method_list;
# spent 1.47ms making 1 call to Class::MOP::Mixin::HasMethods::get_method_list
46218µs $methods{meta} = 1 if $meta->isa('Moose::Meta::Role') && Moose->VERSION < 0.90;
# spent 14µs making 1 call to UNIVERSAL::VERSION # spent 4µs making 1 call to UNIVERSAL::isa
47 my %extra = ();
48
49 for my $method (keys %methods) {
50 next if exists $extra{$_};
5149µs next unless first { $runtest->($_, $method) } @also;
# spent 9µs making 4 calls to List::Util::first, avg 2µs/call
52 $extra{ $method } = 1;
53 }
54
55150µs my @symbols = keys %{ $meta->get_all_package_symbols('CODE') };
# spent 50µs making 1 call to Class::MOP::Package::get_all_package_symbols
561296µs namespace::clean->clean_subroutines($cleanee, keys %extra, grep { !$methods{$_} } @symbols);
# spent 296µs making 1 call to namespace::clean::clean_subroutines
57152µs };
# spent 52µs making 1 call to B::Hooks::EndOfScope::on_scope_end
58}
59
6018µs1;
61
62132µs138.4ms__END__