File Coverage

blib/lib/App/cdif/Command.pm

Criterion	Covered	Total	%
statement	11	33	33.3
branch	0	14	0.0
condition	0	2	0.0
subroutine	4	8	50.0
pod	4	4	100.0
total	19	61	31.1

package App::cdif::Command;

use v5.14;
use warnings;
use utf8;

use parent 'Command::Run';

# Compatibility: expand array reference in command
sub command {
    my $obj = shift;
    if (@_) {
	my @cmd = map { ref eq 'ARRAY' ? @$_ : $_ } @_;
	return $obj->SUPER::command(@cmd);
    }
    $obj->SUPER::command;
}

# Compatibility wrapper for read_error option
sub option {
    my $obj = shift;
    if (@_ == 1) {
	my $key = shift;
	if ($key eq 'read_error') {
	    my $stderr = $obj->SUPER::option('stderr') // '';
	    return $stderr eq 'redirect' ? 1 : 0;
	}
	return $obj->SUPER::option($key);
    } else {
	while (my($k, $v) = splice @_, 0, 2) {
	    if ($k eq 'read_error') {
		$obj->SUPER::option(stderr => $v ? 'redirect' : undef);
	    } else {
		$obj->SUPER::option($k => $v);
	    }
	}
	return $obj;
    }
}

# Compatibility: return INPUT filehandle
sub stdin {
    my $obj = shift;
    $obj->{INPUT};
}

# Compatibility: setstdin method
sub setstdin {
    my $obj = shift;
    $obj->with(stdin => shift);
}

1;

__END__