Branch Coverage

blib/lib/IPC/PrettyPipe.pm
Criterion Covered Total %
branch 44 70 62.8


line true false branch
169 5 5 if @_
220 1 10 if @_
248 0 0 'HASH' eq ref $_[0] ? :
0 69 @_ == 1 ? :
261 69 0 if ($self->_has_init_cmds)
309 80 0 if @_ == 1
329 0 80 if defined $attr->{'argfmt'}
333 75 5 if ($attr->{'cmd'}->$IPC::PrettyPipe::_isa('IPC::PrettyPipe::Cmd')) { }
5 0 elsif ($attr->{'cmd'}->$IPC::PrettyPipe::_isa('IPC::PrettyPipe')) { }
337 0 75 if keys %$attr
346 0 5 if keys %$attr
356 0 0 exists $attr->{'args'} ? :
417 4 90 if ($t->$IPC::PrettyPipe::_isa('IPC::PrettyPipe::Arg::Format')) { }
1 89 elsif ($t->$IPC::PrettyPipe::_isa('IPC::PrettyPipe::Cmd')) { }
1 88 elsif ($t->$IPC::PrettyPipe::_isa('IPC::PrettyPipe')) { }
78 10 elsif ('ARRAY' eq ref $t) { }
0 10 elsif ($t->$IPC::PrettyPipe::_isa('IPC::PrettyPipe::Stream')) { }
10 0 elsif (not ref $t) { }
439 4 74 if (($cmd = $t->[0])->$IPC::PrettyPipe::_isa('IPC::PrettyPipe')) { }
440 0 4 if @$t > 1
471 10 0 if ($stream->requires_file)
473 0 10 if ++$idx == @args
483 0 0 unless /requires a file|cannot parse/
522 10 0 if ($spec->$IPC::PrettyPipe::_isa('IPC::PrettyPipe::Stream')) { }
0 0 elsif (not ref $spec) { }
524 0 10 if @_
533 0 0 @_ ? :
566 2 24 unless $_->valmatch($pattern) and 1
642 8 4 @_ > 1 ? :
657 5 7 if ($nmatch == 1) { }
680 7 3 $match == $nmatch - 1 ? :
12 10 $match == 0 ? :
22 0 if $_->valsubst($pattern, $match == 0 ? $args->{'firstvalue'} : ($match == $nmatch - 1 ? $args->{'lastvalue'} : $value))
702 35 39 unless &use_package_optimistically($try)->DOES($role)
709 0 39 unless defined $module