File Coverage

blib/lib/Footprintless/CommandOptionsFactory.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	8	10	80.0
condition	9	11	81.8
subroutine	8	8	100.0
pod	2	2	100.0
total	55	59	93.2

use strict;
use warnings;

package Footprintless::CommandOptionsFactory;
$Footprintless::CommandOptionsFactory::VERSION = '1.28';
# ABSTRACT: A factory for creating command options
# PODNAME: Footprintless::CommandOptionsFactory

use Carp;
use Footprintless::Localhost;
use Footprintless::Command;

sub new {
    return bless( {}, shift )->_init(@_);
}

sub command_options {
    my ( $self, %options ) = @_;

    $options{ssh} = $self->{default_ssh} unless ( $options{ssh} );
    delete( $options{sudo_username} ) unless ( $options{sudo_username} );
    delete( $options{sudo_command} )  unless ( $options{sudo_command} );
    delete( $options{username} )      unless ( $options{username} );
    if (   $self->{localhost}
        && $options{hostname}
        && $self->{localhost}->is_alias( $options{hostname} ) )
    {
        delete( $options{hostname} );
    }

    return Footprintless::Command::command_options(%options);
}

sub _init {
    my ( $self, %options ) = @_;

    $self->{localhost} = $options{localhost}
        || Footprintless::Localhost->new()->load_all();
    $self->{default_ssh} = $options{default_ssh} || 'ssh -q';

    return $self;
}

1;

__END__