1 package DefaultImportLogger;
3 use base 'Log::Contextual';
4 use Log::Contextual::SimpleLogger;
6 my $logger = DumbLogger2->new;
8 sub default_import { ':log' }
9 sub arg_levels { $_[1] || [qw(lol wut zomg)] }
10 sub arg_logger { $_[1] || $logger }
15 sub new { bless {}, 'DumbLogger2' }
17 sub wut { $var = "[wut] $_[1]\n" }
19 sub lol { $var = "[lol] $_[1]\n" }
21 sub zomg { $var = "[zomg] $_[1]\n" }