use IO::File;
use FindBin;
use Template;
-use Catalyst;
use Catalyst::Utils;
use Catalyst::Exception;
sub mk_app {
my ( $self, $name ) = @_;
+
+ # Needs to be here for PAR
+ require Catalyst;
+
return 0 if $name =~ /[^\w\:]/;
$self->{name} = $name;
$self->{dir} = $name;