File Coverage

blib/lib/Footprintless/App/Command/deployment/deploy.pm

Criterion	Covered	Total	%
statement	26	28	92.8
branch	2	4	50.0
condition			n/a
subroutine	9	9	100.0
pod	4	4	100.0
total	41	45	91.1

use strict;
use warnings;

package Footprintless::App::Command::deployment::deploy;
$Footprintless::App::Command::deployment::deploy::VERSION = '1.28';
# ABSTRACT: deploys all files managed by the deployment
# PODNAME: Footprintless::App::Command::deployment::deploy

use parent qw(Footprintless::App::Action);

use Footprintless::App -ignore;
use Log::Any;

my $logger = Log::Any->get_logger();

sub execute {
    my ( $self, $opts, $args ) = @_;

    if ( $opts->{clean} ) {
        $logger->info('Performing clean...');
        $self->{deployment}->clean();
    }
    $logger->info('Performing deploy...');
    $self->{deployment}->deploy();

    $logger->info('Done...');
}

sub opt_spec {
    return ( [ "clean", "will cause clean to be run before deploy" ] );
}

sub usage_desc {
    return "fpl deployment DEPLOYMENT_COORD deploy %o";
}

sub validate_args {
    my ( $self, $opts, $args ) = @_;

    eval { $self->{deployment} = $self->{footprintless}->deployment( $self->{coordinate} ); };

    $self->usage_error("invalid coordinate [$self->{coordinate}]: $@") if ($@);
}

1;

__END__