Condition Coverage

blib/lib/Control/CLI.pm
Criterion Covered Total %
condition 4 279 1.4


and 3 conditions

line !l l&&!r l&&r condition
171 2 0 2 ++$even_lc % 2 && defined $_
233 0 0 0 ref $codeRef eq "ARRAY" and ref $codeRef->[0] eq "CODE"
470 0 0 0 $self->{'TYPE'} ne "SERIAL" and not $UseSocketIP
0 0 0 $self->{'TYPE'} ne "SERIAL" and not $UseSocketIP and defined $args{'blocking'}
0 0 0 $self->{'TYPE'} ne "SERIAL" and not $UseSocketIP and defined $args{'blocking'} and not $args{'blocking'}
484 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == __PACKAGE__->can("connect_poll")
491 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
511 0 0 0 $blocking and not length $self->{'BUFFER'}
536 0 0 0 not length $$bufref and $blocking
545 0 0 0 $dataWithError and length $$bufref
574 0 0 0 $args[$i] eq "match_list" and ref $args[$i + 1] eq "ARRAY"
623 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == __PACKAGE__->can("waitfor_poll")
631 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
731 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == __PACKAGE__->can("login_poll")
739 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
799 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == __PACKAGE__->can("cmd_poll")
807 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
860 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == __PACKAGE__->can("change_baudrate_poll")
867 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
950 0 0 0 defined $self->{'PARENT'} and not defined $self->{'SSHCHANNEL'}
1025 0 0 0 defined $self->{'PARENT'} and not $self->{'SERIALEOF'}
1053 0 0 0 $self->{'TYPE'} eq "TELNET" and defined $self->parent->option_log
1176 0 0 0 $objLastPollTime->[$i] - $objStartTime > $pollTimer and $args{'poll_code'}
1212 0 0 0 $objLastPollTime->{$key} - $objStartTime > $pollTimer and $args{'poll_code'}
1226 0 0 0 $objComplete eq "next" and @lastCompleted
0 0 0 $objError eq "return" and @lastFailed
1228 0 0 0 $args{'poll_code'} and not $pollActHost
1336 0 0 0 ref $newSetting and not validCodeRef($newSetting)
1399 0 0 0 defined $width and not $width
0 0 0 defined $height and not $height
0 0 0 defined $width and defined $height
1403 0 0 0 $width =~ /^\d+$/ and $height =~ /^\d+$/
1426 0 0 1 defined $newSetting and my $newMode = parse_errmode($pkgsub, $newSetting)
1473 0 0 0 defined $newSetting and $newSetting != $currentSetting
1608 0 0 0 defined $self->{'POLL'} and defined $self->{'POLL'}{'complete'}
0 0 0 defined $self->{'POLL'} and defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
1721 0 0 0 defined $ok and $ok == 0
1730 0 0 0 $self->{'POLL'}{'output_requested'} and $self->{'POLL'}{'output_type'}
1814 0 0 0 not $self->{'POLL'}{'socket'}->connect and $! == 115 || $! == 11
1942 0 0 0 $firstReadRequired and not defined $self->{'POLL'}{'endtime'}
1956 0 0 0 $dataWithError and length $self->{'POLL'}{'read_buffer'}
2014 0 0 0 @_ and not %args
2072 0 0 0 not $self->{'POLL'}{'blocking'} and $connect->{'atomic_connect'}
2093 0 0 0 exists $telobj->{'select_supported'} and not $telobj->{'select_supported'}
2112 0 0 0 not $self->{'POLL'}{'blocking'} and $connect->{'atomic_connect'}
2160 0 0 0 not $self->{'POLL'}{'blocking'} and &Control::CLI::time() > $self->{'POLL'}{'endtime'}
2177 0 0 0 defined $connect->{'publickey'} and defined $connect->{'privatekey'}
2193 0 0 0 not $self->{'POLL'}{'blocking'} and &Control::CLI::time() > $self->{'POLL'}{'endtime'}
2202 0 0 0 $connect->{'authPassword'} && (defined $connect->{'password'} || $connect->{'prompt_credentials'})
2219 0 0 0 $connect->{'authPassword'} and not $self->{'PARENT'}->auth_ok
2226 0 0 0 not $self->{'POLL'}{'blocking'} and &Control::CLI::time() > $self->{'POLL'}{'endtime'}
2251 0 0 0 not $self->{'POLL'}{'blocking'} and &Control::CLI::time() > $self->{'POLL'}{'endtime'}
2270 0 0 0 $^O eq "MSWin32" and $connect->{'forcebaud'}
2318 0 0 0 @_ and not %args
2426 0 0 0 @_ and not %args
2491 0 0 0 @_ and not %args
2563 0 0 0 @_ and not %args
2611 0 0 0 $^O eq "MSWin32" and $changeBaud->{'forcebaud'}
2724 0 0 0 defined $buffer and length $buffer
2727 0 0 0 $self->{'PARENT'}->poll($timeout * 1000, \@poll) and $poll[0]{'revents'}{'in'}
2890 0 0 0 ref $fh and ref $fh ne "GLOB"
2974 0 0 0 $timeCredit > 0 and defined $self->{'POLL'}{'endtime'}
2999 0 0 0 defined &Net::Telnet::_log_option and $telobj->{'opt_log'}
3013 0 0 0 defined &Net::Telnet::_flush_opts and length $telobj->{'unsent_opts'}
3022 0 0 0 $option == &TELOPT_NAWS and @{$self->{'window_size'};}
3027 0 0 0 defined &Net::Telnet::_log_option and $telobj->{'opt_log'}
3043 0 0 0 defined &Net::Telnet::_log_option and $telobj->{'opt_log'}
3046 0 0 0 $option == &TELOPT_TTYPE and defined $self->{'terminal_type'}
3049 0 0 0 defined &Net::Telnet::_log_option and $telobj->{'opt_log'}
3053 0 0 0 $option == &TELOPT_NAWS and @{$self->{'window_size'};}
3056 0 0 0 defined &Net::Telnet::_log_option and $telobj->{'opt_log'}

or 2 conditions

line l !l condition
1070 0 0 shift() || ''
2646 0 0 shift() || \''
2647 0 0 shift() || ''

or 3 conditions

line l !l&&r !l&&!r condition
262 0 1 0 ref $invocant || $invocant
421 0 0 0 $args{'host'} =~ /^(.+?)\s+(\d+)$/ or $args{'host'} =~ /^([^:\s]+?):(\d+)$/
603 0 0 0 !$pollSyntax || wantarray
779 0 0 0 !$args{'poll_syntax'} || wantarray
881 0 0 0 ref $fh or length $fh
885 0 0 0 ref $fh or defined fileno $fh
903 0 0 0 ref $fh or length $fh
907 0 0 0 ref $fh or defined fileno $fh
925 0 0 0 ref $fh or length $fh
929 0 0 0 ref $fh or defined fileno $fh
974 0 0 0 shift() || $ComBreakDuration
1132 0 0 0 defined $self or defined $args{'object_list'}
1146 0 0 0 $ok or not defined $ok
1226 0 0 0 $running == 0 or $objComplete eq "next" and @lastCompleted
0 0 0 $running == 0 or $objComplete eq "next" and @lastCompleted or $objError eq "return" and @lastFailed
1399 0 0 0 defined $width and not $width or defined $height and not $height
1814 0 0 0 $! == 115 || $! == 11
1942 0 0 0 $firstReadRequired || defined $self->{'POLL'}{'waittime'}
2850 0 0 0 defined $self->{'OUTPUTLOGFH'} or defined $self->{'DUMPLOGFH'}
2940 0 0 0 $msgFormat =~ /^\s*default\s*$/i or not $msgFormat =~ /^\s*terse\s*$/i