[catagits/Catalyst-Runtime.git] / t / lib / TestLogger.pm

package TestLogger;
use strict;
use warnings;

our @LOGS;
our @ELOGS;

sub new {
    return bless {}, __PACKAGE__;
}

sub debug {
    shift;
    push(@LOGS, shift());
}

sub warn {
    shift;
    push(@ELOGS, shift());
}

1;
Commit	Line	Data
55046410	1	package TestLogger;
	2	use strict;
	3	use warnings;
	4
	5	our @LOGS;
	6	our @ELOGS;
	7
	8	sub new {
	9	return bless {}, __PACKAGE__;
	10	}
	11
	12	sub debug {
	13	shift;
	14	push(@LOGS, shift());
	15	}
	16
	17	sub warn {
	18	shift;
	19	push(@ELOGS, shift());
	20	}
	21
	22	1;
	23