| line |
true |
false |
branch |
|
82
|
38 |
264 |
$policy->{'_single'} ne 'none' ? :
|
|
|
302 |
0 |
$policy->{'_single'} ne 'none' || $policy->{'_double'} ne 'none' ? :
|
|
|
302 |
0 |
$policy->{'_double'} ne 'none' ? :
|
|
|
302 |
0 |
$policy->{'_heredoc'} ne 'none' ? :
|
|
145
|
42 |
248 |
if (defined(my $doc_version = $document->highest_explicit_perl_version))
|
|
154
|
6 |
284 |
if ($elem->isa('PPI::Token::HereDoc')) { }
|
|
155
|
2 |
4 |
if $close eq "'"
|
|
160
|
270 |
14 |
if ($elem->can('string')) { }
|
|
163
|
0 |
14 |
unless $elem =~ /$quotelike_re/
|
|
168
|
42 |
242 |
if ($elem->isa('PPI::Token::Quote::Single') or $elem->isa('PPI::Token::Quote::Literal') or $elem->isa('PPI::Token::QuoteLike::Command') and $close eq q[']) { }
|
|
179
|
4 |
284 |
if $param eq "none"
|
|
183
|
246 |
38 |
unless ($single)
|
|
190
|
222 |
24 |
if (not defined $perlver or $perlver >= $v5006)
|
|
195
|
6 |
206 |
if ($self->{'_foldcase'} ne "disallow" and $self->{'_foldcase'} eq 'allow' || defined $perlver && $perlver >= $v5010)
|
|
218
|
54 |
332 |
if (defined $1)
|
|
220
|
54 |
0 |
unless ($single)
|
|
227
|
54 |
0 |
if (substr($str, pos($str) - 1, 1) =~ /(\w)|[]}]/)
|
|
236
|
14 |
318 |
if ((length $2 & 1) == 0)
|
|
247
|
286 |
32 |
unless ($single)
|
|
248
|
28 |
258 |
if ($c eq 'N') { }
|
|
|
32 |
226 |
elsif ($c eq 'c') { }
|
|
|
34 |
192 |
elsif ($c eq ':') { }
|
|
|
26 |
166 |
elsif ($c eq '[' or $c eq '{') { }
|
|
|
10 |
156 |
elsif ($c eq '-') { }
|
|
249
|
6 |
22 |
if ($self->{'_charnames'} eq 'disallow') { }
|
|
|
6 |
16 |
elsif ($self->{'_charnames'} eq 'allow') { }
|
|
259
|
16 |
0 |
unless (defined $have_use_charnames)
|
|
262
|
8 |
8 |
if ($have_use_charnames or $have_perl_516)
|
|
273
|
4 |
28 |
if ($c eq "")
|
|
278
|
22 |
6 |
if (index("?\@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_abcdefghijklmnopqrstuvwxyz", $c) != -1)
|
|
287
|
20 |
14 |
if ($interpolate_var_colon)
|
|
291
|
20 |
0 |
if (pos $str == $interpolate_var_end + 2 or pos $str == $interpolate_var_end + 4 and substr($str, $interpolate_var_end, 2) eq "\\:")
|
|
301
|
18 |
8 |
if (pos $str == $interpolate_var_end + 2)
|
|
307
|
4 |
6 |
if ($str =~ /\G>[[{]/)
|
|
314
|
2 |
222 |
if ($param eq 'quotemeta') { }
|
|
|
0 |
222 |
elsif ($param eq 'alnum') { }
|
|
316
|
2 |
0 |
if $c ne quotemeta $c
|
|
320
|
0 |
0 |
unless $c =~ /[a-zA-Z0-9]/
|
|
324
|
92 |
130 |
if (index($known, $c) != -1)
|
|
366
|
0 |
72 |
unless ($elem)
|
|
374
|
10 |
62 |
if ($elem->isa('PPI::Token::Cast')) { }
|
|
|
58 |
4 |
elsif ($elem->isa('PPI::Token::Symbol')) { }
|
|
381
|
10 |
0 |
if $elem->isa("PPI::Structure::Block")
|
|
389
|
53 |
34 |
unless $elem->isa("PPI::Structure::Subscript")
|
|
417
|
6 |
6 |
unless $charname{$1}
|
|
427
|
4 |
2 |
if ($elem->isa("PPI::Statement::Include") and $elem->type eq "use" and ($elem->module || '') eq "charnames")
|