| line |
true |
false |
branch |
|
670
|
0 |
18 |
unless $s->isa('HH::Unispool::Config::File::Token::Numbered::Device::6') |
|
689
|
17 |
54 |
if (not $tok->isa('HH::Unispool::Config::File::Token::Numbered') or $tok->get_number != $s->get_number) { } |
|
|
18 |
36 |
elsif ($tok->isa('HH::Unispool::Config::File::Token::Numbered::Network')) { } |
|
|
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')) { } |
|
694
|
0 |
18 |
if defined $p |
|
701
|
0 |
18 |
if defined $x |
|
709
|
0 |
18 |
if defined $i |
|
724
|
28 |
0 |
defined $_[0] ? : |
|
727
|
0 |
28 |
unless ref $opt eq 'HASH' |
|
730
|
18 |
10 |
exists $$opt{'block_delay'} ? : |
|
733
|
18 |
10 |
exists $$opt{'connect_retry'} ? : |
|
736
|
18 |
10 |
if exists $$opt{'device_password'} |
|
739
|
19 |
9 |
exists $$opt{'execution_priority'} ? : |
|
742
|
18 |
10 |
if exists $$opt{'header_name'} |
|
745
|
18 |
10 |
exists $$opt{'initially_spooled'} ? : |
|
748
|
18 |
10 |
exists $$opt{'networkwide'} ? : |
|
751
|
18 |
10 |
if exists $$opt{'profile_name'} |
|
754
|
18 |
10 |
exists $$opt{'protocol'} ? : |
|
757
|
0 |
28 |
unless exists $$opt{'remote_node_name'} |
|
761
|
18 |
10 |
exists $$opt{'save_printfile'} ? : |
|
764
|
18 |
10 |
exists $$opt{'server_tcp_port'} ? : |
|
767
|
18 |
10 |
if exists $$opt{'trailer_name'} |
|
780
|
0 |
28 |
unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name}) |
|
788
|
28 |
212 |
if (ref $val and exists $ALLOW_ISA{$name}) |
|
790
|
28 |
0 |
if &UNIVERSAL::isa($val, $class) |
|
795
|
0 |
212 |
if (ref $val and exists $ALLOW_REF{$name}) |
|
796
|
0 |
0 |
if exists $ALLOW_REF{$name}{ref $val} |
|
800
|
184 |
28 |
if (defined $val and not ref $val and exists $ALLOW_RX{$name}) |
|
802
|
184 |
0 |
if $val =~ /$rx/ |
|
807
|
28 |
0 |
if (not ref $val and exists $ALLOW_VALUE{$name}) |
|
808
|
28 |
0 |
if exists $ALLOW_VALUE{$name}{$val} |
|
823
|
0 |
5 |
unless defined $diff_number |
|
826
|
0 |
5 |
if (ref $from ne ref $to) |
|
837
|
0 |
5 |
if ($from->get_block_delay ne $to->get_block_delay) |
|
847
|
0 |
5 |
if ($from->get_connect_retry ne $to->get_connect_retry) |
|
857
|
0 |
5 |
if ($from->get_device_password ne $to->get_device_password) |
|
871
|
0 |
5 |
if ($from->get_header_name ne $to->get_header_name) |
|
881
|
0 |
5 |
if ($from->is_initially_spooled != $to->is_initially_spooled) |
|
891
|
0 |
5 |
if ($from->is_networkwide != $to->is_networkwide) |
|
901
|
0 |
5 |
if ($from->get_profile_name ne $to->get_profile_name) |
|
911
|
0 |
5 |
if ($from->get_protocol ne $to->get_protocol) |
|
921
|
0 |
5 |
if ($from->get_remote_node_name ne $to->get_remote_node_name) |
|
931
|
0 |
5 |
if ($from->is_save_printfile != $to->is_save_printfile) |
|
941
|
0 |
5 |
if ($from->get_server_tcp_port ne $to->get_server_tcp_port) |
|
951
|
0 |
5 |
if ($from->get_trailer_name ne $to->get_trailer_name) |
|
1027
|
28 |
0 |
if ($$self{'HH_Unispool_Config_Entry_Device_6'}{'initially_spooled'}) { } |
|
1038
|
28 |
0 |
if ($$self{'HH_Unispool_Config_Entry_Device_6'}{'networkwide'}) { } |
|
1049
|
0 |
28 |
if ($$self{'HH_Unispool_Config_Entry_Device_6'}{'save_printfile'}) { } |
|
1062
|
0 |
28 |
unless &_value_is_allowed('block_delay', $val) |
|
1073
|
0 |
28 |
unless &_value_is_allowed('connect_retry', $val) |
|
1084
|
0 |
18 |
unless &_value_is_allowed('device_password', $val) |
|
1095
|
0 |
28 |
unless &_value_is_allowed('execution_priority', $val) |
|
1106
|
0 |
18 |
unless &_value_is_allowed('header_name', $val) |
|
1115
|
28 |
0 |
if (shift()) { } |
|
1126
|
28 |
0 |
if (shift()) { } |
|
1139
|
0 |
18 |
unless &_value_is_allowed('profile_name', $val) |
|
1150
|
0 |
28 |
unless &_value_is_allowed('protocol', $val) |
|
1161
|
0 |
28 |
unless &_value_is_allowed('remote_node_name', $val) |
|
1170
|
0 |
28 |
if (shift()) { } |
|
1183
|
0 |
28 |
unless &_value_is_allowed('server_tcp_port', $val) |
|
1194
|
0 |
18 |
unless &_value_is_allowed('trailer_name', $val) |