Branch Coverage

blib/lib/Modern/Perl.pm

Criterion	Covered	Total	%
branch	13	20	65.0

line	true	false	branch
23	0	2	unless defined $version
24	0	2	if $version < 2009
26	2	0	if (caller 1)[3] =~ /::BEGIN/
32	5	0	$] > 5.015 ? :
37	9	3	unless defined $date
47	0	11	if ($feature_tag ge ":5.34")
52	0	11	if ($feature_tag ge ":5.38")
89	7	5	unless ($date)
90	7	0	if $] > "5.011003"
95	4	1	if exists $dates{$year}