Commit | Line | Data |
e06303cd |
1 | package DefaultImportLogger; |
2 | |
3 | use base 'Log::Contextual'; |
4 | use Log::Contextual::SimpleLogger; |
5 | |
6 | my $logger = DumbLogger2->new; |
7 | |
8 | sub default_import { ':log' } |
489f71b2 |
9 | sub arg_levels { $_[1] || [qw(lol wut zomg)] } |
10 | sub arg_logger { $_[1] || $logger } |
e06303cd |
11 | |
12 | package DumbLogger2; |
13 | |
14 | our $var; |
15 | sub new { bless {}, 'DumbLogger2' } |
489f71b2 |
16 | sub is_wut { 1 } |
17 | sub wut { $var = "[wut] $_[1]\n" } |
18 | sub is_lol { 1 } |
19 | sub lol { $var = "[lol] $_[1]\n" } |
e06303cd |
20 | sub is_zomg { 1 } |
489f71b2 |
21 | sub zomg { $var = "[zomg] $_[1]\n" } |
e06303cd |
22 | |
23 | 1; |