t/lib/TestAppPathBug.pm

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