t/lib/BaseLogger.pm

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