| line |
true |
false |
branch |
|
454
|
0 |
18 |
unless $s->isa('HH::Unispool::Config::File::Token::Numbered::System::6') |
|
458
|
18 |
0 |
if $s->get_number |
|
459
|
18 |
0 |
if $s->get_remote_system_name |
|
460
|
0 |
18 |
if $s->get_block_delay |
|
461
|
18 |
0 |
if $s->is_initially_open |
|
462
|
18 |
0 |
if $s->get_execution_priority |
|
468
|
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::System::Info')) { } |
|
|
18 |
0 |
elsif ($tok->isa('HH::Unispool::Config::File::Token::Numbered::Network')) { } |
|
473
|
0 |
18 |
if defined $i |
|
475
|
18 |
0 |
if $i->get_description |
|
478
|
0 |
18 |
if defined $n |
|
480
|
18 |
0 |
if $n->get_remote_node_name |
|
481
|
18 |
0 |
if $n->get_os |
|
494
|
19 |
0 |
defined $_[0] ? : |
|
497
|
0 |
19 |
unless ref $opt eq 'HASH' |
|
500
|
0 |
19 |
exists $$opt{'block_delay'} ? : |
|
503
|
18 |
1 |
exists $$opt{'initially_open'} ? : |
|
506
|
0 |
19 |
unless exists $$opt{'os'} |
|
510
|
0 |
19 |
unless exists $$opt{'remote_node_name'} |
|
524
|
0 |
0 |
unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name}) |
|
532
|
19 |
38 |
if (ref $val and exists $ALLOW_ISA{$name}) |
|
534
|
19 |
0 |
if &UNIVERSAL::isa($val, $class) |
|
539
|
0 |
38 |
if (ref $val and exists $ALLOW_REF{$name}) |
|
540
|
0 |
0 |
if exists $ALLOW_REF{$name}{ref $val} |
|
544
|
38 |
0 |
if (defined $val and not ref $val and exists $ALLOW_RX{$name}) |
|
546
|
38 |
0 |
if $val =~ /$rx/ |
|
551
|
0 |
0 |
if (not ref $val and exists $ALLOW_VALUE{$name}) |
|
552
|
0 |
0 |
if exists $ALLOW_VALUE{$name}{$val} |
|
567
|
0 |
5 |
unless defined $diff_number |
|
570
|
0 |
5 |
if (ref $from ne ref $to) |
|
581
|
0 |
5 |
if ($from->get_block_delay ne $to->get_block_delay) |
|
591
|
0 |
5 |
if ($from->is_initially_open != $to->is_initially_open) |
|
604
|
0 |
5 |
if ($from->get_remote_node_name ne $to->get_remote_node_name) |
|
638
|
19 |
0 |
if ($$self{'HH_Unispool_Config_Entry_RemoteSystem_6'}{'initially_open'}) { } |
|
651
|
0 |
19 |
unless &_value_is_allowed('block_delay', $val) |
|
660
|
19 |
0 |
if (shift()) { } |
|
673
|
0 |
19 |
unless &_value_is_allowed('os', $val) |
|
684
|
0 |
19 |
unless &_value_is_allowed('remote_node_name', $val) |