t/lib/TestAppPathBug.pm

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