← 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:23:40 2012

Filename/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/Log/Log4perl/Layout/PatternLayout/Multiline.pm
StatementsExecuted 4 statements in 78µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11116µs93µsLog::Log4perl::Layout::PatternLayout::Multiline::::BEGIN@4Log::Log4perl::Layout::PatternLayout::Multiline::BEGIN@4
0000s0sLog::Log4perl::Layout::PatternLayout::Multiline::::renderLog::Log4perl::Layout::PatternLayout::Multiline::render
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1#!/usr/bin/perl
2
3package Log::Log4perl::Layout::PatternLayout::Multiline;
4377µs293µs
# spent 93µs (16+77) within Log::Log4perl::Layout::PatternLayout::Multiline::BEGIN@4 which was called: # once (16µs+77µs) by Log::Log4perl::Layout::BEGIN@6 at line 4
use base qw(Log::Log4perl::Layout::PatternLayout);
# spent 93µs making 1 call to Log::Log4perl::Layout::PatternLayout::Multiline::BEGIN@4 # spent 77µs making 1 call to base::import, recursion: max depth 1, sum of overlapping time 77µs
5
6###########################################
7sub render {
8###########################################
9 my($self, $message, $category, $priority, $caller_level) = @_;
10
11 my @messages = split /\r?\n/, $message;
12
13 $caller_level = 0 unless defined $caller_level;
14
15 my $result = '';
16
17 for my $msg ( @messages ) {
18 $result .= $self->SUPER::render(
19 $msg, $category, $priority, $caller_level + 1
20 );
21 }
22 return $result;
23}
24
2512µs1;
26
27__END__