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