File Coverage

blib/lib/PowerShell/Cmdlet.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	6	8	75.0
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	44	46	95.6

use strict;
use warnings;

package PowerShell::Cmdlet;
$PowerShell::Cmdlet::VERSION = '1.00';
# ABSTRACT: Wraps a generic cmdlet
# PODNAME: PowerShell::Cmdlet

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

sub command {
    my ($self) = @_;

    unless ( $self->{command} ) {
        my @parts = ( $self->{name} );
        foreach my $parameter ( @{ $self->{parameters} } ) {
            if ( scalar(@$parameter) == 2 ) {
                push( @parts, "-$parameter->[0] '$parameter->[1]'" );
            }
            else {
                push( @parts, "'$parameter->[0]'" );
            }
        }
        $self->{command} = join( ' ', @parts );
    }

    return $self->{command};
}

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

    $self->{name}       = $name;
    $self->{parameters} = [];

    return $self;
}

sub parameter {
    my ( $self, @parameter ) = @_;

    my $parts = scalar(@parameter);
    if ( $parts == 1 ) {
        push( @{ $self->{parameters} }, [ $parameter[0] ] );
    }
    elsif ( $parts == 2 ) {
        push( @{ $self->{parameters} }, [ $parameter[0] => $parameter[1] ] );
    }

    return $self;
}

1;

__END__