Branch Coverage

blib/lib/Test/CheckChanges.pm
Criterion Covered Total %
branch 52 58 89.6


line true false branch
71 2 9 if (defined $plan{'order'})
105 22 0 if @_ % 2 == 0
110 0 22 if keys %p or @_ % 2 == 1
122 7 15 if ($build and -r $build) { }
13 2 elsif ($makefile and -r $makefile) { }
131 0 13 unless open my $in, '<', $makefile
134 13 374 if (/^VERSION\s*=\s*(.*)\s*/)
140 0 13 unless close $in
142 18 4 if ($version) { }
165 1 21 if (@change_list > 1)
174 18 4 if ($change_file and $version)
175 0 18 unless open my $in, '<', $change_file
179 22 198 if (/^(\d|v\d)/) { }
11 187 elsif (/^\s+version: ([\d.]+)$/) { }
10 177 elsif (/^\* (v?[\d._]+)$/) { }
6 171 elsif (/^Version (v?[\d._]+)($|[:,[:space:]])/) { }
182 3 19 if $type and $type != 1
187 11 11 if ($version eq $cvers) { }
195 1 10 if $type and $type != 2
197 2 9 if ($version eq $1) { }
205 1 9 if $type and $type != 3
207 2 8 if ($version eq $1) { }
215 1 5 if $type and $type != 4
217 1 5 if ($version eq $1) { }
225 0 18 unless close $in
226 16 2 if ($found) { }
231 1 1 if (@not_found) { }
238 1 21 unless ($change_file)
250 8 5 if (not defined $test->has_plan)