File Coverage

blib/lib/PowerShell.pm

Criterion	Covered	Total	%
statement	24	46	52.1
branch	0	6	0.0
condition	0	3	0.0
subroutine	8	13	61.5
pod	4	4	100.0
total	36	72	50.0

use strict;
use warnings;

package PowerShell;
$PowerShell::VERSION = '1.00';
# ABSTRACT: Wraps PowerShell commands;
# PODNAME: PowerShell

use Carp;
use Encode;
use Log::Any;
use MIME::Base64;
use POSIX qw(WIFEXITED WEXITSTATUS);
use PowerShell::Pipeline;

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

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

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

    my $encoded_command =
        MIME::Base64::encode_base64( Encode::encode( 'UTF-16LE', $self->{pipeline}->command() ),
        '' );
    return "powershell -EncodedCommand $encoded_command";
}

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

    my $powershell_command = $self->command();
    $logger->debugf( 'running [%s]', $powershell_command );
    my $result = `$powershell_command 2> /dev/null`;

    if ( WIFEXITED( ${^CHILD_ERROR_NATIVE} ) ) {
        my $exit_status = WEXITSTATUS( ${^CHILD_ERROR_NATIVE} );
        if ($exit_status) {
            croak("[$powershell_command] failed: $exit_status");
        }
    }
    else {
        croak("[$powershell_command] exited abnormally");
    }

    return $result;
}

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

    if ( ref( $rest[0] ) && $rest[0]->isa('PowerShell::Pipeline') ) {
        $self->{pipeline} = $rest[0];
    }
    else {
        $self->{pipeline} = PowerShell::Pipeline->new()->add(@rest);
    }

    return $self;
}

sub pipe_to {
    my ( $self, @rest ) = @_;
    $self->{pipeline}->add(@rest);
    return $self;
}

1;

__END__