Branch Coverage

blib/lib/Perl/Critic/Policy/Perlsecret.pm
Criterion Covered Total %
branch 81 92 88.0


line true false branch
94 0 93 unless @disallowed
100 1 1544 unless (exists $default_violations{$secret})
105 7 1537 if &first(sub { $secret eq $_; } , @allowed)
111 38 1181 if ($violations{$policy}->($element))
122 274 68 unless ref $child eq 'PPI::Token::Operator'
124 64 4 unless $child eq '+'
126 1 3 if $child->previous_sibling eq '0'
127 1 2 if $child->next_sibling eq '0'
133 3 437 if (ref $child eq 'PPI::Token::Cast')
134 3 0 if $child->snext_sibling =~ /\{\s*?\[/
136 3 434 if (ref $child eq 'PPI::Token::Quote::Double')
137 2 1 if $child =~ /\@\{\s*?\[/
145 281 75 unless ref $child eq 'PPI::Token::Operator'
146 8 67 if $child eq '!' and $child->snext_sibling eq '!'
152 259 67 unless ref $child eq 'PPI::Token::Operator'
153 1 66 if $child eq '~~'
154 1 65 if $child eq '~' and $child->snext_sibling eq '~'
160 279 74 unless ref $child eq 'PPI::Token::Operator'
162 1 73 if $child eq '~' and $child->snext_sibling eq '-'
163 2 71 if $child eq '-' and $child->snext_sibling eq '~'
169 304 82 unless ref $child eq 'PPI::Token::Operator'
171 2 2 if $child eq '-' and $child->snext_sibling eq '+' and $child->snext_sibling->snext_sibling eq '-'
180 311 15 unless ref $child eq 'PPI::Structure::List'
181 3 12 if $child->sprevious_sibling eq '=' and $child->snext_sibling eq '='
190 379 2 unless ref $child eq 'PPI::Token::QuoteLike::Readline'
191 2 0 if $child->sprevious_sibling eq '=' and $child->snext_sibling eq '=~'
199 291 87 unless ref $child eq 'PPI::Token::Operator'
200 1 86 if $child eq '~~' and $child->snext_sibling eq '<>'
208 402 1 unless $child eq '<<m'
209 1 0 if $child->snext_sibling eq '=~' and $child->snext_sibling->snext_sibling eq 'm>>'
217 399 2 unless $child eq '-='
218 2 0 if $child->snext_sibling eq '!'
224 389 1 unless $child eq '+='
225 1 0 if $child->snext_sibling eq '!'
231 413 1 unless $child eq '*='
232 1 0 if $child->snext_sibling eq '!'
238 315 1 unless $child eq 'x='
239 1 0 if $child->snext_sibling eq '!'
246 374 16 unless ref $child eq 'PPI::Token::Operator' and $child eq ','
248 1 15 if $child->snext_sibling eq '=>'
254 300 13 unless $child->class eq 'PPI::Structure::List'
255 0 0 if $child->snext_sibling eq 'x' and $child->snext_sibling->snext_sibling eq '!' and $child->snext_sibling->snext_sibling->snext_sibling eq '!'
264 398 8 unless $child->class eq 'PPI::Token::Number'
265 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 '!'
275 274 70 unless ref $child eq 'PPI::Token::Operator'
277 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 '( )'