Commit | Line | Data |
ae70ebea |
1 | package BaseLogger; |
2 | |
3 | use base 'Log::Contextual'; |
4 | use Log::Contextual::SimpleLogger; |
5 | |
6 | my $logger = DumbLogger2->new; |
7 | |
8 | sub arg_levels { $_[1] || [qw(lol wut zomg)] } |
9 | sub arg_logger { $_[1] || $logger } |
6ae293d7 |
10 | |
139ded54 |
11 | sub router { |
4d605164 |
12 | our $Router_Instance ||= do { |
13 | require Log::Contextual::Router; |
14 | Log::Contextual::Router->new |
6ae293d7 |
15 | } |
4d605164 |
16 | } |
17 | |
ae70ebea |
18 | package DumbLogger2; |
19 | |
20 | our $var; |
21 | sub new { bless {}, 'DumbLogger2' } |
6ae293d7 |
22 | sub is_wut { 1 } |
23 | sub wut { $var = "[wut] $_[1]\n" } |
24 | sub is_lol { 1 } |
25 | sub lol { $var = "[lol] $_[1]\n" } |
ae70ebea |
26 | sub is_zomg { 1 } |
6ae293d7 |
27 | sub zomg { $var = "[zomg] $_[1]\n" } |
ae70ebea |
28 | |
29 | 1; |