use strict;
use warnings;

package TestAppPathBug;
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 {
    my ( $self, $c ) = @_;
    $c->res->body( 'This is the foo method.' );
}

package TestAppPathBug::Log;
use strict;
use warnings;
use base qw/Catalyst::Log/;

sub warn {}

1;