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 ? :
|