Branch Coverage

blib/lib/Pick/TCL.pm
Criterion Covered Total %
branch 17 158 10.7


line true false branch
36 3 0 if (eval { do { require IPC::Run } })
40 0 3 if (eval { do { require Net::OpenSSH } })
106 0 0 defined $options{'SSHUSER'} ? :
107 0 0 if defined $options{'SSHPASS'}
108 0 0 unless $cs eq ''
110 0 0 if defined $options{'PORT'}
117 0 0 unless (defined $options{'SSHCMD'})
122 0 0 unless -x $c
126 0 0 unless $cmd
131 0 0 unless $_mods{'remote'}
139 0 0 if ($e)
153 0 0 if (ref $$self{'_SSH'})
168 0 0 unless defined $$self{'_OPTIONS'}{$k}
306 0 2 if (ref $class)
315 0 2 unless scalar(@_) % 2 == 0
318 2 0 unless defined $options{'VM'}
319 2 0 unless (defined $options{'USER'})
324 2 0 unless defined $u
326 0 2 unless defined $u
328 2 0 unless defined $options{'PICKBIN'}
329 2 0 unless defined $options{'OPTDATA'}
330 2 0 unless defined $options{'OPTSILENT'}
331 2 0 unless defined $options{'OPTVM'}
332 0 2 if (defined $options{'TIMEOUT'}) { }
338 0 2 unless (defined $options{'HOST'} or defined $_mods{'local'})
348 0 2 if ($options{'HOST'})
350 0 0 unless $self->_bring_up_ssh
401 0 0 unless ref $self
402 0 0 if (scalar @_ == 0)
410 0 0 if scalar @_ > 0
416 0 0 if (defined $$self{'_SSH'}) { }
419 0 0 unless ($self->_reconnect_ssh)
427 0 0 if ($serr and $serr ne 'child exited with code 11' and $serr ne 'child exited with code 255')
437 0 0 unless IPC::Run::run(\@args, \$input, \$result, \$err)
439 0 0 if ($err)
453 0 0 unless ref $self
454 0 0 if (scalar @_ == 0)
458 0 0 wantarray ? :
462 0 0 wantarray ? :
0 0 unless my $raw = $self->execraw(@_)
464 0 0 wantarray ? :
482 0 0 unless ref $self
483 0 0 if (scalar @_ == 0)
491 0 0 if scalar @_ > 0
496 0 0 if (defined $$self{'_SSH'}) { }
499 0 0 unless ($self->_reconnect_ssh)
507 0 0 if ($serr)
513 0 0 if (defined $input)
518 0 0 unless (defined $bytes)
536 0 0 unless (socketpair $child, $parent, 1, 1, 0)
545 0 0 unless (defined $pid)
554 0 0 if ($pid)
568 0 0 unless my $ran = IPC::Run::run(\@args, \$input, \$result, \$err)
570 0 0 if $err
589 0 0 unless ref $self
593 0 0 unless (defined $$self{'_SOCKSET'})
604 0 0 unless (defined $readable)
606 0 0 unless defined $$self{'_PARTIAL'}
611 0 0 unless defined $$self{'_PARTIAL'}
612 0 0 if $readable == 0
614 0 0 unless (defined $res)
616 0 0 unless $! == &Errno::EAGAIN
621 0 0 if $res == 0
624 0 0 if ($errflag and $errno == 0)
634 0 0 if ($errflag)
658 0 0 unless ref $self
659 0 0 unless defined $$self{'_PARTIAL'}
663 0 0 unless defined $$self{'_PARTIAL'}
671 0 0 unless ref $self
676 0 0 if (defined $raw)
679 0 0 wantarray ? :
682 0 0 wantarray ? :
702 0 0 unless ref $self
710 0 0 unless ref $self
712 0 0 if (defined $raw)
715 0 0 wantarray ? :
717 0 0 wantarray ? :
731 0 1 unless ref $self
732 0 1 if (ref $$self{'_SSH'})