← 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/MooseX/Log/Log4perl.pm
StatementsExecuted 12 statements in 427µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1112.49ms27.8msMooseX::Log::Log4perl::::BEGIN@5MooseX::Log::Log4perl::BEGIN@5
1111.04ms8.30msMooseX::Log::Log4perl::::BEGIN@4MooseX::Log::Log4perl::BEGIN@4
11126µs26µsMooseX::Log::Log4perl::::BEGIN@3MooseX::Log::Log4perl::BEGIN@3
0000s0sMooseX::Log::Log4perl::::__ANON__[:13]MooseX::Log::Log4perl::__ANON__[:13]
0000s0sMooseX::Log::Log4perl::::logMooseX::Log::Log4perl::log
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package MooseX::Log::Log4perl;
2
3335µs126µs
# spent 26µs within MooseX::Log::Log4perl::BEGIN@3 which was called: # once (26µs+0s) by Module::Runtime::require_module at line 3
use 5.008;
# spent 26µs making 1 call to MooseX::Log::Log4perl::BEGIN@3
43114µs215.5ms
# spent 8.30ms (1.04+7.25) within MooseX::Log::Log4perl::BEGIN@4 which was called: # once (1.04ms+7.25ms) by Module::Runtime::require_module at line 4
use Any::Moose 'Role';
# spent 8.30ms making 1 call to MooseX::Log::Log4perl::BEGIN@4 # spent 7.15ms making 1 call to Any::Moose::import
53268µs227.8ms
# spent 27.8ms (2.49+25.3) within MooseX::Log::Log4perl::BEGIN@5 which was called: # once (2.49ms+25.3ms) by Module::Runtime::require_module at line 5
use Log::Log4perl;
# spent 27.8ms making 1 call to MooseX::Log::Log4perl::BEGIN@5 # spent 9µs making 1 call to Log::Log4perl::import
6
71500nsour $VERSION = '0.45';
8
9has 'logger' => (
10 is => 'rw',
11 isa => 'Log::Log4perl::Logger',
12 lazy => 1,
13 default => sub { return Log::Log4perl->get_logger(ref($_[0])) }
1415µs1262µs);
# spent 262µs making 1 call to Moose::Role::has
15
16sub log {
17 my $self = shift;
18 my $cat = shift;
19 if ($cat && $cat =~ m/^(\.|::)/) {
20 return Log::Log4perl->get_logger(ref($self) . $cat);
21 } elsif($cat) {
22 return Log::Log4perl->get_logger($cat);
23 } else {
24 return $self->logger;
25 }
26}
27
2814µs1;
29
30__END__