Branch Coverage

blib/lib/Test/Perl/Critic/Policy.pm
Criterion Covered Total %
branch 23 42 54.7


line true false branch
50 0 1 if ($wanted_policies)
67 22 2620 if ($todo)
73 22 2620 if (@diag)
74 22 2620 if ($todo)
85 0 0 unless $wanted_policies
91 0 0 if @invalid
99 0 0 unless $wanted_policies
104 0 0 if (&none(sub {
118 30 2612 if ($subtest->{'filename'}) { }
128 0 30 unless (eval {
141 2 2610 unless (eval {
154 2 2640 if ($subtest->{'error'}) { }
0 2640 elsif ($error) { }
174 22 2618 unless ($ok = $have == $want)
176 9 13 if (@violations)
190 2 0 if ('Regexp' eq ref $subtest->{'error'}) { }
192 0 2 unless $ok = $error =~ /$subtest->{'error'}/
196 0 0 unless $ok = $subtest->{'error'}
225 0 2640 unless _all_optional_modules_are_available($subtest)
233 2640 0 unless my $optional_modules = $subtest->{'optional_modules'}
234 0 0 unless eval "require $_;"