package TestApp;
use strict;
use warnings;
use Catalyst qw[Static];
use File::Spec::Functions qw[catpath splitpath rel2abs];
__PACKAGE__->config(
root => rel2abs( catpath( ( splitpath($0) )[0,1], '' ) )
);
__PACKAGE__->setup();
1;
package TestApp;
use strict;
use warnings;
use Catalyst qw[Static];
use File::Spec::Functions qw[catpath splitpath rel2abs];
__PACKAGE__->config(
root => rel2abs( catpath( ( splitpath($0) )[0,1], '' ) )
);
__PACKAGE__->setup();
1;