Branch Coverage

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


line true false branch
109 29 138 if ($elem->isa('PPI::Token::Magic')) { }
11 127 elsif ($elem->isa('PPI::Token::HereDoc')) { }
4 123 elsif (is_ppi_regexp_element($elem)) { }
131 20 9 unless (exists $self->{'_allow'}{$elem})
147 117 6 if ($elem->can('string')) { }
163 90 33 if (%matches)
174 10 1 if ($elem->{'_mode'} eq "interpolate" or $elem->{'_mode'} eq "command")
177 9 1 if (%matches)
189 0 4 if $self->{'_string_mode'} eq "disable"
191 0 4 unless my $pre = $doc->ppix_regexp_from_element($elem)
193 0 4 if $pre->failures
197 3 1 unless $pre->find("PPIx::Regexp::Token::Code")
198 0 1 unless my $code_doc = $code->ppi
201 0 1 unless $code_doc->find("PPI::Token::Magic")
206 0 4 if ($self->{'_string_mode'} eq "simple")
210 1 3 if (keys %matches)
225 1 132 if $self->{'_string_mode'} eq "disable"
227 123 9 if $self->{'_string_mode'} eq "thorough"
233 0 9 unless @raw_matches
259 48 61 if ($c =~ / ^ \$ .* [ \w : \$ { ] $ /msx)
262 7 41 if ($c =~ / ^(\$(?:\_[\w:]|::)) /msx or $c =~ / ^\$\'[\w] /msx)
267 6 1 unless $c =~ / ^\$\'\d$ /msx
273 1 41 if $c =~ / ^\$\$\w /msx
275 2 39 if $c eq "\$#\$" or $c eq "\$#{"
278 1 38 if $c =~ / ^(\$\#)\w /msx
286 0 38 if $c =~ / ^ \$ \# [{] /msx
305 0 2640 unless length $name > 1
318 1 118 if $name =~ / \A ( . ) [{] ( .+ ) [}] \z /msx
357 100 20 'HASH' eq ref $vars ? :