Condition Coverage

blib/lib/Control/CLI.pm
Criterion Covered Total %
condition 4 288 1.3


and 3 conditions

line !l l&&!r l&&r condition
170 2 0 2 ++$even_lc % 2 && defined $_
232 0 0 0 ref $codeRef eq "ARRAY" and ref $codeRef->[0] eq "CODE"
466 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'}
480 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == "Control::CLI"->can("connect_poll")
487 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
505 0 0 0 $blocking and not length $self->{'BUFFER'}
528 0 0 0 not length $$bufref and $blocking
537 0 0 0 $dataWithError and length $$bufref
566 0 0 0 $args[$i] eq "match_list" and ref $args[$i + 1] eq "ARRAY"
615 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == "Control::CLI"->can("waitfor_poll")
623 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
719 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == "Control::CLI"->can("login_poll")
727 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
787 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == "Control::CLI"->can("cmd_poll")
795 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
848 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == "Control::CLI"->can("change_baudrate_poll")
855 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
871 0 0 0 defined $fh and $self->{'PARENT'}->errmsg =~ /problem creating $fh: (.*)/
901 0 0 0 defined $fh and $self->{'PARENT'}->errmsg =~ /problem creating $fh: (.*)/
931 0 0 0 defined $fh and $self->{'PARENT'}->errmsg =~ /problem creating $fh: (.*)/
962 0 0 0 defined $self->{'PARENT'} and not defined $self->{'SSHCHANNEL'}
1035 0 0 0 defined $self->{'PARENT'} and not $self->{'SERIALEOF'}
1063 0 0 0 $self->{'TYPE'} eq "TELNET" and defined $self->parent->option_log
1186 0 0 0 $objLastPollTime->[$i] - $objStartTime > $pollTimer and $args{'poll_code'}
1222 0 0 0 $objLastPollTime->{$key} - $objStartTime > $pollTimer and $args{'poll_code'}
1236 0 0 0 $objComplete eq "next" and @lastCompleted
0 0 0 $objError eq "return" and @lastFailed
1238 0 0 0 $args{'poll_code'} and not $pollActHost
1338 0 0 0 ref $newSetting and not validCodeRef($newSetting)
1401 0 0 0 defined $width and not $width
0 0 0 defined $height and not $height
0 0 0 defined $width and defined $height
1405 0 0 0 $width =~ /^\d+$/ and $height =~ /^\d+$/
1428 0 0 1 defined $newSetting and my $newMode = parse_errmode($pkgsub, $newSetting)
1475 0 0 0 defined $newSetting and $newSetting != $currentSetting
1610 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
1723 0 0 0 defined $ok and $ok == 0
1732 0 0 0 $self->{'POLL'}{'output_requested'} and $self->{'POLL'}{'output_type'}
1816 0 0 0 not $self->{'POLL'}{'socket'}->connect and $! == 115 || $! == 11
1944 0 0 0 $firstReadRequired and not defined $self->{'POLL'}{'endtime'}
1958 0 0 0 $dataWithError and length $self->{'POLL'}{'read_buffer'}
2016 0 0 0 @_ and not %args
2074 0 0 0 not $self->{'POLL'}{'blocking'} and $connect->{'atomic_connect'}
2095 0 0 0 exists $telobj->{'select_supported'} and not $telobj->{'select_supported'}
2114 0 0 0 not $self->{'POLL'}{'blocking'} and $connect->{'atomic_connect'}
2162 0 0 0 not $self->{'POLL'}{'blocking'} and &Control::CLI::time() > $self->{'POLL'}{'endtime'}
2179 0 0 0 defined $connect->{'publickey'} and defined $connect->{'privatekey'}
2195 0 0 0 not $self->{'POLL'}{'blocking'} and &Control::CLI::time() > $self->{'POLL'}{'endtime'}
2204 0 0 0 $connect->{'authPassword'} && (defined $connect->{'password'} || $connect->{'prompt_credentials'})
2221 0 0 0 $connect->{'authPassword'} and not $self->{'PARENT'}->auth_ok
2228 0 0 0 not $self->{'POLL'}{'blocking'} and &Control::CLI::time() > $self->{'POLL'}{'endtime'}
2253 0 0 0 not $self->{'POLL'}{'blocking'} and &Control::CLI::time() > $self->{'POLL'}{'endtime'}
2272 0 0 0 $^O eq "MSWin32" and $connect->{'forcebaud'}
2320 0 0 0 @_ and not %args
2428 0 0 0 @_ and not %args
2493 0 0 0 @_ and not %args
2565 0 0 0 @_ and not %args
2613 0 0 0 $^O eq "MSWin32" and $changeBaud->{'forcebaud'}
2702 0 0 0 defined $buffer and length $buffer
2705 0 0 0 $self->{'PARENT'}->poll($timeout * 1000, \@poll) and $poll[0]{'revents'}{'in'}
2806 0 0 0 length $buffer and $self->{'report_query_status'}
2852 0 0 0 ref $fh and ref $fh ne "GLOB"
2936 0 0 0 $timeCredit > 0 and defined $self->{'POLL'}{'endtime'}
2961 0 0 0 defined &Net::Telnet::_log_option and $telobj->{'opt_log'}
2975 0 0 0 defined &Net::Telnet::_flush_opts and length $telobj->{'unsent_opts'}
2984 0 0 0 $option == &TELOPT_NAWS and @{$self->{'window_size'};}
2989 0 0 0 defined &Net::Telnet::_log_option and $telobj->{'opt_log'}
3005 0 0 0 defined &Net::Telnet::_log_option and $telobj->{'opt_log'}
3008 0 0 0 $option == &TELOPT_TTYPE and defined $self->{'terminal_type'}
3011 0 0 0 defined &Net::Telnet::_log_option and $telobj->{'opt_log'}
3015 0 0 0 $option == &TELOPT_NAWS and @{$self->{'window_size'};}
3018 0 0 0 defined &Net::Telnet::_log_option and $telobj->{'opt_log'}

or 2 conditions

line l !l condition
1080 0 0 shift() || ''
2648 0 0 shift() || \''
2649 0 0 shift() || ''

or 3 conditions

line l !l&&r !l&&!r condition
261 0 1 0 ref $invocant || $invocant
417 0 0 0 $args{'host'} =~ /^(.+?)\s+(\d+)$/ or $args{'host'} =~ /^([^:\s]+?):(\d+)$/
595 0 0 0 !$pollSyntax || wantarray
767 0 0 0 !$args{'poll_syntax'} || wantarray
876 0 0 0 ref $fh or length $fh
880 0 0 0 ref $fh or defined fileno $fh
906 0 0 0 ref $fh or length $fh
910 0 0 0 ref $fh or defined fileno $fh
936 0 0 0 ref $fh or length $fh
940 0 0 0 ref $fh or defined fileno $fh
984 0 0 0 shift() || $ComBreakDuration
1142 0 0 0 defined $self or defined $args{'object_list'}
1156 0 0 0 $ok or not defined $ok
1236 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
1401 0 0 0 defined $width and not $width or defined $height and not $height
1816 0 0 0 $! == 115 || $! == 11
1944 0 0 0 $firstReadRequired || defined $self->{'POLL'}{'waittime'}
2902 0 0 0 $msgFormat =~ /^\s*default\s*$/i or not $msgFormat =~ /^\s*terse\s*$/i