← 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/Log/Log4perl/Appender/String.pm
StatementsExecuted 7 statements in 29µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11116µs16µsLog::Log4perl::Appender::String::::newLog::Log4perl::Appender::String::new
0000s0sLog::Log4perl::Appender::String::::logLog::Log4perl::Appender::String::log
0000s0sLog::Log4perl::Appender::String::::stringLog::Log4perl::Appender::String::string
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Log::Log4perl::Appender::String;
218µsour @ISA = qw(Log::Log4perl::Appender);
3
4##################################################
5# Log dispatcher writing to a string buffer
6##################################################
7
8##################################################
9
# spent 16µs within Log::Log4perl::Appender::String::new which was called: # once (16µs+0s) by Log::Log4perl::Appender::new at line 80 of Log/Log4perl/Appender.pm
sub new {
10##################################################
11518µs my $proto = shift;
12 my $class = ref $proto || $proto;
13 my %params = @_;
14
15 my $self = {
16 name => "unknown name",
17 string => "",
18 %params,
19 };
20
21 bless $self, $class;
22}
23
24##################################################
25sub log {
26##################################################
27 my $self = shift;
28 my %params = @_;
29
30 $self->{string} .= $params{message};
31}
32
33##################################################
34sub string {
35##################################################
36 my($self, $new) = @_;
37
38 if(defined $new) {
39 $self->{string} = $new;
40 }
41
42 return $self->{string};
43}
44
4512µs1;
46
47__END__