Branch Coverage

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


line true false branch
94 0 91 unless @disallowed
100 1 1508 unless (exists $default_violations{$secret})
105 7 1501 if &first(sub { $secret eq $_; } , @allowed)
111 38 1143 if ($violations{$policy}->($element))
122 258 64 unless ref $child eq 'PPI::Token::Operator'
124 1 63 if $child->previous_sibling eq '0'
125 1 62 if $child->next_sibling eq '0'
131 3 420 if (ref $child eq 'PPI::Token::Cast')
132 3 0 if $child->snext_sibling =~ /\{\s*?\[/
134 3 417 if (ref $child eq 'PPI::Token::Quote::Double')
135 2 1 if $child =~ /\@\{\s*?\[/
143 293 82 unless ref $child eq 'PPI::Token::Operator'
144 7 75 if $child eq '!' and $child->snext_sibling eq '!'
150 306 88 unless ref $child eq 'PPI::Token::Operator'
151 1 87 if $child eq '~~'
152 1 86 if $child eq '~' and $child->snext_sibling eq '~'
158 291 82 unless ref $child eq 'PPI::Token::Operator'
160 1 81 if $child eq '~' and $child->snext_sibling eq '-'
161 2 79 if $child eq '-' and $child->snext_sibling eq '~'
167 267 68 unless ref $child eq 'PPI::Token::Operator'
169 2 1 if $child eq '-' and $child->snext_sibling eq '+' and $child->snext_sibling->snext_sibling eq '-'
178 311 17 unless ref $child eq 'PPI::Structure::List'
179 3 14 if $child->sprevious_sibling eq '=' and $child->snext_sibling eq '='
188 288 5 unless ref $child eq 'PPI::Token::QuoteLike::Readline'
189 2 3 if $child->sprevious_sibling eq '=' and $child->snext_sibling eq '=~'
197 270 64 unless ref $child eq 'PPI::Token::Operator'
198 1 63 if $child eq '~~' and $child->snext_sibling eq '<>'
206 287 1 unless $child eq '<<m'
207 1 0 if $child->snext_sibling eq '=~' and $child->snext_sibling->snext_sibling eq 'm>>'
215 312 2 unless $child eq '-='
216 2 0 if $child->snext_sibling eq '!'
222 394 2 unless $child eq '+='
223 2 0 if $child->snext_sibling eq '!'
229 381 2 unless $child eq '*='
230 2 0 if $child->snext_sibling eq '!'
236 410 1 unless $child eq 'x='
237 1 0 if $child->snext_sibling eq '!'
244 322 9 unless ref $child eq 'PPI::Token::Operator' and $child eq ','
246 1 8 if $child->snext_sibling eq '=>'
252 269 14 unless $child->class eq 'PPI::Structure::List'
253 0 0 if $child->snext_sibling eq 'x' and $child->snext_sibling->snext_sibling eq '!' and $child->snext_sibling->snext_sibling->snext_sibling eq '!'
262 305 6 unless $child->class eq 'PPI::Token::Number'
263 0 1 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 '!'
273 306 88 unless ref $child eq 'PPI::Token::Operator'
275 2 1 if $child eq '||' || $child eq '//' and $child->snext_sibling->class eq 'PPI::Structure::List' and $child->snext_sibling->content eq '()' || $child->snext_sibling->content eq '( )'