Branch Coverage

blib/lib/HH/Unispool/Config/File/Token/Numbered/Device.pm
Criterion Covered Total %
branch 61 92 66.3


line true false branch
564 81 0 defined $_[0] ? :
567 0 81 unless ref $opt eq 'HASH'
570 18 63 if exists $$opt{'block_delay'}
573 18 63 if exists $$opt{'buffer_size'}
576 18 63 if exists $$opt{'connect_retry'}
579 0 81 unless exists $$opt{'device_name'}
583 45 36 if exists $$opt{'device_password'}
586 71 10 if exists $$opt{'execution_priority'}
589 53 28 if exists $$opt{'initially_spooled'}
592 71 10 if exists $$opt{'networkwide'}
595 18 63 if exists $$opt{'page_length'}
598 18 63 if exists $$opt{'page_width'}
601 28 53 if exists $$opt{'remote_device_name'}
604 10 71 if exists $$opt{'remote_system_name'}
607 63 18 if exists $$opt{'save_printfile'}
610 9 72 if exists $$opt{'unispool_control'}
613 27 54 if exists $$opt{'unispool_header'}
626 0 0 unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name})
634 225 815 if (ref $val and exists $ALLOW_ISA{$name})
636 225 0 if &UNIVERSAL::isa($val, $class)
641 0 815 if (ref $val and exists $ALLOW_REF{$name})
642 0 0 if exists $ALLOW_REF{$name}{ref $val}
646 815 0 if (not ref $val and exists $ALLOW_RX{$name})
648 815 0 if $val =~ /$rx/
653 0 0 if (not ref $val and exists $ALLOW_VALUE{$name})
654 0 0 if exists $ALLOW_VALUE{$name}{$val}
728 147 11 if ($$self{'HH_Unispool_Config_File_Token_Numbered_Device'}{'initially_spooled'}) { }
739 205 0 if ($$self{'HH_Unispool_Config_File_Token_Numbered_Device'}{'networkwide'}) { }
750 0 183 if ($$self{'HH_Unispool_Config_File_Token_Numbered_Device'}{'save_printfile'}) { }
761 28 21 if ($$self{'HH_Unispool_Config_File_Token_Numbered_Device'}{'unispool_control'}) { }
772 0 87 if ($$self{'HH_Unispool_Config_File_Token_Numbered_Device'}{'unispool_header'}) { }
791 0 41 unless &_value_is_allowed('block_delay', $val)
802 0 64 unless &_value_is_allowed('buffer_size', $val)
813 0 41 unless &_value_is_allowed('connect_retry', $val)
824 0 258 unless &_value_is_allowed('device_name', $val)
835 0 153 unless &_value_is_allowed('device_password', $val)
846 0 225 unless &_value_is_allowed('execution_priority', $val)
855 161 23 if (shift()) { }
866 225 0 if (shift()) { }
879 0 64 unless &_value_is_allowed('page_length', $val)
890 0 64 unless &_value_is_allowed('page_width', $val)
901 0 97 unless &_value_is_allowed('remote_device_name', $val)
912 0 33 unless &_value_is_allowed('remote_system_name', $val)
921 0 201 if (shift()) { }
932 31 1 if (shift()) { }
943 0 96 if (shift()) { }