Branch Coverage

blib/lib/HH/Unispool/Config/File/Token/Comment/Date.pm
Criterion Covered Total %
branch 18 40 45.0


line true false branch
283 18 0 defined $_[0] ? :
286 0 18 unless ref $opt eq 'HASH'
289 18 0 exists $$opt{'time'} ? :
302 0 0 unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name})
310 0 26 if (ref $val and exists $ALLOW_ISA{$name})
312 0 0 if &UNIVERSAL::isa($val, $class)
317 0 26 if (ref $val and exists $ALLOW_REF{$name})
318 0 0 if exists $ALLOW_REF{$name}{ref $val}
322 26 0 if (defined $val and not ref $val and exists $ALLOW_RX{$name})
324 26 0 if $val =~ /$rx/
329 0 0 if (not ref $val and exists $ALLOW_VALUE{$name})
330 0 0 if exists $ALLOW_VALUE{$name}{$val}
353 0 8 unless defined $mon
356 0 8 if ($am_pm =~ /am/i and $hour == 12) { }
6 4 elsif ($am_pm =~ /pm/i and $hour < 12) { }
374 0 26 unless defined $val
377 0 26 unless &_value_is_allowed('time', $val)
388 2 18 $time[2] < 12 ? :
390 0 20 if ($time[2] == 0) { }
18 2 elsif ($time[2] > 12) { }