t/log.t

   1 use strict;
   2 use warnings;
   3
   4 use Log::Contextual;
   5 use Test::More qw(no_plan);
   6 my $logger = sub { WarnLogger->new };
   7
   8 set_logger($logger);
   9 log_debug { 'frew!' };
  10
  11
  12
  13 BEGIN {
  14    package WarnLogger;
  15    sub debug { warn $_[1] }
  16    sub is_debug { 1 }
  17    sub new { bless {}, __PACKAGE__ }
  18 }