[Catalyst-commits] r7000 - trunk/Catalyst-View-Mason/t/lib/TestApp

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2007-10-15 15:38:18 +0100 (Mon, 15 Oct 2007)
New Revision: 7000

Modified:
   trunk/Catalyst-View-Mason/t/lib/TestApp/FakeLog.pm
Log:
Make TestApp::FakeLog mock all of the Catalyst::Log api.


Modified: trunk/Catalyst-View-Mason/t/lib/TestApp/FakeLog.pm
===================================================================
--- trunk/Catalyst-View-Mason/t/lib/TestApp/FakeLog.pm	2007-10-15 14:38:09 UTC (rev 6999)
+++ trunk/Catalyst-View-Mason/t/lib/TestApp/FakeLog.pm	2007-10-15 14:38:18 UTC (rev 7000)
@@ -19,4 +19,6 @@
     push @{ $self->{_warnings_ref} }, $msg;
 }
 
+*debug = *info = *error = *fatal = *is_debug = sub { 1 };
+
 1;