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

package TestLogger;
use strict;
use warnings;

our @LOGS;
our @ILOGS;
our @ELOGS;

sub new {
    return bless {}, __PACKAGE__;
}

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

sub info {
    shift;
    push(@ILOGS, shift());
}

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

sub error { die "Got unexpected error; $_[1]" }
1;
Commit	Line	Data
55046410	1	package TestLogger;
	2	use strict;
	3	use warnings;
	4
	5	our @LOGS;
c13f6e7e	6	our @ILOGS;
55046410	7	our @ELOGS;
	8
	9	sub new {
	10	return bless {}, __PACKAGE__;
	11	}
	12
	13	sub debug {
	14	shift;
	15	push(@LOGS, shift());
	16	}
	17
c13f6e7e	18	sub info {
	19	shift;
	20	push(@ILOGS, shift());
	21	}
	22
55046410	23	sub warn {
	24	shift;
	25	push(@ELOGS, shift());
	26	}
	27
9c38cb50	28	sub error { die "Got unexpected error; $_[1]" }
55046410	29	1;
55046410	30