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;