t/lib/TestAppPathBug.pm

   1 use strict;
   2 use warnings;
   3
   4 package TestAppPathBug;
   5
   6 BEGIN { $SIG{__WARN__} = sub {}; };
   7
   8 use Catalyst;
   9
  10 our $VERSION = '0.01';
  11
  12 __PACKAGE__->config( name => 'TestAppPathBug', root => '/some/dir' );
  13
  14 __PACKAGE__->setup;
  15
  16 sub foo : Path {
  17     my ( $self, $c ) = @_;
  18     $c->res->body( 'This is the foo method.' );
  19 }
  20
  21 1;