| line |
true |
false |
branch |
|
846
|
0 |
17 |
unless &UNIVERSAL::isa($cm, 'HH::Unispool::Config::File::Token::Comment::Misc') |
|
852
|
0 |
17 |
unless &UNIVERSAL::isa($h, 'HH::Unispool::Config::File::Token::Unnumbered::Host') |
|
864
|
11 |
6 |
if ($h->get_os) |
|
870
|
11 |
6 |
if ($opt{'name'} ne '_Network_') |
|
873
|
0 |
11 |
unless &UNIVERSAL::isa($m, 'HH::Unispool::Config::File::Token::Unnumbered::Misc') |
|
878
|
11 |
0 |
if defined $m->is_clean_on_weekdays_only |
|
880
|
11 |
0 |
if defined $m->get_date_format |
|
882
|
11 |
0 |
if $m->get_default_printer |
|
885
|
11 |
0 |
if defined $m->get_maximum_delay_time |
|
887
|
0 |
11 |
if $m->get_maximum_print_file_space |
|
889
|
0 |
11 |
if $m->get_maximum_save_file_space |
|
891
|
0 |
11 |
if $m->get_save_groups |
|
893
|
11 |
0 |
if $m->get_save_time_in_days |
|
895
|
0 |
11 |
if $m->get_start_time_clean_job_hour |
|
897
|
11 |
0 |
if $m->get_start_time_clean_job_minute |
|
903
|
0 |
11 |
unless &UNIVERSAL::isa($l, 'HH::Unispool::Config::File::Token::Unnumbered::CSN') |
|
908
|
11 |
0 |
if $l->get_central_console_node |
|
918
|
0 |
17 |
unless &UNIVERSAL::isa($cr, 'HH::Unispool::Config::File::Token::Comment::RSys') |
|
923
|
0 |
17 |
unless $cm->get_net_desc eq $cr->get_net_desc |
|
935
|
17 |
68 |
unless ($tok->isa('HH::Unispool::Config::File::Token::Numbered::System')) |
|
942
|
17 |
51 |
if ($tok->isa('HH::Unispool::Config::File::Token::Numbered::System::3')) { } |
|
|
17 |
34 |
elsif ($tok->isa('HH::Unispool::Config::File::Token::Numbered::System::6')) { } |
|
|
17 |
17 |
elsif ($tok->isa('HH::Unispool::Config::File::Token::Numbered::System::7')) { } |
|
|
17 |
0 |
elsif ($tok->isa('HH::Unispool::Config::File::Token::Numbered::System::8')) { } |
|
972
|
0 |
68 |
if $self->exists_remote_system($name) |
|
979
|
0 |
17 |
unless &UNIVERSAL::isa($cd, 'HH::Unispool::Config::File::Token::Comment::Device') |
|
984
|
0 |
17 |
unless $cm->get_net_desc eq $cd->get_net_desc |
|
997
|
17 |
130 |
unless ($tok->isa('HH::Unispool::Config::File::Token::Numbered::Device')) |
|
1004
|
17 |
113 |
if ($tok->isa('HH::Unispool::Config::File::Token::Numbered::Device::0')) { } |
|
|
17 |
96 |
elsif ($tok->isa('HH::Unispool::Config::File::Token::Numbered::Device::1')) { } |
|
|
17 |
79 |
elsif ($tok->isa('HH::Unispool::Config::File::Token::Numbered::Device::2')) { } |
|
|
11 |
68 |
elsif ($tok->isa('HH::Unispool::Config::File::Token::Numbered::Device::3')) { } |
|
|
17 |
51 |
elsif ($tok->isa('HH::Unispool::Config::File::Token::Numbered::Device::4')) { } |
|
|
17 |
34 |
elsif ($tok->isa('HH::Unispool::Config::File::Token::Numbered::Device::5')) { } |
|
|
17 |
17 |
elsif ($tok->isa('HH::Unispool::Config::File::Token::Numbered::Device::6')) { } |
|
|
17 |
0 |
elsif ($tok->isa('HH::Unispool::Config::File::Token::Numbered::Device::7')) { } |
|
1028
|
0 |
11 |
if exists $dev3{$number} |
|
1062
|
0 |
130 |
if $self->exists_device($name) |
|
1069
|
0 |
17 |
unless &UNIVERSAL::isa($cg, 'HH::Unispool::Config::File::Token::Comment::Group') |
|
1074
|
0 |
17 |
unless $cm->get_net_desc eq $cg->get_net_desc |
|
1087
|
15 |
11 |
unless $tok->isa('HH::Unispool::Config::File::Token::Numbered::Device::Group') |
|
1093
|
0 |
11 |
unless exists $dev3{$number} |
|
1097
|
0 |
11 |
unless defined $dev3{$number} |
|
1110
|
11 |
0 |
unless defined $dev3{$number} |
|
1122
|
36 |
0 |
defined $_[0] ? : |
|
1125
|
0 |
36 |
unless ref $opt eq 'HASH' |
|
1128
|
9 |
27 |
if ($$opt{'name'} eq '_Network_') |
|
1136
|
11 |
25 |
exists $$opt{'central_console_node'} ? : |
|
1139
|
11 |
25 |
exists $$opt{'clean_on_weekdays_only'} ? : |
|
1142
|
12 |
24 |
exists $$opt{'date_format'} ? : |
|
1145
|
11 |
25 |
exists $$opt{'default_printer'} ? : |
|
1148
|
0 |
36 |
if (exists $$opt{'device'}) { } |
|
1149
|
0 |
0 |
unless ref $$opt{'device'} eq 'ARRAY' |
|
1157
|
0 |
36 |
exists $$opt{'diff_number'} ? : |
|
1160
|
0 |
36 |
unless exists $$opt{'local_system_name'} |
|
1164
|
11 |
25 |
exists $$opt{'maximum_delay_time'} ? : |
|
1167
|
0 |
36 |
exists $$opt{'maximum_print_file_space'} ? : |
|
1170
|
0 |
36 |
exists $$opt{'maximum_save_file_space'} ? : |
|
1173
|
0 |
36 |
unless exists $$opt{'network_name'} |
|
1177
|
0 |
36 |
unless exists $$opt{'os'} |
|
1181
|
0 |
36 |
if (exists $$opt{'remote_system'}) { } |
|
1182
|
0 |
0 |
unless ref $$opt{'remote_system'} eq 'ARRAY' |
|
1190
|
0 |
36 |
exists $$opt{'save_groups'} ? : |
|
1193
|
11 |
25 |
exists $$opt{'save_time_in_days'} ? : |
|
1196
|
0 |
36 |
exists $$opt{'start_time_clean_job_hour'} ? : |
|
1199
|
11 |
25 |
exists $$opt{'start_time_clean_job_minute'} ? : |
|
1202
|
3 |
33 |
exists $$opt{'type'} ? : |
|
1215
|
0 |
51 |
unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name}) |
|
1223
|
297 |
447 |
if (ref $val and exists $ALLOW_ISA{$name}) |
|
1225
|
297 |
0 |
if &UNIVERSAL::isa($val, $class) |
|
1230
|
0 |
447 |
if (ref $val and exists $ALLOW_REF{$name}) |
|
1231
|
0 |
0 |
if exists $ALLOW_REF{$name}{ref $val} |
|
1235
|
396 |
51 |
if (defined $val and not ref $val and exists $ALLOW_RX{$name}) |
|
1237
|
396 |
0 |
if $val =~ /$rx/ |
|
1242
|
51 |
0 |
if (not ref $val and exists $ALLOW_VALUE{$name}) |
|
1243
|
51 |
0 |
if exists $ALLOW_VALUE{$name}{$val} |
|
1258
|
0 |
150 |
unless &_value_is_allowed('device', @_) |
|
1270
|
0 |
75 |
unless &_value_is_allowed('remote_system', @_) |
|
1308
|
5 |
0 |
unless defined $diff_number |
|
1311
|
0 |
5 |
if (ref $from ne ref $to) |
|
1322
|
0 |
5 |
if ($from->get_central_console_node ne $to->get_central_console_node) |
|
1331
|
0 |
5 |
if ($from->is_clean_on_weekdays_only != $to->is_clean_on_weekdays_only) |
|
1343
|
0 |
5 |
if ($from->get_default_printer ne $to->get_default_printer) |
|
1352
|
0 |
5 |
if ($from->get_local_system_name ne $to->get_local_system_name) |
|
1361
|
0 |
5 |
if ($from->get_maximum_delay_time ne $to->get_maximum_delay_time) |
|
1370
|
0 |
5 |
if ($from->get_maximum_print_file_space ne $to->get_maximum_print_file_space) |
|
1379
|
0 |
5 |
if ($from->get_maximum_save_file_space ne $to->get_maximum_save_file_space) |
|
1388
|
0 |
5 |
if ($from->get_network_name ne $to->get_network_name) |
|
1397
|
5 |
0 |
if (defined $from->get_os and defined $to->get_os) { } |
|
|
0 |
0 |
elsif (defined $from->get_os) { } |
|
|
0 |
0 |
elsif (defined $to->get_os) { } |
|
1414
|
0 |
5 |
if ($from->get_save_groups ne $to->get_save_groups) |
|
1423
|
0 |
5 |
if ($from->get_save_time_in_days ne $to->get_save_time_in_days) |
|
1432
|
0 |
5 |
if (int $from->get_start_time_clean_job_hour != int $to->get_start_time_clean_job_hour) |
|
1441
|
0 |
5 |
if (int $from->get_start_time_clean_job_minute != int $to->get_start_time_clean_job_minute) |
|
1450
|
0 |
5 |
if ($from->get_type ne $to->get_type) |
|
1460
|
20 |
0 |
if ($to->exists_remote_system($kf)) { } |
|
1471
|
20 |
0 |
if ($from->exists_remote_system($kt)) { } |
|
1483
|
38 |
0 |
if ($to->exists_device($kf)) { } |
|
1494
|
38 |
0 |
if ($from->exists_device($kt)) { } |
|
1617
|
0 |
30 |
if ($$self{'HH_Unispool_Config_Entry_System'}{'clean_on_weekdays_only'}) { } |
|
1628
|
0 |
5 |
if ($$self{'HH_Unispool_Config_Entry_System'}{'diff_number'}) { } |
|
1655
|
0 |
36 |
unless &_value_is_allowed('central_console_node', $val) |
|
1664
|
0 |
36 |
if (shift()) { } |
|
1677
|
0 |
36 |
unless &_value_is_allowed('date_format', $val) |
|
1688
|
0 |
36 |
unless &_value_is_allowed('default_printer', $val) |
|
1698
|
0 |
36 |
unless &_value_is_allowed('device', @_) |
|
1712
|
0 |
36 |
if (shift()) { } |
|
1725
|
0 |
36 |
unless defined $val |
|
1728
|
0 |
36 |
unless &_value_is_allowed('local_system_name', $val) |
|
1739
|
0 |
36 |
unless &_value_is_allowed('maximum_delay_time', $val) |
|
1750
|
0 |
36 |
unless &_value_is_allowed('maximum_print_file_space', $val) |
|
1761
|
0 |
36 |
unless &_value_is_allowed('maximum_save_file_space', $val) |
|
1772
|
0 |
36 |
unless defined $val |
|
1775
|
0 |
36 |
unless &_value_is_allowed('network_name', $val) |
|
1786
|
0 |
36 |
unless defined $val |
|
1789
|
0 |
36 |
unless &_value_is_allowed('os', $val) |
|
1799
|
0 |
36 |
unless &_value_is_allowed('remote_system', @_) |
|
1815
|
0 |
36 |
unless &_value_is_allowed('save_groups', $val) |
|
1826
|
0 |
36 |
unless &_value_is_allowed('save_time_in_days', $val) |
|
1837
|
0 |
36 |
unless &_value_is_allowed('start_time_clean_job_hour', $val) |
|
1848
|
0 |
36 |
unless &_value_is_allowed('start_time_clean_job_minute', $val) |
|
1859
|
0 |
51 |
unless &_value_is_allowed('type', $val) |
|
1868
|
222 |
0 |
if (scalar @_) { } |
|
1871
|
222 |
0 |
if exists $$self{'HH_Unispool_Config_Entry_System'}{'device'}{$key} |
|
1884
|
75 |
0 |
if (scalar @_) { } |
|
1887
|
75 |
0 |
if exists $$self{'HH_Unispool_Config_Entry_System'}{'remote_system'}{$key} |
|
1913
|
20 |
6 |
if $self->get_name ne '_Network_' |
|
1919
|
20 |
6 |
if ($self->get_name ne '_Network_') |
|
2006
|
66 |
7 |
unless $dev->isa('HH::Unispool::Config::Entry::Device::3') |