File Coverage

blib/lib/PowerShell/Pipeline.pm

Criterion	Covered	Total	%
statement	34	35	97.1
branch	6	8	75.0
condition	5	9	55.5
subroutine	8	8	100.0
pod	3	3	100.0
total	56	63	88.8

use strict;
use warnings;

package PowerShell::Pipeline;
$PowerShell::Pipeline::VERSION = '1.00';
# ABSTRACT: Wraps powershell cmdlet pipeline
# PODNAME: PowerShell::Pipeline

use Carp;
use PowerShell::Cmdlet;

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

sub add {
    my ( $self, $cmdlet, @parameters ) = @_;

    delete( $self->{command} );    #clear cached command

    unless ( ref($cmdlet) && $cmdlet->isa('PowerShell::Cmdlet') ) {
        $cmdlet = PowerShell::Cmdlet->new($cmdlet);
        foreach my $parameter (@parameters) {
            my $ref = ref($parameter);
            if ( !$ref || $ref eq 'SCALAR' ) {
                $cmdlet->parameter($parameter);
            }
            elsif ( $ref eq 'ARRAY' && scalar(@$parameter) == 2 ) {
                $cmdlet->parameter(@$parameter);
            }
            else {
                croak('inline parameters must be name value array ref, or scalar value');
            }
        }
    }

    push( @{ $self->{pipeline} }, $cmdlet );

    return $self;
}

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

    $self->{pipeline} = [];

    return $self;
}

sub command {
    my ($self) = @_;
    unless ( $self->{command} ) {
        $self->{command} = join( '|', map { $_->command() } @{ $self->{pipeline} } );
    }
    return $self->{command};
}

1;

__END__