fasterized
Devin Austin [Fri, 17 Jul 2009 01:13:28 +0000 (01:13 +0000)]
lib/Catalyst/Script/Create.pm
lib/Catalyst/Script/Deploy.pm
lib/Catalyst/Script/Test.pm

index 2ff4d58..ed12fd9 100644 (file)
@@ -30,6 +30,8 @@ pod2usage(1) unless $helper->mk_component( $self->app, @ARGV );
 
 }
 
+no Moose;
+__PACKAGE__->meta->make_immutable;
 1;
 
 =head1 NAME
index 79dafe5..7efd59a 100644 (file)
@@ -21,6 +21,7 @@ has conf => (
     isa => 'Str',
     traits => [qw(Getopt)],
     cmd_alias => 'c',
+    documentation => qq{ specify a configuration file to read from }
 );
 
 
@@ -29,7 +30,7 @@ has conf => (
 
 sub usage {
 
-   print "usage: perl script/boyosplace_deploy_schema.pl boyosplace.conf\n";
+   print "usage: perl script/myapp_deploy_schema.pl myapp.conf\n";
    exit;
 
 }
index ae8c352..cd9ed0b 100644 (file)
@@ -34,4 +34,6 @@ sub run {
 
 }
 
+no Moose;
+__PACKAGE__->meta->make_immutable;
 1;