[Catalyst-commits] r11152 - Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t/lib

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-08-18 00:44:37 +0000 (Tue, 18 Aug 2009)
New Revision: 11152

Modified:
   Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t/lib/TestAppPathBug.pm
Log:
Something like this

Modified: Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t/lib/TestAppPathBug.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t/lib/TestAppPathBug.pm	2009-08-17 23:34:59 UTC (rev 11151)
+++ Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t/lib/TestAppPathBug.pm	2009-08-18 00:44:37 UTC (rev 11152)
@@ -2,15 +2,15 @@
 use warnings;
 
 package TestAppPathBug;
-
-BEGIN { $SIG{__WARN__} = sub {}; };
-
+use strict;
+use warnings;
 use Catalyst;
 
 our $VERSION = '0.01';
 
 __PACKAGE__->config( name => 'TestAppPathBug', root => '/some/dir' );
 
+__PACKAGE__->log(TestAppPathBug::Log->new);
 __PACKAGE__->setup;
 
 sub foo : Path {
@@ -18,4 +18,11 @@
     $c->res->body( 'This is the foo method.' );
 }
 
+package TestAppPathBug::Log;
+use strict;
+use warnings;
+use base qw/Catalyst::Log/;
+
+sub warn {}
+
 1;