Branch Coverage

blib/lib/Perl/Critic/Violation.pm
Criterion Covered Total %
branch 25 30 83.3


line true false branch
45 1 3225 if (@_ != $CONSTRUCTOR_ARG_COUNT)
49 11 3214 if (eval {
54 1 3224 unless (eval {
75 3160 64 $top->can('filename') ? :
92 2725 0 unless ref $_[0]
93 56 2669 unless wantarray
98 0 2830 unless $Perl::Critic::Violation::a->[1] <=> $Perl::Critic::Violation::b->[1]
107 1 0 unless ref $_[0]
108 0 1 unless wantarray
164 3 4 unless ($diagnostics{$policy})
189 20 161 unless ($expl)
192 109 72 if (ref $expl eq "ARRAY")
193 60 49 @{$expl;} > 1 ? :
307 0 3224 if $inx > @lines
317 2172 4282 if not defined $_ or ref $_