Branch Coverage

blib/lib/CGI/Untaint/datetime.pm

Criterion	Covered	Total	%
branch	4	8	50.0

line	true	false	branch
14	2	3	if length $val == 16
15	5	0	if length $val == 19
16	5	0	unless eval { do { return unless $date = 'Time::Piece'->strptime($val, '%FT%H:%M:%S') } }
17	0	0	unless $date = 'Time::Piece'->strptime($val, '%FT%H:%M:%S')