| line |
true |
false |
branch |
|
507
|
0 |
18 |
unless &UNIVERSAL::isa($s, 'HH::Unispool::Config::File::Token::Numbered::System::8') |
|
512
|
18 |
0 |
if $s->get_number |
|
513
|
18 |
0 |
if $s->get_remote_system_name |
|
514
|
0 |
18 |
if $s->get_block_delay |
|
515
|
18 |
0 |
if $s->is_initially_open |
|
516
|
18 |
0 |
if $s->get_execution_priority |
|
527
|
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')) { } |
|
538
|
0 |
18 |
if defined $i |
|
542
|
18 |
0 |
if $i->get_description |
|
550
|
0 |
18 |
if defined $n |
|
571
|
22 |
0 |
defined $_[0] ? : |
|
574
|
0 |
22 |
unless ref $opt eq 'HASH' |
|
577
|
0 |
22 |
exists $$opt{'block_delay'} ? : |
|
580
|
18 |
4 |
exists $$opt{'initially_open'} ? : |
|
583
|
0 |
22 |
unless exists $$opt{'os'} |
|
587
|
0 |
22 |
unless exists $$opt{'remote_node_name'} |
|
591
|
18 |
4 |
exists $$opt{'transfer_size'} ? : |
|
594
|
18 |
4 |
exists $$opt{'transfer_time_out'} ? : |
|
607
|
0 |
0 |
unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name}) |
|
615
|
22 |
88 |
if (ref $val and exists $ALLOW_ISA{$name}) |
|
617
|
22 |
0 |
if &UNIVERSAL::isa($val, $class) |
|
622
|
0 |
88 |
if (ref $val and exists $ALLOW_REF{$name}) |
|
623
|
0 |
0 |
if exists $ALLOW_REF{$name}{ref $val} |
|
627
|
88 |
0 |
if (defined $val and not ref $val and exists $ALLOW_RX{$name}) |
|
629
|
88 |
0 |
if $val =~ /$rx/ |
|
634
|
0 |
0 |
if (not ref $val and exists $ALLOW_VALUE{$name}) |
|
635
|
0 |
0 |
if exists $ALLOW_VALUE{$name}{$val} |
|
650
|
0 |
5 |
unless defined $diff_number |
|
653
|
0 |
5 |
if (ref $from ne ref $to) |
|
664
|
0 |
5 |
if ($from->get_block_delay ne $to->get_block_delay) |
|
674
|
0 |
5 |
if ($from->is_initially_open != $to->is_initially_open) |
|
687
|
0 |
5 |
if ($from->get_remote_node_name ne $to->get_remote_node_name) |
|
697
|
0 |
5 |
if ($from->get_transfer_size ne $to->get_transfer_size) |
|
707
|
0 |
5 |
if ($from->get_transfer_time_out ne $to->get_transfer_time_out) |
|
753
|
22 |
0 |
if ($$self{'HH_Unispool_Config_Entry_RemoteSystem_8'}{'initially_open'}) { } |
|
766
|
0 |
22 |
unless &_value_is_allowed('block_delay', $val) |
|
775
|
22 |
0 |
if (shift()) { } |
|
788
|
0 |
22 |
unless &_value_is_allowed('os', $val) |
|
799
|
0 |
22 |
unless &_value_is_allowed('remote_node_name', $val) |
|
810
|
0 |
22 |
unless &_value_is_allowed('transfer_size', $val) |
|
821
|
0 |
22 |
unless &_value_is_allowed('transfer_time_out', $val) |