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