X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestLogger.pm;h=87e9213c56a2f33399eb699f19e43a5d71eaa643;hb=058e4074653139386299c58678cd852d10060056;hp=f1dc7e613f676992ce5b505dd297f26da128d8ad;hpb=550464108eada19dba470ec5d17fc849399fdab0;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/TestLogger.pm b/t/lib/TestLogger.pm index f1dc7e6..87e9213 100644 --- a/t/lib/TestLogger.pm +++ b/t/lib/TestLogger.pm @@ -3,6 +3,7 @@ use strict; use warnings; our @LOGS; +our @ILOGS; our @ELOGS; sub new { @@ -14,10 +15,16 @@ sub debug { push(@LOGS, shift()); } +sub info { + shift; + push(@ILOGS, shift()); +} + sub warn { shift; push(@ELOGS, shift()); } +sub error { die "Got unexpected error; $_[1]" } 1;