Branch Coverage
blib/lib/Catmandu/Fix/expand_date.pm
Criterion
Covered
Total
%
branch
5
8
62.5
line
true
false
branch
24
2
0
if
(
my
$date
=
$$data
{
$self
->
date_field
}
)
25
2
0
if
(
my
(
$y
,
$m
,
$d
)
=
$date
=~
/$DATE_REGEX/x
)
27
2
0
if
$m
28
1
1
if
$d