Condition Coverage

blib/lib/Control/CLI/AvayaData.pm
Criterion Covered Total %
condition 1 464 0.2


and 3 conditions

line !l l&&!r l&&r condition
366 0 0 0 not $self->{'LOGINSTAGE'} and $self->{'TYPE'} ne 'SERIAL'
0 0 0 not $self->{'LOGINSTAGE'} and $self->{'TYPE'} ne 'SERIAL' and useIPv6()
0 0 0 not $self->{'LOGINSTAGE'} and $self->{'TYPE'} ne 'SERIAL' and useIPv6() and defined $args{'blocking'}
0 0 0 not $self->{'LOGINSTAGE'} and $self->{'TYPE'} ne 'SERIAL' and useIPv6() and defined $args{'blocking'} and not $args{'blocking'}
380 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == 'Control::CLI::AvayaData'->can('connect_poll')
388 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
449 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == 'Control::CLI::AvayaData'->can('login_poll')
457 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
513 0 0 0 $args{'reset_prompt'} && defined $self->{$Package}{'PROMPTTYPE'}
544 0 0 0 lc $_[0] ne 'command' and lc $_[0] ne 'poll_syntax'
555 0 0 0 $args[$i] eq 'feed_list' and ref $args[$i + 1] eq 'ARRAY'
607 0 0 0 $reset_prompt && defined $self->{$Package}{'PROMPTTYPE'}
628 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == 'Control::CLI::AvayaData'->can('cmd_poll')
636 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
695 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == 'Control::CLI::AvayaData'->can('attribute_poll')
703 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
770 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == 'Control::CLI::AvayaData'->can('change_baudrate_poll')
778 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
830 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == 'Control::CLI::AvayaData'->can('enable_poll')
837 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
886 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == 'Control::CLI::AvayaData'->can('device_more_paging_poll')
893 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
938 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == 'Control::CLI::AvayaData'->can('device_peer_cpu_poll')
945 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
1128 0 0 0 @_ and not %args
1225 0 0 0 @_ and not %args
1269 0 0 0 $self->{'LOGINSTAGE'} eq 'username' and $login->{'username'}
0 0 0 $self->{'LOGINSTAGE'} eq 'password' and $login->{'password'}
0 0 0 $self->console and $login->{'wake_console'}
1514 0 0 0 defined $cliType and $cliType eq 'nncli'
1524 0 0 0 $login->{'detectionFromPrompt'} and not $self->{'LASTPROMPT'} =~ /^@/
1536 0 0 0 $login->{'family_type'} eq $Prm{'generic'} and $self->{'errmode'} eq 'croak' || $self->{'errmode'} eq 'die'
1569 0 0 0 @_ and not %args
1573 0 0 0 defined $args{'feed_list'} and !ref($args{'feed_list'}) eq 'ARRAY'
1600 0 0 0 $args{'reset_prompt'} && defined $self->{$Package}{'PROMPTTYPE'}
1617 0 0 0 $command =~ /\?\s*$/ and $self->{$Package}{'ATTRIB'}{'is_nncli'}
1633 0 0 0 defined $ok and $ok == 0
1735 0 0 0 length $cmd->{'lastLine'} and $self->{'POLL'}{'local_buffer'} =~ s/\n\n$/\n/
1753 0 0 0 $newLineLastLine and not length $cmd->{'lastLine'}
1759 0 0 0 $cmd->{'more_prompt_delay'} and not $cmd->{'morePromptDelayed'}
0 0 0 $cmd->{'more_prompt_delay'} and not $cmd->{'morePromptDelayed'} and $cmd->{'lastLine'} =~ /(?:$cmd->{'more_prompt_delay'})$/
1766 0 0 0 $cmd->{'more_prompt'} and $cmd->{'lastLine'} =~ s/(?:$cmd->{'more_prompt'})$//
1787 0 0 0 $cmd->{'yn_prompt'} and $cmd->{'lastLine'} =~ /$cmd->{'yn_prompt'}/
1797 0 0 0 $cmd->{'cmd_prompt'} and $cmd->{'lastLine'} =~ /$cmd->{'cmd_prompt'}/
1826 0 0 0 @_ and not %args
2047 0 0 0 $$outref =~ /\s1\s+\d{4}\S{2}\s+1\s+CPU\s+(?:\d+\s+){4}/ and $$outref =~ /\s2\s+\d{4}\S{2}\s+1\s+CPU\s+(?:\d+\s+){4}/
2065 0 0 0 not $self->{$Package}{'ATTRIBFLAG'}{'model'} and $attrib->{'attribute'} eq 'slots' || $attrib->{'attribute'} eq 'ports'
0 0 0 not $self->{$Package}{'ATTRIBFLAG'}{'is_voss'} and $attrib->{'attribute'} =~ /^(?:is_)?oob_/
2100 0 0 0 $$outref =~ /\s1\s+\d{4}\S{2}\s+1\s+CPU\s+(?:\d+\s+){4}/ and $$outref =~ /\s2\s+\d{4}\S{2}\s+1\s+CPU\s+(?:\d+\s+){4}/
2120 0 0 0 $self->{$Package}{'ATTRIB'}{'is_nncli'} and $self->{$Package}{'ATTRIB'}{'model'} =~ /(?:Passport|ERS)-8[36]\d\d/
2180 0 0 0 defined $self->socket && (defined $self->{$Package}{'ATTRIB'}{'oob_ip'} && $self->socket->peerhost eq $self->{$Package}{'ATTRIB'}{'oob_ip'} || defined $self->{$Package}{'ATTRIB'}{'oob_virt_ip'} && $self->socket->peerhost eq $self->{$Package}{'ATTRIB'}{'oob_virt_ip'})
2194 0 0 0 $$outref =~ /\s1\s+\d{4}\S{2}\s+1\s+CPU\s+(?:\d+\s+){4}/ and $$outref =~ /\s2\s+\d{4}\S{2}\s+1\s+CPU\s+(?:\d+\s+){4}/
2235 0 0 0 defined $self->socket && (defined $self->{$Package}{'ATTRIB'}{'oob_ip'} && $self->socket->peerhost eq $self->{$Package}{'ATTRIB'}{'oob_ip'} || defined $self->{$Package}{'ATTRIB'}{'oob_virt_ip'} && $self->socket->peerhost eq $self->{$Package}{'ATTRIB'}{'oob_virt_ip'})
2354 0 0 0 defined $self->socket && (defined $self->{$Package}{'ATTRIB'}{'oob_ip'} && $self->socket->peerhost eq $self->{$Package}{'ATTRIB'}{'oob_ip'})
2595 0 0 0 @_ and not %args
2666 0 0 0 $changeBaud->{'maxMode'} and not defined $self->{$Package}{'ATTRIB'}{'max_baud'}
2717 0 0 0 $familyType eq $Prm{'pers'} and $self->{$Package}{'ATTRIB'}{'is_nncli'}
2761 0 0 0 length $self->{'POLL'}{'read_buffer'} and $self->{'POLL'}{'read_buffer'} =~ /$self->{$Package}{'prompt_qr'}/
2795 0 0 0 $familyType eq $Prm{'pers'} and $self->{$Package}{'ATTRIB'}{'is_nncli'}
2806 0 0 0 $familyType eq $Prm{'pers'} and $self->{$Package}{'ATTRIB'}{'is_nncli'}
2832 0 0 0 @_ and not %args
2945 0 0 0 @_ and not %args
2980 0 0 0 defined $self->{$Package}{'ATTRIB'}{'model'} and $self->{$Package}{'ATTRIB'}{'model'} =~ /(?:Passport|ERS)-83\d\d/
2991 0 0 0 not $$resref and defined $self->{$Package}{'ATTRIB'}{'model'}
3048 0 0 0 @_ and not %args
3077 0 0 0 $devPeerCpu->{'username'} and $devPeerCpu->{'password'}
3435 0 0 0 defined $1 and !defined($currentSlot) || $1 != $currentSlot
3586 0 0 0 defined $self->baudrate and defined(my $origBaud = $self->{$Package}{'ORIGBAUDRATE'})

or 2 conditions

line l !l condition
1609 0 0 $self->{$Package}{'ATTRIB'}{'family_type'} || ''
1846 0 0 $self->{$Package}{'ATTRIB'}{'family_type'} || ''
2621 0 0 $self->{$Package}{'ATTRIB'}{'family_type'} || ''
2853 0 0 $self->{$Package}{'ATTRIB'}{'family_type'} || ''
2901 0 0 $self->password || ''
2964 0 0 $self->{$Package}{'ATTRIB'}{'family_type'} || ''
3068 0 0 $self->{$Package}{'ATTRIB'}{'family_type'} || ''
3397 0 0 shift() || \''
3398 0 0 shift() || ''
3584 0 0 $self->{$Package}{'ATTRIB'}{'family_type'} || ''

or 3 conditions

line l !l&&r !l&&!r condition
249 0 1 0 ref $invocant || $invocant
514 0 0 0 !$args{'poll_syntax'} || wantarray
573 0 0 0 $blocking || wantarray
608 0 0 0 !$pollSyntax || wantarray
675 0 0 0 !$args{'poll_syntax'} || wantarray
750 0 0 0 !$args{'poll_syntax'} || wantarray
959 0 0 0 ref $fh or length $fh
963 0 0 0 ref $fh or defined fileno $fh
1191 0 0 0 $self->connection_type eq 'SERIAL' || $self->connection_type eq 'TELNET' && $self->port != 23 || $self->connection_type eq 'SSH' && $self->port != 22
1308 0 0 0 $key eq 'banner' or $key eq 'menu'
0 0 0 $key eq 'banner' or $key eq 'menu' or $key eq 'submenu'
0 0 0 $key eq 'ersbanner' or $key eq 'passportbanner'
0 0 0 $key eq 'ersbanner' or $key eq 'passportbanner' or $key eq 'pp1600banner'
1377 0 0 0 $pattern eq 'banner' or $pattern eq 'bell'
1514 0 0 0 $login->{'family_type'} eq $Prm{'bstk'} or defined $cliType and $cliType eq 'nncli'
1524 0 0 0 $login->{'family_type'} eq $Prm{'generic'} or $login->{'detectionFromPrompt'} and not $self->{'LASTPROMPT'} =~ /^@/
1536 0 0 0 $self->{'errmode'} eq 'croak' || $self->{'errmode'} eq 'die'
1542 0 0 0 $login->{'family_type'} eq $Prm{'pers'} or $login->{'family_type'} eq $Prm{'xlr'}
1635 0 0 0 $cmd->{'alreadyCmdTimeout'} or not length $familyType
0 0 0 $cmd->{'alreadyCmdTimeout'} or not length $familyType or $familyType eq $Prm{'generic'}
1774 0 0 0 $cmd->{'more_pages'} == 0 or $cmd->{'more_pages'}-- > 1
1854 0 0 0 $attrib->{'attribute'} eq 'family_type' or $attrib->{'attribute'} eq 'is_nncli'
0 0 0 $attrib->{'attribute'} eq 'family_type' or $attrib->{'attribute'} eq 'is_nncli' or $attrib->{'attribute'} eq 'is_acli'
0 0 0 $attrib->{'attribute'} eq 'family_type' or $attrib->{'attribute'} eq 'is_nncli' or $attrib->{'attribute'} eq 'is_acli' or $attrib->{'attribute'} eq 'is_master_cpu'
0 0 0 $attrib->{'attribute'} eq 'family_type' or $attrib->{'attribute'} eq 'is_nncli' or $attrib->{'attribute'} eq 'is_acli' or $attrib->{'attribute'} eq 'is_master_cpu' or $attrib->{'attribute'} eq 'cpu_slot'
2013 0 0 0 $attrib->{'attribute'} eq 'is_dual_cpu' or $attrib->{'attribute'} eq 'base_mac'
2047 0 0 0 $$outref =~ /CP.+ dormant / or $$outref =~ /\s1\s+\d{4}\S{2}\s+1\s+CPU\s+(?:\d+\s+){4}/ and $$outref =~ /\s2\s+\d{4}\S{2}\s+1\s+CPU\s+(?:\d+\s+){4}/
2065 0 0 0 $attrib->{'attribute'} eq 'model' or $attrib->{'attribute'} eq 'sysname'
0 0 0 $attrib->{'attribute'} eq 'model' or $attrib->{'attribute'} eq 'sysname' or $attrib->{'attribute'} eq 'is_apls'
0 0 0 $attrib->{'attribute'} eq 'model' or $attrib->{'attribute'} eq 'sysname' or $attrib->{'attribute'} eq 'is_apls' or $attrib->{'attribute'} eq 'is_voss'
0 0 0 $attrib->{'attribute'} eq 'model' or $attrib->{'attribute'} eq 'sysname' or $attrib->{'attribute'} eq 'is_apls' or $attrib->{'attribute'} eq 'is_voss' or $attrib->{'attribute'} eq 'apls_box_type'
0 0 0 $attrib->{'attribute'} eq 'model' or $attrib->{'attribute'} eq 'sysname' or $attrib->{'attribute'} eq 'is_apls' or $attrib->{'attribute'} eq 'is_voss' or $attrib->{'attribute'} eq 'apls_box_type' or $attrib->{'attribute'} eq 'brand_name'
0 0 0 $attrib->{'attribute'} eq 'slots' || $attrib->{'attribute'} eq 'ports'
0 0 0 $attrib->{'attribute'} eq 'model' or $attrib->{'attribute'} eq 'sysname' or $attrib->{'attribute'} eq 'is_apls' or $attrib->{'attribute'} eq 'is_voss' or $attrib->{'attribute'} eq 'apls_box_type' or $attrib->{'attribute'} eq 'brand_name' or not $self->{$Package}{'ATTRIBFLAG'}{'model'} and $attrib->{'attribute'} eq 'slots' || $attrib->{'attribute'} eq 'ports'
0 0 0 $attrib->{'attribute'} eq 'model' or $attrib->{'attribute'} eq 'sysname' or $attrib->{'attribute'} eq 'is_apls' or $attrib->{'attribute'} eq 'is_voss' or $attrib->{'attribute'} eq 'apls_box_type' or $attrib->{'attribute'} eq 'brand_name' or not $self->{$Package}{'ATTRIBFLAG'}{'model'} and $attrib->{'attribute'} eq 'slots' || $attrib->{'attribute'} eq 'ports' or not $self->{$Package}{'ATTRIBFLAG'}{'is_voss'} and $attrib->{'attribute'} =~ /^(?:is_)?oob_/
2100 0 0 0 $$outref =~ /CP.+ dormant / or $$outref =~ /\s1\s+\d{4}\S{2}\s+1\s+CPU\s+(?:\d+\s+){4}/ and $$outref =~ /\s2\s+\d{4}\S{2}\s+1\s+CPU\s+(?:\d+\s+){4}/
2110 0 0 0 $attrib->{'attribute'} eq 'model' or $attrib->{'attribute'} eq 'sysname'
0 0 0 $attrib->{'attribute'} eq 'model' or $attrib->{'attribute'} eq 'sysname' or $attrib->{'attribute'} eq 'is_apls'
0 0 0 $attrib->{'attribute'} eq 'model' or $attrib->{'attribute'} eq 'sysname' or $attrib->{'attribute'} eq 'is_apls' or $attrib->{'attribute'} eq 'is_voss'
0 0 0 $attrib->{'attribute'} eq 'model' or $attrib->{'attribute'} eq 'sysname' or $attrib->{'attribute'} eq 'is_apls' or $attrib->{'attribute'} eq 'is_voss' or $attrib->{'attribute'} eq 'apls_box_type'
0 0 0 $attrib->{'attribute'} eq 'model' or $attrib->{'attribute'} eq 'sysname' or $attrib->{'attribute'} eq 'is_apls' or $attrib->{'attribute'} eq 'is_voss' or $attrib->{'attribute'} eq 'apls_box_type' or $attrib->{'attribute'} eq 'brand_name'
2119 0 0 0 $attrib->{'attribute'} eq 'slots' or $attrib->{'attribute'} eq 'ports'
2194 0 0 0 $$outref =~ /CP.+ dormant / or $$outref =~ /\s1\s+\d{4}\S{2}\s+1\s+CPU\s+(?:\d+\s+){4}/ and $$outref =~ /\s2\s+\d{4}\S{2}\s+1\s+CPU\s+(?:\d+\s+){4}/
2269 0 0 0 $attrib->{'attribute'} eq 'fw_version' or $attrib->{'attribute'} eq 'sw_version'
0 0 0 $attrib->{'attribute'} eq 'fw_version' or $attrib->{'attribute'} eq 'sw_version' or $attrib->{'attribute'} eq 'switch_mode'
0 0 0 $attrib->{'attribute'} eq 'fw_version' or $attrib->{'attribute'} eq 'sw_version' or $attrib->{'attribute'} eq 'switch_mode' or $attrib->{'attribute'} eq 'unit_number'
0 0 0 $attrib->{'attribute'} eq 'fw_version' or $attrib->{'attribute'} eq 'sw_version' or $attrib->{'attribute'} eq 'switch_mode' or $attrib->{'attribute'} eq 'unit_number' or $attrib->{'attribute'} eq 'base_unit'
0 0 0 $attrib->{'attribute'} eq 'fw_version' or $attrib->{'attribute'} eq 'sw_version' or $attrib->{'attribute'} eq 'switch_mode' or $attrib->{'attribute'} eq 'unit_number' or $attrib->{'attribute'} eq 'base_unit' or $attrib->{'attribute'} eq 'stack_size'
0 0 0 $attrib->{'attribute'} eq 'fw_version' or $attrib->{'attribute'} eq 'sw_version' or $attrib->{'attribute'} eq 'switch_mode' or $attrib->{'attribute'} eq 'unit_number' or $attrib->{'attribute'} eq 'base_unit' or $attrib->{'attribute'} eq 'stack_size' or $attrib->{'attribute'} eq 'model'
0 0 0 $attrib->{'attribute'} eq 'fw_version' or $attrib->{'attribute'} eq 'sw_version' or $attrib->{'attribute'} eq 'switch_mode' or $attrib->{'attribute'} eq 'unit_number' or $attrib->{'attribute'} eq 'base_unit' or $attrib->{'attribute'} eq 'stack_size' or $attrib->{'attribute'} eq 'model' or $attrib->{'attribute'} eq 'sysname'
0 0 0 $attrib->{'attribute'} eq 'fw_version' or $attrib->{'attribute'} eq 'sw_version' or $attrib->{'attribute'} eq 'switch_mode' or $attrib->{'attribute'} eq 'unit_number' or $attrib->{'attribute'} eq 'base_unit' or $attrib->{'attribute'} eq 'stack_size' or $attrib->{'attribute'} eq 'model' or $attrib->{'attribute'} eq 'sysname' or $attrib->{'attribute'} eq 'base_mac'
2301 0 0 0 $attrib->{'attribute'} eq 'slots' or $attrib->{'attribute'} eq 'ports'
2339 0 0 0 $attrib->{'attribute'} eq 'mgmt_ip' or $attrib->{'attribute'} eq 'oob_ip'
0 0 0 $attrib->{'attribute'} eq 'mgmt_ip' or $attrib->{'attribute'} eq 'oob_ip' or $attrib->{'attribute'} eq 'is_oob_connected'
2381 0 0 0 not defined $baudRate or $1 > $baudRate
2400 0 0 0 $attrib->{'attribute'} eq 'fw_version' or $attrib->{'attribute'} eq 'sw_version'
2412 0 0 0 $attrib->{'attribute'} eq 'slots' or $attrib->{'attribute'} eq 'ports'
2458 0 0 0 $attrib->{'attribute'} eq 'model' or $attrib->{'attribute'} eq 'sysname'
0 0 0 $attrib->{'attribute'} eq 'model' or $attrib->{'attribute'} eq 'sysname' or $attrib->{'attribute'} eq 'base_mac'
2471 0 0 0 $attrib->{'attribute'} eq 'fw_version' or $attrib->{'attribute'} eq 'sw_version'
2483 0 0 0 $attrib->{'attribute'} eq 'slots' or $attrib->{'attribute'} eq 'ports'
2496 0 0 0 $attrib->{'attribute'} eq 'model' or $attrib->{'attribute'} eq 'fw_version'
0 0 0 $attrib->{'attribute'} eq 'model' or $attrib->{'attribute'} eq 'fw_version' or $attrib->{'attribute'} eq 'sw_version'
2509 0 0 0 $attrib->{'attribute'} eq 'is_dual_cpu' or $attrib->{'attribute'} eq 'sysname'
2527 0 0 0 $attrib->{'attribute'} eq 'slots' or $attrib->{'attribute'} eq 'ports'
2541 0 0 0 $attrib->{'attribute'} eq 'model' or $attrib->{'attribute'} eq 'base_mac'
0 0 0 $attrib->{'attribute'} eq 'model' or $attrib->{'attribute'} eq 'base_mac' or $attrib->{'attribute'} eq 'fw_version'
0 0 0 $attrib->{'attribute'} eq 'model' or $attrib->{'attribute'} eq 'base_mac' or $attrib->{'attribute'} eq 'fw_version' or $attrib->{'attribute'} eq 'sw_version'
2566 0 0 0 $attrib->{'attribute'} eq 'slots' or $attrib->{'attribute'} eq 'ports'
2683 0 0 0 $changeBaud->{'baudrate'} == 9600 or $changeBaud->{'baudrate'} == 19200
0 0 0 $changeBaud->{'baudrate'} == 9600 or $changeBaud->{'baudrate'} == 19200 or $changeBaud->{'baudrate'} == 38400
2688 0 0 0 $changeBaud->{'baudrate'} == 9600 or $changeBaud->{'baudrate'} == 19200
0 0 0 $changeBaud->{'baudrate'} == 9600 or $changeBaud->{'baudrate'} == 19200 or $changeBaud->{'baudrate'} == 38400
0 0 0 $changeBaud->{'baudrate'} == 9600 or $changeBaud->{'baudrate'} == 19200 or $changeBaud->{'baudrate'} == 38400 or $changeBaud->{'baudrate'} == 57600
0 0 0 $changeBaud->{'baudrate'} == 9600 or $changeBaud->{'baudrate'} == 19200 or $changeBaud->{'baudrate'} == 38400 or $changeBaud->{'baudrate'} == 57600 or $changeBaud->{'baudrate'} == 115200
2967 0 0 0 $familyType eq $Prm{'pers'} or $familyType eq $Prm{'xlr'}
3077 0 0 0 $devPeerCpu->{'username'} and $devPeerCpu->{'password'} or $devPeerCpu->{'prompt_credentials'}
3435 0 0 0 !defined($currentSlot) || $1 != $currentSlot
3490 0 0 0 $self->{$Package}{'ATTRIB'}{'is_apls'} or $model =~ /^VSP/
3533 0 0 0 $attrib eq 'is_nncli' or $attrib eq 'is_acli'