acb6d8ddc7c0058bb0ae197b8489de27a8ad7292
[p5sagit/Log-Contextual.git] / t / lib / DefaultImportLogger.pm
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' }
9 sub arg_levels     { $_[1] || [qw(lol wut zomg)] }
10 sub arg_logger     { $_[1] || $logger }
11
12 package DumbLogger2;
13
14 our $var;
15 sub new { bless {}, 'DumbLogger2' }
16 sub is_wut  { 1 }
17 sub wut     { $var = "[wut] $_[1]\n" }
18 sub is_lol  { 1 }
19 sub lol     { $var = "[lol] $_[1]\n" }
20 sub is_zomg { 1 }
21 sub zomg    { $var = "[zomg] $_[1]\n" }
22
23 1;