Branch Coverage

blib/lib/CPM.pm
Criterion Covered Total %
branch 0 374 0.0


line true false branch
30 0 0 if (defined $$self{-'config'}) { }
34 0 0 if ($@)
47 0 0 unless open OUTFILE, '>' . $self->{'config'}
62 0 0 if defined $properties{'-type'}
65 0 0 unless (defined $session)
68 0 0 if (not defined $result->{$oid}) { }
70 0 0 if ($type eq 'MAC') { }
0 0 elsif ($type eq 'SN') { }
79 0 0 if (length $result->{$oid} < 5) { }
0 0 elsif ($result->{$oid} =~ /X{5,}/) { }
82 0 0 if ($result->{$oid} =~ /0x.*/)
87 0 0 if ($result->{$oid} =~ /0x.*/)
100 0 0 unless (defined $session)
111 0 0 if ($result) { }
130 0 0 if (not defined $sock) { }
154 0 0 if (ord $ch > 31 and ord $ch < 127)
165 0 0 if ($self->_ping)
168 0 0 if ($self->_osocket > 0)
183 0 0 if (($value = $self->request('.1.3.6.1.4.1.11.2.3.9.4.2.1.1.3.3.0', -'type', 'SN')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.2.1.43.5.1.1.17.1', -'type', 'SN')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.1248.1.2.2.1.1.1.5.1', -'type', 'SN')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.1347.43.5.1.1.28.1', -'type', 'SN')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.2001.1.1.1.1.11.1.10.45.0', -'type', 'SN')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.23.2.32.4.3.0', -'type', 'SN')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.253.8.53.3.2.1.3.1', -'type', 'SN')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.367.3.2.1.2.1.4.0', -'type', 'SN')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.367.3.2.1.6.1.1.7.1', -'type', 'SN')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.641.2.1.2.1.6.1', -'type', 'SN')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.2435.2.3.9.4.2.1.5.5.1.0', -'type', 'SN')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.2.1.2.2.1.6.1', -'type', 'MAC')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.2.1.2.2.1.6.2', -'type', 'MAC')) ne 'UnknownOID') { }
209 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.10.2.1.4.1.1')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.641.2.1.5.1.0')) ne 'UnknownOID') { }
213 0 0 if (($value = $self->request('.1.3.6.1.4.1.11.2.3.9.4.2.1.4.1.2.7.0')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.1248.1.2.2.27.1.1.4.1.1')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.1347.42.2.2.1.1.3.1.2')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.253.8.53.13.2.1.6.1.20.33')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.367.3.2.1.2.19.5.1.9.12')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.367.3.2.1.2.19.5.1.9.13')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.367.3.2.1.2.19.5.1.9.21')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.367.3.2.1.2.19.5.1.9.5')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.367.3.2.1.3.2.3.2.1.4.128.1')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.641.2.1.5.3.0')) ne 'UnknownOID') { }
225 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.8.1.1')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.2001.1.1.1.1.100.3.1.1.4.1')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.367.3.2.1.2.20.2.2.1.9.2.3')) ne 'UnknownOID') { }
228 0 0 if ($host->{'MC1'} == 0)
231 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.9.1.1')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.2001.1.1.1.1.100.3.1.1.3.1')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.253.8.53.20.2.1.7.2.1.4.20.3')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.367.3.2.1.2.24.1.1.5.1')) ne 'UnknownOID') { }
237 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.8.1.2')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.2001.1.1.1.1.100.3.1.1.4.2')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.367.3.2.1.2.20.2.2.1.9.2.3')) ne 'UnknownOID') { }
240 0 0 if ($host->{'MC2'} == 0)
243 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.9.1.2')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.2001.1.1.1.1.100.3.1.1.3.2')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.253.8.53.20.2.1.7.2.1.1.20.3')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.367.3.2.1.2.24.1.1.5.2')) ne 'UnknownOID') { }
249 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.8.1.3')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.2001.1.1.1.1.100.3.1.1.4.3')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.367.3.2.1.2.20.2.2.1.9.2.3')) ne 'UnknownOID') { }
252 0 0 if ($host->{'MC3'} == 0)
255 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.9.1.3')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.2001.1.1.1.1.100.3.1.1.3.3')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.253.8.53.20.2.1.7.2.1.2.20.3')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.367.3.2.1.2.24.1.1.5.3')) ne 'UnknownOID') { }
261 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.8.1.4')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.2001.1.1.1.1.100.3.1.1.4.4')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.367.3.2.1.2.20.2.2.1.9.2.3')) ne 'UnknownOID') { }
264 0 0 if ($host->{'MC4'} == 0)
267 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.9.1.4')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.2001.1.1.1.1.100.3.1.1.3.4')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.253.8.53.20.2.1.7.2.1.3.20.3')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.367.3.2.1.2.24.1.1.5.4')) ne 'UnknownOID') { }
273 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.8.1.5')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.8.1.8')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.8.1.11')) ne 'UnknownOID') { }
276 0 0 if ($host->{'MC5'} == 0)
279 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.9.1.5')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.9.1.8')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.9.1.11')) ne 'UnknownOID') { }
284 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.8.1.6')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.8.1.9')) ne 'UnknownOID') { }
286 0 0 if ($host->{'MC6'} == 0)
289 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.9.1.6')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.9.1.9')) ne 'UnknownOID') { }
293 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.8.1.7')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.8.1.10')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.8.1.11')) ne 'UnknownOID') { }
296 0 0 if ($host->{'MC7'} == 0)
299 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.9.1.7')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.9.1.10')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.9.1.11')) ne 'UnknownOID') { }
304 0 0 if (($value = $self->request('.1.3.6.1.2.1.25.3.2.1.3.1')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.2.1.1.1.0')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.11.2.3.9.4.2.1.1.3.2.0')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.1347.43.5.1.1.1.1')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.2001.1.3.1.1.10.1.0')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.23.2.32.4.2.0')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.253.8.53.3.2.1.2.1')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.236.11.5.1.1.1.0')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.1602.1.1.1.1.0')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.1347.43.5.1.1.1.1')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.367.3.2.1.1.1.1.0')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.367.3.2.1.7.2.2.3.0')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.641.2.1.2.1.2.1')) ne 'UnknownOID') { }
319 0 0 if (($value = $self->request('.1.3.6.1.4.1.11.2.3.9.4.2.1.1.3.6.0')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.1248.1.2.2.2.1.1.2.1.3')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.1248.1.2.2.2.1.1.2.1.4')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.1347.43.5.4.1.5.1.1')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.367.3.2.1.6.1.1.4.1')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.4.1.641.1.1.1.0')) ne 'UnknownOID') { }
327 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.16.5.1.2.1.1')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.2.1.43.16.5.1.2.1.2')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.2.1.43.16.5.1.2.1.3')) ne 'UnknownOID') { }
0 0 elsif (($value = $self->request('.1.3.6.1.2.1.43.16.5.1.2.1.4')) ne 'UnknownOID') { }
333 0 0 if (($value = $self->request('.1.3.6.1.2.1.2.2.1.6.1')) ne 'UnknownOID')
337 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.6.1.1')) ne 'UnknownOID')
338 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.6.1.2')) ne 'UnknownOID')
339 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.6.1.3')) ne 'UnknownOID')
340 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.6.1.4')) ne 'UnknownOID')
341 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.6.1.5')) ne 'UnknownOID')
342 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.6.1.6')) ne 'UnknownOID')
343 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.6.1.7')) ne 'UnknownOID')
344 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.6.1.8')) ne 'UnknownOID')
345 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.6.1.9')) ne 'UnknownOID')
346 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.6.1.10')) ne 'UnknownOID')
347 0 0 if (($value = $self->request('.1.3.6.1.2.1.43.11.1.1.6.1.11')) ne 'UnknownOID')
379 0 0 if ($oid =~ /\AMAC/) { }
399 0 0 if defined $properties{'-verbose'}
405 0 0 if $verbose
406 0 0 if (my $sn = $self->checkip)
409 0 0 if $verbose
410 0 0 if $verbose
412 0 0 if ($response->is_success) { }
414 0 0 if $verbose
416 0 0 if ($answer eq 'OK:GEN') { }
0 0 elsif ($answer =~ /OK:OIDL#.*/) { }
0 0 elsif ($answer =~ /OK:MR#.*/) { }
0 0 elsif ($answer =~ /OK:UP#.*/) { }
418 0 0 if $verbose
419 0 0 if (my $host = $self->getgeneric) { }
421 0 0 if $verbose
426 0 0 if $verbose
432 0 0 if $verbose
438 0 0 if $verbose
443 0 0 if $verbose
449 0 0 if $verbose
454 0 0 if $verbose
466 0 0 if defined $properties{'-verbose'}
471 0 0 if defined $self->{'xml'}{'range'}{'from'}
472 0 0 if defined $self->{'xml'}{'range'}{'to'}
476 0 0 if $verbose
477 0 0 if (my $sn = $self->checkip)
480 0 0 if $verbose
482 0 0 if ($response->is_success) { }
485 0 0 if ($answer eq 'OK:GEN') { }
0 0 elsif ($answer =~ /OK:OIDL#.*/) { }
0 0 elsif ($answer =~ /OK:MR#.*/) { }
0 0 elsif ($answer =~ /OK:UP#.*/) { }
487 0 0 if $verbose
488 0 0 if (my $host = $self->getgeneric) { }
491 0 0 if $verbose
495 0 0 if $verbose
501 0 0 if $verbose
507 0 0 if $verbose
512 0 0 if $verbose
518 0 0 if $verbose
532 0 0 if defined $properties{'-verbose'}
545 0 0 if $verbose
547 0 0 if $verbose
555 0 0 if ($oids->{$oid}{'content'} =~ /\AMAC.*/)
559 0 0 if ($oids->{$oid}{'content'} =~ /\AW.*/)
566 0 0 if ($walk eq 'Y') { }
574 0 0 if ($translate eq 'N')
585 0 0 if $verbose
597 0 0 if $verbose
606 0 0 if defined $properties{'-verbose'}
607 0 0 if ($self->{'xml'}{'id'}{'comm'} eq 'call') { }
609 0 0 if $verbose
610 0 0 if ($self->{'xml'}{'id'}{'mode'} eq 'list') { }
612 0 0 if $verbose
617 0 0 if $verbose
623 0 0 if ($self->{'xml'}{'id'}{'mode'} ne 'list')
625 0 0 if $verbose
628 0 0 if $verbose