Branch Coverage

blib/lib/HH/Unispool/Config/Entry/Device/2.pm
Criterion Covered Total %
branch 74 126 58.7


line true false branch
645 0 18 unless $s->isa('HH::Unispool::Config::File::Token::Numbered::Device::2')
665 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')) { }
670 0 18 if defined $p
675 0 18 if defined $x
683 0 18 if defined $i
698 19 0 defined $_[0] ? :
701 0 19 unless ref $opt eq 'HASH'
704 18 1 exists $$opt{'buffer_size'} ? :
707 0 19 unless exists $$opt{'device_file'}
711 18 1 if exists $$opt{'device_password'}
714 18 1 exists $$opt{'execution_priority'} ? :
717 18 1 if exists $$opt{'header_name'}
720 0 19 exists $$opt{'initially_spooled'} ? :
723 18 1 exists $$opt{'networkwide'} ? :
726 18 1 exists $$opt{'page_length'} ? :
729 18 1 exists $$opt{'page_width'} ? :
732 18 1 if exists $$opt{'profile_name'}
735 18 1 exists $$opt{'save_printfile'} ? :
738 18 1 if exists $$opt{'trailer_name'}
741 18 1 exists $$opt{'unispool_header'} ? :
754 0 0 unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name})
762 19 148 if (ref $val and exists $ALLOW_ISA{$name})
764 19 0 if &UNIVERSAL::isa($val, $class)
769 0 148 if (ref $val and exists $ALLOW_REF{$name})
770 0 0 if exists $ALLOW_REF{$name}{ref $val}
774 148 0 if (defined $val and not ref $val and exists $ALLOW_RX{$name})
776 148 0 if $val =~ /$rx/
781 0 0 if (not ref $val and exists $ALLOW_VALUE{$name})
782 0 0 if exists $ALLOW_VALUE{$name}{$val}
797 0 5 unless defined $diff_number
800 0 5 if (ref $from ne ref $to)
811 0 5 if ($from->get_buffer_size ne $to->get_buffer_size)
821 0 5 if ($from->get_device_file ne $to->get_device_file)
831 0 5 if ($from->get_device_password ne $to->get_device_password)
845 0 5 if ($from->get_header_name ne $to->get_header_name)
855 0 5 if ($from->is_initially_spooled != $to->is_initially_spooled)
865 0 5 if ($from->is_networkwide != $to->is_networkwide)
875 0 5 if ($from->get_page_length ne $to->get_page_length)
885 0 5 if ($from->get_page_width ne $to->get_page_width)
895 0 5 if ($from->get_profile_name ne $to->get_profile_name)
905 0 5 if ($from->is_save_printfile != $to->is_save_printfile)
915 0 5 if ($from->get_trailer_name ne $to->get_trailer_name)
925 0 5 if ($from->is_unispool_header != $to->is_unispool_header)
995 10 0 if ($$self{'HH_Unispool_Config_Entry_Device_2'}{'initially_spooled'}) { }
1006 19 0 if ($$self{'HH_Unispool_Config_Entry_Device_2'}{'networkwide'}) { }
1017 0 19 if ($$self{'HH_Unispool_Config_Entry_Device_2'}{'save_printfile'}) { }
1028 0 19 if ($$self{'HH_Unispool_Config_Entry_Device_2'}{'unispool_header'}) { }
1041 0 19 unless &_value_is_allowed('buffer_size', $val)
1052 0 19 unless &_value_is_allowed('device_file', $val)
1063 0 18 unless &_value_is_allowed('device_password', $val)
1074 0 19 unless &_value_is_allowed('execution_priority', $val)
1085 0 18 unless &_value_is_allowed('header_name', $val)
1094 19 0 if (shift()) { }
1105 19 0 if (shift()) { }
1118 0 19 unless &_value_is_allowed('page_length', $val)
1129 0 19 unless &_value_is_allowed('page_width', $val)
1140 0 18 unless &_value_is_allowed('profile_name', $val)
1149 0 19 if (shift()) { }
1162 0 18 unless &_value_is_allowed('trailer_name', $val)
1171 0 19 if (shift()) { }