Filename | /2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/Log/Log4perl/Appender/String.pm |
Statements | Executed 7 statements in 29µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 16µs | 16µs | new | Log::Log4perl::Appender::String::
0 | 0 | 0 | 0s | 0s | log | Log::Log4perl::Appender::String::
0 | 0 | 0 | 0s | 0s | string | Log::Log4perl::Appender::String::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package Log::Log4perl::Appender::String; | ||||
2 | 1 | 8µs | our @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 | ||||
10 | ################################################## | ||||
11 | 5 | 18µ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 | ################################################## | ||||
25 | sub log { | ||||
26 | ################################################## | ||||
27 | my $self = shift; | ||||
28 | my %params = @_; | ||||
29 | |||||
30 | $self->{string} .= $params{message}; | ||||
31 | } | ||||
32 | |||||
33 | ################################################## | ||||
34 | sub string { | ||||
35 | ################################################## | ||||
36 | my($self, $new) = @_; | ||||
37 | |||||
38 | if(defined $new) { | ||||
39 | $self->{string} = $new; | ||||
40 | } | ||||
41 | |||||
42 | return $self->{string}; | ||||
43 | } | ||||
44 | |||||
45 | 1 | 2µs | 1; | ||
46 | |||||
47 | __END__ |