[p5sagit/Log-Contextual.git] / t / lib / BaseLogger.pm

package BaseLogger;

use base 'Log::Contextual';
use Log::Contextual::SimpleLogger;

my $logger = DumbLogger2->new;

sub arg_levels { $_[1] || [qw(lol wut zomg)] }
sub arg_logger { $_[1] || $logger }

package DumbLogger2;

our $var;
sub new { bless {}, 'DumbLogger2' }
sub is_wut { 1 }
sub wut { $var = "[wut] $_[1]\n" }
sub is_lol { 1 }
sub lol { $var = "[lol] $_[1]\n" }
sub is_zomg { 1 }
sub zomg { $var = "[zomg] $_[1]\n" }

1;
Commit	Line	Data
ae70ebea	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	package DumbLogger2;
	12
	13	our $var;
	14	sub new { bless {}, 'DumbLogger2' }
	15	sub is_wut { 1 }
	16	sub wut { $var = "[wut] $_[1]\n" }
	17	sub is_lol { 1 }
	18	sub lol { $var = "[lol] $_[1]\n" }
	19	sub is_zomg { 1 }
	20	sub zomg { $var = "[zomg] $_[1]\n" }
	21
	22	1;