Condition Coverage

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


and 3 conditions

line !l l&&!r l&&r condition
172 2 0 2 ++$even_lc % 2 && defined $_
234 0 0 0 ref $codeRef eq "ARRAY" and ref $codeRef->[0] eq "CODE"
473 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'}
487 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == __PACKAGE__->can("connect_poll")
494 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
514 0 0 0 $blocking and not length $self->{'BUFFER'}
539 0 0 0 not length $$bufref and $blocking
548 0 0 0 $dataWithError and length $$bufref
577 0 0 0 $args[$i] eq "match_list" and ref $args[$i + 1] eq "ARRAY"
626 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == __PACKAGE__->can("waitfor_poll")
634 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
734 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == __PACKAGE__->can("login_poll")
742 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
802 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == __PACKAGE__->can("cmd_poll")
810 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
863 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == __PACKAGE__->can("change_baudrate_poll")
870 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
953 0 0 0 defined $self->{'PARENT'} and not defined $self->{'SSHCHANNEL'}
1028 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
1346 0 0 0 ref $newSetting and not validCodeRef($newSetting)
1409 0 0 0 defined $width and not $width
0 0 0 defined $height and not $height
0 0 0 defined $width and defined $height
1413 0 0 0 $width =~ /^\d+$/ and $height =~ /^\d+$/
1436 0 0 1 defined $newSetting and my $newMode = parse_errmode($pkgsub, $newSetting)
1483 0 0 0 defined $newSetting and $newSetting != $currentSetting
1620 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
1733 0 0 0 defined $ok and $ok == 0
1742 0 0 0 $self->{'POLL'}{'output_requested'} and $self->{'POLL'}{'output_type'}
1826 0 0 0 not $self->{'POLL'}{'socket'}->connect and $! == 115 || $! == 11
1954 0 0 0 $firstReadRequired and not defined $self->{'POLL'}{'endtime'}
1968 0 0 0 $dataWithError and length $self->{'POLL'}{'read_buffer'}
2026 0 0 0 @_ and not %args
2084 0 0 0 not $self->{'POLL'}{'blocking'} and $connect->{'atomic_connect'}
2105 0 0 0 exists $telobj->{'select_supported'} and not $telobj->{'select_supported'}
2124 0 0 0 not $self->{'POLL'}{'blocking'} and $connect->{'atomic_connect'}
2172 0 0 0 not $self->{'POLL'}{'blocking'} and &Control::CLI::time() > $self->{'POLL'}{'endtime'}
2189 0 0 0 defined $connect->{'publickey'} and defined $connect->{'privatekey'}
2205 0 0 0 not $self->{'POLL'}{'blocking'} and &Control::CLI::time() > $self->{'POLL'}{'endtime'}
2214 0 0 0 $connect->{'authPassword'} && (defined $connect->{'password'} || $connect->{'prompt_credentials'})
2231 0 0 0 $connect->{'authPassword'} and not $self->{'PARENT'}->auth_ok
2238 0 0 0 not $self->{'POLL'}{'blocking'} and &Control::CLI::time() > $self->{'POLL'}{'endtime'}
2263 0 0 0 not $self->{'POLL'}{'blocking'} and &Control::CLI::time() > $self->{'POLL'}{'endtime'}
2282 0 0 0 $^O eq "MSWin32" and $connect->{'forcebaud'}
2330 0 0 0 @_ and not %args
2438 0 0 0 @_ and not %args
2503 0 0 0 @_ and not %args
2575 0 0 0 @_ and not %args
2623 0 0 0 $^O eq "MSWin32" and $changeBaud->{'forcebaud'}
2736 0 0 0 defined $buffer and length $buffer
2739 0 0 0 $self->{'PARENT'}->poll($timeout * 1000, \@poll) and $poll[0]{'revents'}{'in'}
2891 0 0 0 $done and $countOut
2912 0 0 0 ref $fh and ref $fh ne "GLOB"
2996 0 0 0 $timeCredit > 0 and defined $self->{'POLL'}{'endtime'}
3021 0 0 0 defined &Net::Telnet::_log_option and $telobj->{'opt_log'}
3035 0 0 0 defined &Net::Telnet::_flush_opts and length $telobj->{'unsent_opts'}
3044 0 0 0 $option == &TELOPT_NAWS and @{$self->{'window_size'};}
3049 0 0 0 defined &Net::Telnet::_log_option and $telobj->{'opt_log'}
3065 0 0 0 defined &Net::Telnet::_log_option and $telobj->{'opt_log'}
3068 0 0 0 $option == &TELOPT_TTYPE and defined $self->{'terminal_type'}
3071 0 0 0 defined &Net::Telnet::_log_option and $telobj->{'opt_log'}
3075 0 0 0 $option == &TELOPT_NAWS and @{$self->{'window_size'};}
3078 0 0 0 defined &Net::Telnet::_log_option and $telobj->{'opt_log'}

or 2 conditions

line l !l condition
1080 0 0 shift() || ''
2658 0 0 shift() || \''
2659 0 0 shift() || ''

or 3 conditions

line l !l&&r !l&&!r condition
263 0 1 0 ref $invocant || $invocant
424 0 0 0 $args{'host'} =~ /^(.+?)\s+(\d+)$/ or $args{'host'} =~ /^([^:\s]+?):(\d+)$/
606 0 0 0 !$pollSyntax || wantarray
782 0 0 0 !$args{'poll_syntax'} || wantarray
884 0 0 0 ref $fh or length $fh
888 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
928 0 0 0 ref $fh or length $fh
932 0 0 0 ref $fh or defined fileno $fh
977 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
1409 0 0 0 defined $width and not $width or defined $height and not $height
1826 0 0 0 $! == 115 || $! == 11
1954 0 0 0 $firstReadRequired || defined $self->{'POLL'}{'waittime'}
2862 0 0 0 defined $self->{'OUTPUTLOGFH'} or defined $self->{'DUMPLOGFH'}
2962 0 0 0 $msgFormat =~ /^\s*default\s*$/i or not $msgFormat =~ /^\s*terse\s*$/i