t/play.t

   1 use strict;
   2 use warnings;
   3
   4 use lib 't/lib';
   5 use WarnLogger;
   6 use Log::Contextual;
   7 use Test::More qw(no_plan);
   8
   9 my $logger =  WarnLogger->new;
  10
  11 set_logger { $logger };
  12 log_debug { 'set_logger' };
  13 log_debug { 'simple log 1' };
  14 log_debug { 'simple log 2' };
  15 sleep 1;
  16 log_debug { 'simple log 3' };
  17