Branch Coverage

blib/lib/IPC/PrettyPipe/Cmd.pm
Criterion Covered Total %
branch 36 56 64.2


line true false branch
90 0 0 'ARRAY' eq ref $_[0] && @{$_[0];} == 2 ? :
0 0 'HASH' eq ref $_[0] ? :
0 93 @_ == 1 ? :
106 13 79 if ($self->_has_init_args)
121 0 179 if @_ == 1
142 0 67 if $ref and exists $attr->{'value'}
144 177 1 if defined $attr->{'argfmt'}
147 0 178 if ('HASH' eq $ref) { }
67 111 elsif ('ARRAY' eq $ref) { }
0 111 elsif ($arg->$IPC::PrettyPipe::Cmd::_isa('IPC::PrettyPipe::Arg')) { }
163 1 66 if @$arg % 2
192 0 111 exists $attr->{'value'} ? :
213 9 209 if ($t->$IPC::PrettyPipe::Cmd::_isa('IPC::PrettyPipe::Arg::Format')) { }
0 209 elsif ($t->$IPC::PrettyPipe::Cmd::_isa('IPC::PrettyPipe::Arg')) { }
66 143 elsif (ref($t) =~ /^(ARRAY|HASH)$/) { }
0 143 elsif ($t->$IPC::PrettyPipe::Cmd::_isa('IPC::PrettyPipe::Stream')) { }
247 30 2 if ($stream->requires_file)
249 0 30 if ++$idx == @args
259 0 111 if /requires a file/
276 32 0 if ($spec->$IPC::PrettyPipe::Cmd::_isa('IPC::PrettyPipe::Stream')) { }
0 0 elsif (not ref $spec) { }
278 0 32 if @_
287 0 0 @_ ? :
315 6 25 @_ > 1 ? :
333 18 13 if ($nmatch == 1) { }
351 12 9 $match == $nmatch - 1 ? :
34 21 $match == 0 ? :
43 12 if $_->valsubst($pattern, $match == 0 ? $args->{'firstvalue'} : ($match == $nmatch - 1 ? $args->{'lastvalue'} : $value))