|
use 5.010001;
sub do {
my $self = shift ;
my $target_name = $self ->validate_target_name( shift @{ $self ->{argv} } );
$self ->setup;
my $config = Enbld::App::Configuration->search_config( $target_name );
my $target = Enbld::Target->new( $target_name , $config );
my $installed = try {
return $target ->upgrade;
} ( 'Enbld::Error' => sub {
Enbld::Message->alert( $@ );
say "\nPlease check build logile:" . Enbld::Logger->logfile;
return ;
}
);
if ( $installed ) {
Enbld::App::Configuration->set_config( $installed );
}
$self ->teardown;
return $installed ;
}
1;
|