[Bps-public-commit] r13960 - in sd/trunk: .

[sartak at bestpractical.com]

Author: sartak
Date: Thu Jul 10 15:52:37 2008
New Revision: 13960

Modified:
   sd/trunk/   (props changed)
   sd/trunk/lib/App/SD/CLI/Command/Pull.pm

Log:
 r64070 at onn:  sartak | 2008-07-10 15:52:26 -0400
 Don't rebless into our parent class, just override/super "run"


Modified: sd/trunk/lib/App/SD/CLI/Command/Pull.pm
==============================================================================
--- sd/trunk/lib/App/SD/CLI/Command/Pull.pm	(original)
+++ sd/trunk/lib/App/SD/CLI/Command/Pull.pm	Thu Jul 10 15:52:37 2008
@@ -2,17 +2,17 @@
 use Moose;
 extends qw/App::SD::CLI::Command::Merge/;
 
-sub run {
+override run => sub {
     my $self = shift;
 
     die "Please specify a --from.\n" if !defined($self->args->{'from'});
 
     local $ENV{PROPHET_RESOLVER} = 'Prompt';
-    bless $self, 'App::SD::CLI::Command::Merge';
-    $self->args({  from => $self->args->{'from'},
-                   to => $self->cli->app_handle->default_replica_type.":file://".$self->cli->app_handle->handle->fs_root });
-    $self->run;
-}
+
+    $self->set_arg(to => $self->cli->app_handle->default_replica_type.":file://".$self->cli->app_handle->handle->fs_root);
+
+    super();
+};
 
 __PACKAGE__->meta->make_immutable;
 no Moose;