setting correct return value for components

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

diff --git a/t/lib/TestAppPathBug.pm b/t/lib/TestAppPathBug.pm
index a91b5fe..7ae5f5b 100644 (file)
--- a/t/lib/TestAppPathBug.pm
+++ b/t/lib/TestAppPathBug.pm
@@ -1,21 +1,19 @@
-use strict;
-use warnings;
-
 package TestAppPathBug;
-
-BEGIN { $SIG{__WARN__} = sub {}; };
-
+use Moose;
+extends 'Catalyst';
 use Catalyst;
 
 our $VERSION = '0.01';
 
 __PACKAGE__->config( name => 'TestAppPathBug', root => '/some/dir' );
 
+__PACKAGE__->log(TestAppPathBug::Log->new);
 __PACKAGE__->setup;
 
-sub foo : Path {
-    my ( $self, $c ) = @_;
-    $c->res->body( 'This is the foo method.' );
-}
+package TestAppPathBug::Log;
+use Moose;
+extends 'Catalyst::Log';
+
+sub warn {}
 
 1;