Branch Coverage

inc/Modern/Perl.pm

Criterion	Covered	Total	%
branch	3	14	21.4

line	true	false	branch
26	0	0	unless defined $version
27	0	0	if $version < 2009
29	0	0	if (caller 1)[3] =~ /::BEGIN/
36	2	0	unless defined $date
68	2	0	unless ($date)
70	2	0	if $] > 5.011003
75	0	0	if exists $dates{$year}