Branch Coverage

blib/lib/HH/Unispool/Config/Entry/Device/1.pm
Criterion Covered Total %
branch 64 108 59.2


line true false branch
606 0 18 unless $s->isa('HH::Unispool::Config::File::Token::Numbered::Device::1')
625 17 36 if (not $tok->isa('HH::Unispool::Config::File::Token::Numbered') or $tok->get_number != $s->get_number) { }
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')) { }
630 0 18 if defined $x
638 0 18 if defined $i
653 19 0 defined $_[0] ? :
656 0 19 unless ref $opt eq 'HASH'
659 18 1 exists $$opt{'buffer_size'} ? :
662 18 1 if exists $$opt{'device_password'}
665 18 1 exists $$opt{'execution_priority'} ? :
668 18 1 if exists $$opt{'header_name'}
671 18 1 exists $$opt{'networkwide'} ? :
674 18 1 exists $$opt{'page_length'} ? :
677 18 1 exists $$opt{'page_width'} ? :
680 18 1 if exists $$opt{'profile_name'}
683 18 1 exists $$opt{'save_printfile'} ? :
686 18 1 if exists $$opt{'trailer_name'}
689 18 1 exists $$opt{'unispool_header'} ? :
702 0 0 unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name})
710 19 129 if (ref $val and exists $ALLOW_ISA{$name})
712 19 0 if &UNIVERSAL::isa($val, $class)
717 0 129 if (ref $val and exists $ALLOW_REF{$name})
718 0 0 if exists $ALLOW_REF{$name}{ref $val}
722 129 0 if (not ref $val and exists $ALLOW_RX{$name})
724 129 0 if $val =~ /$rx/
729 0 0 if (not ref $val and exists $ALLOW_VALUE{$name})
730 0 0 if exists $ALLOW_VALUE{$name}{$val}
745 0 5 unless defined $diff_number
748 0 5 if (ref $from ne ref $to)
759 0 5 if ($from->get_buffer_size ne $to->get_buffer_size)
769 0 5 if ($from->get_device_password ne $to->get_device_password)
783 0 5 if ($from->get_header_name ne $to->get_header_name)
793 0 5 if ($from->is_networkwide != $to->is_networkwide)
803 0 5 if ($from->get_page_length ne $to->get_page_length)
813 0 5 if ($from->get_page_width ne $to->get_page_width)
823 0 5 if ($from->get_profile_name ne $to->get_profile_name)
833 0 5 if ($from->is_save_printfile != $to->is_save_printfile)
843 0 5 if ($from->get_trailer_name ne $to->get_trailer_name)
853 0 5 if ($from->is_unispool_header != $to->is_unispool_header)
917 19 0 if ($$self{'HH_Unispool_Config_Entry_Device_1'}{'networkwide'}) { }
928 0 19 if ($$self{'HH_Unispool_Config_Entry_Device_1'}{'save_printfile'}) { }
939 0 19 if ($$self{'HH_Unispool_Config_Entry_Device_1'}{'unispool_header'}) { }
952 0 19 unless &_value_is_allowed('buffer_size', $val)
963 0 18 unless &_value_is_allowed('device_password', $val)
974 0 19 unless &_value_is_allowed('execution_priority', $val)
985 0 18 unless &_value_is_allowed('header_name', $val)
994 19 0 if (shift()) { }
1007 0 19 unless &_value_is_allowed('page_length', $val)
1018 0 19 unless &_value_is_allowed('page_width', $val)
1029 0 18 unless &_value_is_allowed('profile_name', $val)
1038 0 19 if (shift()) { }
1051 0 18 unless &_value_is_allowed('trailer_name', $val)
1060 0 19 if (shift()) { }