| line |
true |
false |
branch |
|
506
|
0 |
18 |
unless $s->isa('HH::Unispool::Config::File::Token::Numbered::Device::5') |
|
519
|
17 |
36 |
if (not $tok->isa('HH::Unispool::Config::File::Token::Numbered') or $tok->get_number != $s->get_number) { } |
|
|
18 |
18 |
elsif ($tok->isa('HH::Unispool::Config::File::Token::Numbered::X')) { } |
|
|
18 |
0 |
elsif ($tok->isa('HH::Unispool::Config::File::Token::Numbered::Device::Info')) { } |
|
524
|
0 |
18 |
if defined $x |
|
531
|
0 |
18 |
if defined $i |
|
546
|
20 |
0 |
defined $_[0] ? : |
|
549
|
0 |
20 |
unless ref $opt eq 'HASH' |
|
552
|
18 |
2 |
if exists $$opt{'header_name'} |
|
555
|
0 |
20 |
unless exists $$opt{'remote_device_name'} |
|
559
|
0 |
20 |
unless exists $$opt{'remote_system_name'} |
|
563
|
18 |
2 |
if exists $$opt{'trailer_name'} |
|
576
|
0 |
0 |
unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name}) |
|
584
|
0 |
76 |
if (ref $val and exists $ALLOW_ISA{$name}) |
|
586
|
0 |
0 |
if &UNIVERSAL::isa($val, $class) |
|
591
|
0 |
76 |
if (ref $val and exists $ALLOW_REF{$name}) |
|
592
|
0 |
0 |
if exists $ALLOW_REF{$name}{ref $val} |
|
596
|
76 |
0 |
if (defined $val and not ref $val and exists $ALLOW_RX{$name}) |
|
598
|
76 |
0 |
if $val =~ /$rx/ |
|
603
|
0 |
0 |
if (not ref $val and exists $ALLOW_VALUE{$name}) |
|
604
|
0 |
0 |
if exists $ALLOW_VALUE{$name}{$val} |
|
619
|
0 |
5 |
unless defined $diff_number |
|
622
|
0 |
5 |
if (ref $from ne ref $to) |
|
633
|
0 |
5 |
if ($from->get_header_name ne $to->get_header_name) |
|
643
|
0 |
5 |
if ($from->get_remote_device_name ne $to->get_remote_device_name) |
|
653
|
0 |
5 |
if ($from->get_remote_system_name ne $to->get_remote_system_name) |
|
663
|
0 |
5 |
if ($from->get_trailer_name ne $to->get_trailer_name) |
|
705
|
0 |
18 |
unless &_value_is_allowed('header_name', $val) |
|
716
|
0 |
20 |
unless defined $val |
|
719
|
0 |
20 |
unless &_value_is_allowed('remote_device_name', $val) |
|
730
|
0 |
20 |
unless defined $val |
|
733
|
0 |
20 |
unless &_value_is_allowed('remote_system_name', $val) |
|
744
|
0 |
18 |
unless &_value_is_allowed('trailer_name', $val) |