[catagits/Catalyst-Plugin-Static-Simple.git] / t / lib / TestLog.pm

package TestLog;
use Moose;
extends 'Catalyst::Log';

our $logged;

override warn => sub {
    my $self = shift;
    $logged = shift;
};

1;
Commit	Line	Data
0dfe2c74	1	package TestLog;
	2	use Moose;
	3	extends 'Catalyst::Log';
	4
	5	our $logged;
	6
	7	override warn => sub {
	8	my $self = shift;
	9	$logged = shift;
	10	};
	11
	12	1;