| line |
true |
false |
branch |
|
558
|
0 |
18 |
unless $s->isa('HH::Unispool::Config::File::Token::Numbered::Device::0') |
|
577
|
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::Device::P')) { } |
|
|
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')) { } |
|
582
|
0 |
18 |
if defined $p |
|
587
|
0 |
18 |
if defined $x |
|
594
|
0 |
18 |
if defined $i |
|
609
|
19 |
0 |
defined $_[0] ? : |
|
612
|
0 |
19 |
unless ref $opt eq 'HASH' |
|
615
|
0 |
19 |
unless exists $$opt{'device_file'} |
|
619
|
18 |
1 |
if exists $$opt{'device_password'} |
|
622
|
18 |
1 |
exists $$opt{'execution_priority'} ? : |
|
625
|
18 |
1 |
if exists $$opt{'header_name'} |
|
628
|
18 |
1 |
exists $$opt{'initially_spooled'} ? : |
|
631
|
18 |
1 |
exists $$opt{'networkwide'} ? : |
|
634
|
18 |
1 |
exists $$opt{'save_printfile'} ? : |
|
637
|
18 |
1 |
if exists $$opt{'trailer_name'} |
|
640
|
18 |
1 |
exists $$opt{'unispool_control'} ? : |
|
643
|
18 |
1 |
exists $$opt{'unispool_header'} ? : |
|
656
|
0 |
0 |
unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name}) |
|
664
|
19 |
73 |
if (ref $val and exists $ALLOW_ISA{$name}) |
|
666
|
19 |
0 |
if &UNIVERSAL::isa($val, $class) |
|
671
|
0 |
73 |
if (ref $val and exists $ALLOW_REF{$name}) |
|
672
|
0 |
0 |
if exists $ALLOW_REF{$name}{ref $val} |
|
676
|
73 |
0 |
if (defined $val and not ref $val and exists $ALLOW_RX{$name}) |
|
678
|
73 |
0 |
if $val =~ /$rx/ |
|
683
|
0 |
0 |
if (not ref $val and exists $ALLOW_VALUE{$name}) |
|
684
|
0 |
0 |
if exists $ALLOW_VALUE{$name}{$val} |
|
699
|
0 |
5 |
unless defined $diff_number |
|
702
|
0 |
5 |
if (ref $from ne ref $to) |
|
713
|
0 |
5 |
if ($from->get_device_file ne $to->get_device_file) |
|
723
|
0 |
5 |
if ($from->get_device_password ne $to->get_device_password) |
|
737
|
0 |
5 |
if ($from->get_header_name ne $to->get_header_name) |
|
747
|
0 |
5 |
if ($from->is_initially_spooled != $to->is_initially_spooled) |
|
757
|
0 |
5 |
if ($from->is_networkwide != $to->is_networkwide) |
|
767
|
0 |
5 |
if ($from->is_save_printfile != $to->is_save_printfile) |
|
777
|
0 |
5 |
if ($from->get_trailer_name ne $to->get_trailer_name) |
|
787
|
0 |
5 |
if ($from->is_unispool_control != $to->is_unispool_control) |
|
797
|
0 |
5 |
if ($from->is_unispool_header != $to->is_unispool_header) |
|
843
|
19 |
0 |
if ($$self{'HH_Unispool_Config_Entry_Device_0'}{'initially_spooled'}) { } |
|
854
|
19 |
0 |
if ($$self{'HH_Unispool_Config_Entry_Device_0'}{'networkwide'}) { } |
|
865
|
0 |
19 |
if ($$self{'HH_Unispool_Config_Entry_Device_0'}{'save_printfile'}) { } |
|
876
|
18 |
1 |
if ($$self{'HH_Unispool_Config_Entry_Device_0'}{'unispool_control'}) { } |
|
887
|
0 |
19 |
if ($$self{'HH_Unispool_Config_Entry_Device_0'}{'unispool_header'}) { } |
|
900
|
0 |
19 |
unless &_value_is_allowed('device_file', $val) |
|
911
|
0 |
18 |
unless &_value_is_allowed('device_password', $val) |
|
922
|
0 |
19 |
unless &_value_is_allowed('execution_priority', $val) |
|
933
|
0 |
18 |
unless &_value_is_allowed('header_name', $val) |
|
942
|
19 |
0 |
if (shift()) { } |
|
953
|
19 |
0 |
if (shift()) { } |
|
964
|
0 |
19 |
if (shift()) { } |
|
977
|
0 |
18 |
unless &_value_is_allowed('trailer_name', $val) |
|
986
|
18 |
1 |
if (shift()) { } |
|
997
|
0 |
19 |
if (shift()) { } |