[Bps-public-commit] r9906 - in bpsbuilder/BPB/lib/BPB: .

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Dec 12 04:34:09 2007
New Revision: 9906

Modified:
   bpsbuilder/BPB/lib/BPB/Script.pm
   bpsbuilder/BPB/lib/BPB/Script/Initialize.pm

Log:
better cli for initialize, and alias it to create

Modified: bpsbuilder/BPB/lib/BPB/Script.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Script.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Script.pm	Wed Dec 12 04:34:09 2007
@@ -5,7 +5,7 @@
 use base qw/App::CLI/;
 
 sub alias {
-    return ( init => "initialize", );
+    return ( create => "initialize", );
 }
 
 1;

Modified: bpsbuilder/BPB/lib/BPB/Script/Initialize.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Script/Initialize.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Script/Initialize.pm	Wed Dec 12 04:34:09 2007
@@ -20,6 +20,8 @@
 
 sub run {
     my $self = shift;
+    my $name = shift;
+    $self->name( $name ) if $name;
     my $bpb = BPB->new( config => $self->config, name => $self->name );
     $bpb->backend->initialize();
 }