Branch Coverage

blib/lib/Perl/Critic/Policy/Variables/ProhibitPunctuationVars.pm
Criterion Covered Total %
branch 11 58 18.9


line true false branch
107 15 1 if ($elem->isa('PPI::Token::Magic')) { }
0 1 elsif ($elem->isa('PPI::Token::HereDoc')) { }
0 1 elsif (is_ppi_regexp_element($elem)) { }
129 15 0 unless (exists $self->{'_allow'}{$elem})
145 1 0 if ($elem->can('string')) { }
161 0 1 if (%matches)
171 0 0 if ($elem->{'_mode'} eq "interpolate" or $elem->{'_mode'} eq "command")
174 0 0 if (%matches)
185 0 0 if $self->{'_string_mode'} eq "disable"
187 0 0 unless my $pre = $doc->ppix_regexp_from_element($elem)
189 0 0 if $pre->failures
193 0 0 unless $pre->find("PPIx::Regexp::Token::Code")
194 0 0 unless my $code_doc = $code->ppi
197 0 0 unless $code_doc->find("PPI::Token::Magic")
202 0 0 if ($self->{'_string_mode'} eq "simple")
206 0 0 if (keys %matches)
220 0 1 if $self->{'_string_mode'} eq "disable"
222 1 0 if $self->{'_string_mode'} eq "thorough"
228 0 0 unless @raw_matches
254 0 0 if ($c =~ / ^ \$ .* [ \w : \$ { ] $ /msx)
257 0 0 if ($c =~ / ^(\$(?:\_[\w:]|::)) /msx or $c =~ / ^\$\'[\w] /msx)
262 0 0 unless $c =~ / ^\$\'\d$ /msx
268 0 0 if $c =~ / ^\$\$\w /msx
270 0 0 if $c eq "\$#\$" or $c eq "\$#{"
273 0 0 if $c =~ / ^(\$\#)\w /msx
281 0 0 if $c =~ / ^ \$ \# [{] /msx
300 0 2640 unless length $name > 1
313 0 0 if $name =~ / \A ( . ) [{] ( .+ ) [}] \z /msx
352 0 15 'HASH' eq ref $vars ? :