[p5sagit/Log-Contextual.git] / t / log.t

use strict;
use warnings;

use Log::Contextual;
use Test::More qw(no_plan);
my $logger = sub { WarnLogger->new };

set_logger($logger);
log_debug { 'frew!' };


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