Branch Coverage

blib/lib/Perl/Critic/Policy/Perlsecret.pm
Criterion Covered Total %
branch 80 90 88.8


line true false branch
97 0 88 unless @disallowed
105 1 1454 unless (exists $default_violations{$secret})
110 7 1447 if &first(sub { $secret eq $_; } , @allowed)
116 38 1061 if ($violations{$policy}->($element))
128 229 64 unless ref $child eq 'PPI::Token::Operator'
130 1 63 if $child->previous_sibling eq '0'
131 1 62 if $child->next_sibling eq '0'
138 3 343 if (ref $child eq 'PPI::Token::Cast')
139 3 0 if $child->snext_sibling =~ /\{\s*?\[/
141 5 338 if (ref $child eq 'PPI::Token::Quote::Double')
142 2 3 if $child =~ /\@\{\s*?\[/
151 250 58 unless ref $child eq 'PPI::Token::Operator'
152 6 52 if $child eq '!' and $child->snext_sibling eq '!'
159 245 53 unless ref $child eq 'PPI::Token::Operator'
160 1 52 if $child eq '~~'
161 1 51 if $child eq '~' and $child->snext_sibling eq '~'
168 258 77 unless ref $child eq 'PPI::Token::Operator'
170 1 76 if $child eq '~' and $child->snext_sibling eq '-'
171 2 74 if $child eq '-' and $child->snext_sibling eq '~'
178 260 75 unless ref $child eq 'PPI::Token::Operator'
180 2 2 if $child eq '-' and $child->snext_sibling eq '+' and $child->snext_sibling->snext_sibling eq '-'
189 269 20 unless ref $child eq 'PPI::Structure::List'
190 3 17 if $child->sprevious_sibling eq '=' and $child->snext_sibling eq '='
198 327 2 unless ref $child eq 'PPI::Token::QuoteLike::Readline'
199 2 0 if $child->sprevious_sibling eq '=' and $child->snext_sibling eq '=~'
207 219 60 unless ref $child eq 'PPI::Token::Operator'
208 1 59 if $child eq '~~' and $child->snext_sibling eq '<>'
216 281 1 unless $child eq '<<m'
217 1 0 if $child->snext_sibling eq '=~' and $child->snext_sibling->snext_sibling eq 'm>>'
225 283 1 unless $child eq '-='
226 1 0 if $child->snext_sibling eq '!'
233 314 2 unless $child eq '+='
234 2 0 if $child->snext_sibling eq '!'
241 271 1 unless $child eq '*='
242 1 0 if $child->snext_sibling eq '!'
249 292 1 unless $child eq 'x='
250 1 0 if $child->snext_sibling eq '!'
257 301 7 unless ref $child eq 'PPI::Token::Operator' and $child eq ','
259 1 6 if $child->snext_sibling eq '=>'
265 277 15 unless $child->class eq 'PPI::Structure::List'
266 2 0 if $child->snext_sibling eq 'x' and $child->snext_sibling->snext_sibling eq '!' and $child->snext_sibling->snext_sibling->snext_sibling eq '!'
275 329 7 unless $child->class eq 'PPI::Token::Number'
276 1 0 if $child eq '0' and $child->snext_sibling eq '+' and $child->snext_sibling->snext_sibling eq '!' and $child->snext_sibling->snext_sibling->snext_sibling eq '!'
286 258 73 unless ref $child eq 'PPI::Token::Operator'
288 2 71 if $child eq '||' || $child eq '//' and $child->snext_sibling->class eq 'PPI::Structure::List'