| line |
true |
false |
branch |
|
428
|
48 |
0 |
defined $_[0] ? : |
|
431
|
0 |
48 |
unless ref $opt eq 'HASH' |
|
434
|
48 |
0 |
if exists $$opt{'device_token'} |
|
437
|
21 |
27 |
if exists $$opt{'os'} |
|
440
|
18 |
30 |
if exists $$opt{'protocol'} |
|
443
|
0 |
48 |
unless exists $$opt{'remote_node_name'} |
|
447
|
18 |
30 |
if exists $$opt{'server_tcp_port'} |
|
450
|
12 |
36 |
if exists $$opt{'transfer_size'} |
|
453
|
12 |
36 |
if exists $$opt{'transfer_time_out'} |
|
466
|
0 |
41 |
unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name}) |
|
474
|
69 |
298 |
if (ref $val and exists $ALLOW_ISA{$name}) |
|
476
|
69 |
0 |
if &UNIVERSAL::isa($val, $class) |
|
481
|
0 |
298 |
if (ref $val and exists $ALLOW_REF{$name}) |
|
482
|
0 |
0 |
if exists $ALLOW_REF{$name}{ref $val} |
|
486
|
257 |
41 |
if (defined $val and not ref $val and exists $ALLOW_RX{$name}) |
|
488
|
257 |
0 |
if $val =~ /$rx/ |
|
493
|
41 |
0 |
if (not ref $val and exists $ALLOW_VALUE{$name}) |
|
494
|
41 |
0 |
if exists $ALLOW_VALUE{$name}{$val} |
|
544
|
20 |
38 |
if ($$self{'HH_Unispool_Config_File_Token_Numbered_Network'}{'device_token'}) { } |
|
558
|
0 |
94 |
unless defined $number |
|
561
|
0 |
94 |
if scalar @tail > 3 |
|
565
|
94 |
0 |
if defined $remote_node_name |
|
567
|
23 |
71 |
if (defined $tail[1] and $tail[1] eq 'SERVER') { } |
|
569
|
23 |
0 |
if defined $tail[0] |
|
570
|
23 |
0 |
if defined $tail[2] |
|
574
|
48 |
0 |
if (defined $tail[0] and $tail[0]) |
|
578
|
25 |
46 |
if defined $tail[1] |
|
579
|
25 |
46 |
if defined $tail[2] |
|
586
|
41 |
101 |
if (shift()) { } |
|
599
|
0 |
69 |
unless &_value_is_allowed('os', $val) |
|
610
|
0 |
41 |
unless &_value_is_allowed('protocol', $val) |
|
621
|
0 |
142 |
unless &_value_is_allowed('remote_node_name', $val) |
|
632
|
0 |
41 |
unless &_value_is_allowed('server_tcp_port', $val) |
|
643
|
0 |
37 |
unless &_value_is_allowed('transfer_size', $val) |
|
654
|
0 |
37 |
unless &_value_is_allowed('transfer_time_out', $val) |
|
664
|
20 |
38 |
if $self->is_device_token |
|
674
|
16 |
22 |
if (defined $self->get_os and defined $self->get_transfer_size and $self->get_transfer_size or defined $self->get_transfer_time_out and $self->get_transfer_time_out) |
|
686
|
11 |
11 |
if (defined $self->get_os) |