Branch Coverage

blib/lib/HH/Unispool/Config/File/Token/Unnumbered/Misc.pm
Criterion Covered Total %
branch 46 98 46.9


line true false branch
499 20 0 defined $_[0] ? :
502 0 20 unless ref $opt eq 'HASH'
505 20 0 exists $$opt{'clean_on_weekdays_only'} ? :
508 20 0 if exists $$opt{'date_format'}
511 20 0 if exists $$opt{'default_printer'}
514 0 20 unless exists $$opt{'local_system_name'}
518 20 0 exists $$opt{'maximum_delay_time'} ? :
521 20 0 exists $$opt{'maximum_print_file_space'} ? :
524 20 0 exists $$opt{'maximum_save_file_space'} ? :
527 20 0 exists $$opt{'save_groups'} ? :
530 20 0 exists $$opt{'save_time_in_days'} ? :
533 20 0 exists $$opt{'start_time_clean_job_hour'} ? :
536 20 0 exists $$opt{'start_time_clean_job_minute'} ? :
549 0 0 unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name})
557 35 315 if (ref $val and exists $ALLOW_ISA{$name})
559 35 0 if &UNIVERSAL::isa($val, $class)
564 0 315 if (ref $val and exists $ALLOW_REF{$name})
565 0 0 if exists $ALLOW_REF{$name}{ref $val}
569 315 0 if (defined $val and not ref $val and exists $ALLOW_RX{$name})
571 315 0 if $val =~ /$rx/
576 0 0 if (not ref $val and exists $ALLOW_VALUE{$name})
577 0 0 if exists $ALLOW_VALUE{$name}{$val}
651 0 44 if ($$self{'HH_Unispool_Config_File_Token_Unnumbered_Misc'}{'clean_on_weekdays_only'}) { }
665 0 15 unless defined $name
669 0 15 if scalar @tail > 8
673 15 0 if defined $cowo
684 15 0 if defined $mdt
685 15 0 if defined $stid
686 15 0 if defined $cowo
687 15 0 if defined $sg
688 15 0 if ($df)
692 15 0 if defined $stcj_h
693 15 0 if defined $stcj_m
694 15 0 if defined $mpfs
695 15 0 if defined $msfs
696 15 0 if defined $dp
702 0 35 if (shift()) { }
715 0 35 unless &_value_is_allowed('date_format', $val)
726 0 35 unless &_value_is_allowed('default_printer', $val)
737 0 35 unless defined $val
740 0 35 unless &_value_is_allowed('local_system_name', $val)
751 0 35 unless &_value_is_allowed('maximum_delay_time', $val)
762 0 35 unless &_value_is_allowed('maximum_print_file_space', $val)
773 0 35 unless &_value_is_allowed('maximum_save_file_space', $val)
784 0 35 unless &_value_is_allowed('save_groups', $val)
795 0 35 unless &_value_is_allowed('save_time_in_days', $val)
806 0 35 unless &_value_is_allowed('start_time_clean_job_hour', $val)
817 0 35 unless &_value_is_allowed('start_time_clean_job_minute', $val)
827 0 22 $self->is_clean_on_weekdays_only ? :