| line |
true |
false |
branch |
|
27
|
0 |
73 |
unless defined $val |
|
28
|
2 |
71 |
if (blessed $val and $val->isa('Class::Date::Rel')) { } |
|
|
4 |
67 |
elsif (ref $val eq 'ARRAY') { } |
|
|
8 |
59 |
elsif (ref $val eq 'HASH') { } |
|
|
0 |
59 |
elsif (ref $val eq 'SCALAR') { } |
|
58
|
59 |
0 |
if defined $ret |
|
64
|
0 |
59 |
unless defined $val |
|
65
|
2 |
57 |
if $val =~ / ^ \s* ( \-? \d+ ( \. \d* )? ) \s* $/x |
|
68
|
22 |
35 |
if ($val =~ / ^\s* ( \d{1,4} ) - ( \d\d? ) - ( \d\d? )
( \s+ ( \d\d? ) : ( \d\d? ) ( : ( \d\d? )? (\.\d+)? )? )? /x) |
|
78
|
16 |
51 |
if ($cmd eq 'Y') { } |
|
|
15 |
36 |
elsif ($cmd eq 'M') { } |
|
|
14 |
22 |
elsif ($cmd eq 'D') { } |
|
|
8 |
14 |
elsif ($cmd eq 'h') { } |
|
|
8 |
6 |
elsif ($cmd eq 'm') { } |
|
|
6 |
0 |
elsif ($cmd eq 's') { } |
|
99
|
4 |
28 |
$reverse ? : |
|
100
|
2 |
30 |
if (blessed $val2 and $val2->isa('Class::Date::Rel')) { } |
|
104
|
0 |
30 |
unless defined $date_obj |
|
110
|
0 |
0 |
if (my $reldate = $s->new($val2)) { } |
|
113
|
0 |
0 |
if $months |