Filename | /2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/Log/Log4perl/Layout/SimpleLayout.pm |
Statements | Executed 19 statements in 201µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 24µs | 24µs | BEGIN@8 | Log::Log4perl::Layout::SimpleLayout::
1 | 1 | 1 | 10µs | 84µs | BEGIN@14 | Log::Log4perl::Layout::SimpleLayout::
1 | 1 | 1 | 7µs | 49µs | BEGIN@11 | Log::Log4perl::Layout::SimpleLayout::
1 | 1 | 1 | 7µs | 18µs | BEGIN@10 | Log::Log4perl::Layout::SimpleLayout::
1 | 1 | 1 | 7µs | 10µs | BEGIN@9 | Log::Log4perl::Layout::SimpleLayout::
1 | 1 | 1 | 7µs | 16µs | BEGIN@13 | Log::Log4perl::Layout::SimpleLayout::
0 | 0 | 0 | 0s | 0s | new | Log::Log4perl::Layout::SimpleLayout::
0 | 0 | 0 | 0s | 0s | render | Log::Log4perl::Layout::SimpleLayout::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | ################################################## | ||||
2 | package Log::Log4perl::Layout::SimpleLayout; | ||||
3 | ################################################## | ||||
4 | # as documented in | ||||
5 | # http://jakarta.apache.org/log4j/docs/api/org/apache/log4j/SimpleLayout.html | ||||
6 | ################################################## | ||||
7 | |||||
8 | 3 | 33µs | 1 | 24µs | # spent 24µs within Log::Log4perl::Layout::SimpleLayout::BEGIN@8 which was called:
# once (24µs+0s) by Log::Log4perl::Layout::BEGIN@4 at line 8 # spent 24µs making 1 call to Log::Log4perl::Layout::SimpleLayout::BEGIN@8 |
9 | 3 | 17µs | 2 | 12µs | # spent 10µs (7+3) within Log::Log4perl::Layout::SimpleLayout::BEGIN@9 which was called:
# once (7µs+3µs) by Log::Log4perl::Layout::BEGIN@4 at line 9 # spent 10µs making 1 call to Log::Log4perl::Layout::SimpleLayout::BEGIN@9
# spent 2µs making 1 call to strict::import |
10 | 3 | 20µs | 2 | 30µs | # spent 18µs (7+11) within Log::Log4perl::Layout::SimpleLayout::BEGIN@10 which was called:
# once (7µs+11µs) by Log::Log4perl::Layout::BEGIN@4 at line 10 # spent 18µs making 1 call to Log::Log4perl::Layout::SimpleLayout::BEGIN@10
# spent 11µs making 1 call to warnings::import |
11 | 3 | 20µs | 2 | 91µs | # spent 49µs (7+42) within Log::Log4perl::Layout::SimpleLayout::BEGIN@11 which was called:
# once (7µs+42µs) by Log::Log4perl::Layout::BEGIN@4 at line 11 # spent 49µs making 1 call to Log::Log4perl::Layout::SimpleLayout::BEGIN@11
# spent 42µs making 1 call to Log::Log4perl::Level::import |
12 | |||||
13 | 3 | 24µs | 2 | 25µs | # spent 16µs (7+9) within Log::Log4perl::Layout::SimpleLayout::BEGIN@13 which was called:
# once (7µs+9µs) by Log::Log4perl::Layout::BEGIN@4 at line 13 # spent 16µs making 1 call to Log::Log4perl::Layout::SimpleLayout::BEGIN@13
# spent 9µs making 1 call to strict::unimport |
14 | 3 | 86µs | 2 | 84µs | # spent 84µs (10+74) within Log::Log4perl::Layout::SimpleLayout::BEGIN@14 which was called:
# once (10µs+74µs) by Log::Log4perl::Layout::BEGIN@4 at line 14 # spent 84µs making 1 call to Log::Log4perl::Layout::SimpleLayout::BEGIN@14
# spent 74µs making 1 call to base::import, recursion: max depth 1, sum of overlapping time 74µs |
15 | |||||
16 | ################################################## | ||||
17 | sub new { | ||||
18 | ################################################## | ||||
19 | my $class = shift; | ||||
20 | $class = ref ($class) || $class; | ||||
21 | |||||
22 | my $self = { | ||||
23 | format => undef, | ||||
24 | info_needed => {}, | ||||
25 | stack => [], | ||||
26 | }; | ||||
27 | |||||
28 | bless $self, $class; | ||||
29 | |||||
30 | return $self; | ||||
31 | } | ||||
32 | |||||
33 | ################################################## | ||||
34 | sub render { | ||||
35 | ################################################## | ||||
36 | my($self, $message, $category, $priority, $caller_level) = @_; | ||||
37 | |||||
38 | return "$priority - $message\n"; | ||||
39 | } | ||||
40 | |||||
41 | 1 | 2µs | 1; | ||
42 | |||||
43 | __END__ |