| 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 | Log::Log4perl::Appender::String::new |
| 0 | 0 | 0 | 0s | 0s | Log::Log4perl::Appender::String::log |
| 0 | 0 | 0 | 0s | 0s | Log::Log4perl::Appender::String::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__ |