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
374 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'}
388 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == 'Control::CLI::AvayaData'->can('connect_poll')
396 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
457 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == 'Control::CLI::AvayaData'->can('login_poll')
465 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
521 0 0 0 $args{'reset_prompt'} && defined $self->{$Package}{'PROMPTTYPE'}
552 0 0 0 lc $_[0] ne 'command' and lc $_[0] ne 'poll_syntax'
563 0 0 0 $args[$i] eq 'feed_list' and ref $args[$i + 1] eq 'ARRAY'
615 0 0 0 $reset_prompt && defined $self->{$Package}{'PROMPTTYPE'}
636 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == 'Control::CLI::AvayaData'->can('cmd_poll')
644 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
703 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == 'Control::CLI::AvayaData'->can('attribute_poll')
711 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
778 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == 'Control::CLI::AvayaData'->can('change_baudrate_poll')
786 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
838 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == 'Control::CLI::AvayaData'->can('enable_poll')
845 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
894 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == 'Control::CLI::AvayaData'->can('device_more_paging_poll')
901 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
946 0 0 0 defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == 'Control::CLI::AvayaData'->can('device_peer_cpu_poll')
953 0 0 0 defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0
1137 0 0 0 @_ and not %args
1236 0 0 0 @_ and not %args
1280 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'}
1354 0 0 0 defined $cliType and $cliType eq 'nncli'
1535 0 0 0 $login->{'detectionFromPrompt'} and not $self->{'LASTPROMPT'} =~ /^@/
1547 0 0 0 $login->{'family_type'} eq $Prm{'generic'} and $self->{'errmode'} eq 'croak' || $self->{'errmode'} eq 'die'
1580 0 0 0 @_ and not %args
1584 0 0 0 defined $args{'feed_list'} and !ref($args{'feed_list'}) eq 'ARRAY'
1611 0 0 0 $args{'reset_prompt'} && defined $self->{$Package}{'PROMPTTYPE'}
1628 0 0 0 $command =~ /\?\s*$/ and $self->{$Package}{'ATTRIB'}{'is_nncli'}
1644 0 0 0 defined $ok and $ok == 0
1746 0 0 0 length $cmd->{'lastLine'} and $self->{'POLL'}{'local_buffer'} =~ s/\n\n$/\n/
1764 0 0 0 $newLineLastLine and not length $cmd->{'lastLine'}
1770 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'})$/
1777 0 0 0 $cmd->{'more_prompt'} and $cmd->{'lastLine'} =~ s/(?:$cmd->{'more_prompt'})$//
1798 0 0 0 $cmd->{'yn_prompt'} and $cmd->{'lastLine'} =~ /$cmd->{'yn_prompt'}/
1808 0 0 0 $cmd->{'cmd_prompt'} and $cmd->{'lastLine'} =~ /$cmd->{'cmd_prompt'}/
1837 0 0 0 @_ and not %args
2059 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}/
2077 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_/
2113 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}/
2133 0 0 0 $self->{$Package}{'ATTRIB'}{'is_nncli'} and $self->{$Package}{'ATTRIB'}{'model'} =~ /(?:Passport|ERS)-8[36]\d\d/
2193 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'})
2207 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}/
2248 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'})
2367 0 0 0 defined $self->socket && (defined $self->{$Package}{'ATTRIB'}{'oob_ip'} && $self->socket->peerhost eq $self->{$Package}{'ATTRIB'}{'oob_ip'})
2608 0 0 0 @_ and not %args
2679 0 0 0 $changeBaud->{'maxMode'} and not defined $self->{$Package}{'ATTRIB'}{'max_baud'}
2730 0 0 0 $familyType eq $Prm{'pers'} and $self->{$Package}{'ATTRIB'}{'is_nncli'}
2774 0 0 0 length $self->{'POLL'}{'read_buffer'} and $self->{'POLL'}{'read_buffer'} =~ /$self->{$Package}{'prompt_qr'}/
2808 0 0 0 $familyType eq $Prm{'pers'} and $self->{$Package}{'ATTRIB'}{'is_nncli'}
2819 0 0 0 $familyType eq $Prm{'pers'} and $self->{$Package}{'ATTRIB'}{'is_nncli'}
2845 0 0 0 @_ and not %args
2958 0 0 0 @_ and not %args
2993 0 0 0 defined $self->{$Package}{'ATTRIB'}{'model'} and $self->{$Package}{'ATTRIB'}{'model'} =~ /(?:Passport|ERS)-83\d\d/
3004 0 0 0 not $$resref and defined $self->{$Package}{'ATTRIB'}{'model'}
3061 0 0 0 @_ and not %args
3090 0 0 0 $devPeerCpu->{'username'} and $devPeerCpu->{'password'}
3448 0 0 0 defined $1 and !defined($currentSlot) || $1 != $currentSlot
3602 0 0 0 defined $self->baudrate and defined(my $origBaud = $self->{$Package}{'ORIGBAUDRATE'})

or 2 conditions

line l !l condition
1620 0 0 $self->{$Package}{'ATTRIB'}{'family_type'} || ''
1857 0 0 $self->{$Package}{'ATTRIB'}{'family_type'} || ''
2634 0 0 $self->{$Package}{'ATTRIB'}{'family_type'} || ''
2866 0 0 $self->{$Package}{'ATTRIB'}{'family_type'} || ''
2914 0 0 $self->password || ''
2977 0 0 $self->{$Package}{'ATTRIB'}{'family_type'} || ''
3081 0 0 $self->{$Package}{'ATTRIB'}{'family_type'} || ''
3410 0 0 shift() || \''
3411 0 0 shift() || ''
3600 0 0 $self->{$Package}{'ATTRIB'}{'family_type'} || ''

or 3 conditions

line l !l&&r !l&&!r condition
255 0 1 0 ref $invocant || $invocant
522 0 0 0 !$args{'poll_syntax'} || wantarray
581 0 0 0 $blocking || wantarray
616 0 0 0 !$pollSyntax || wantarray
683 0 0 0 !$args{'poll_syntax'} || wantarray
758 0 0 0 !$args{'poll_syntax'} || wantarray
967 0 0 0 ref $fh or length $fh
971 0 0 0 ref $fh or defined fileno $fh
1202 0 0 0 $self->connection_type eq 'SERIAL' || $self->connection_type eq 'TELNET' && $self->port != 23 || $self->connection_type eq 'SSH' && $self->port != 22
1354 0 0 0 $login->{'family_type'} eq $Prm{'bstk'} or defined $cliType and $cliType eq 'nncli'
1372 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'
1441 0 0 0 $pattern eq 'banner' or $pattern eq 'bell'
1535 0 0 0 $login->{'family_type'} eq $Prm{'generic'} or $login->{'detectionFromPrompt'} and not $self->{'LASTPROMPT'} =~ /^@/
1547 0 0 0 $self->{'errmode'} eq 'croak' || $self->{'errmode'} eq 'die'
1553 0 0 0 $login->{'family_type'} eq $Prm{'pers'} or $login->{'family_type'} eq $Prm{'xlr'}
1646 0 0 0 $cmd->{'alreadyCmdTimeout'} or not length $familyType
0 0 0 $cmd->{'alreadyCmdTimeout'} or not length $familyType or $familyType eq $Prm{'generic'}
1785 0 0 0 $cmd->{'more_pages'} == 0 or $cmd->{'more_pages'}-- > 1
1865 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'
2024 0 0 0 $attrib->{'attribute'} eq 'is_dual_cpu' or $attrib->{'attribute'} eq 'base_mac'
2059 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}/
2077 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_/
2113 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}/
2123 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'
2132 0 0 0 $attrib->{'attribute'} eq 'slots' or $attrib->{'attribute'} eq 'ports'
2207 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}/
2282 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'
2314 0 0 0 $attrib->{'attribute'} eq 'slots' or $attrib->{'attribute'} eq 'ports'
2352 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'
2394 0 0 0 not defined $baudRate or $1 > $baudRate
2413 0 0 0 $attrib->{'attribute'} eq 'fw_version' or $attrib->{'attribute'} eq 'sw_version'
2425 0 0 0 $attrib->{'attribute'} eq 'slots' or $attrib->{'attribute'} eq 'ports'
2471 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'
2484 0 0 0 $attrib->{'attribute'} eq 'fw_version' or $attrib->{'attribute'} eq 'sw_version'
2496 0 0 0 $attrib->{'attribute'} eq 'slots' or $attrib->{'attribute'} eq 'ports'
2509 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'
2522 0 0 0 $attrib->{'attribute'} eq 'is_dual_cpu' or $attrib->{'attribute'} eq 'sysname'
2540 0 0 0 $attrib->{'attribute'} eq 'slots' or $attrib->{'attribute'} eq 'ports'
2554 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'
2579 0 0 0 $attrib->{'attribute'} eq 'slots' or $attrib->{'attribute'} eq 'ports'
2696 0 0 0 $changeBaud->{'baudrate'} == 9600 or $changeBaud->{'baudrate'} == 19200
0 0 0 $changeBaud->{'baudrate'} == 9600 or $changeBaud->{'baudrate'} == 19200 or $changeBaud->{'baudrate'} == 38400
2701 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
2980 0 0 0 $familyType eq $Prm{'pers'} or $familyType eq $Prm{'xlr'}
3090 0 0 0 $devPeerCpu->{'username'} and $devPeerCpu->{'password'} or $devPeerCpu->{'prompt_credentials'}
3448 0 0 0 !defined($currentSlot) || $1 != $currentSlot
3506 0 0 0 $self->{$Package}{'ATTRIB'}{'is_apls'} or $model =~ /^VSP/
3549 0 0 0 $attrib eq 'is_nncli' or $attrib eq 'is_acli'