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) { } |