| line |
true |
false |
branch |
|
77
|
38 |
252 |
$policy->{'_single'} ne 'none' ? :
|
|
|
290 |
0 |
$policy->{'_single'} ne 'none' || $policy->{'_double'} ne 'none' ? :
|
|
|
290 |
0 |
$policy->{'_double'} ne 'none' ? :
|
|
|
290 |
0 |
$policy->{'_heredoc'} ne 'none' ? :
|
|
138
|
36 |
242 |
if (defined(my $doc_version = $document->highest_explicit_perl_version))
|
|
147
|
6 |
272 |
if ($elem->isa('PPI::Token::HereDoc')) { }
|
|
148
|
2 |
4 |
if $close eq q[']
|
|
153
|
258 |
14 |
if ($elem->can('string')) { }
|
|
156
|
0 |
14 |
unless $elem =~ /$quotelike_re/
|
|
161
|
42 |
230 |
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[']) { }
|
|
172
|
4 |
272 |
if $param eq 'none'
|
|
176
|
234 |
38 |
unless ($single)
|
|
183
|
210 |
24 |
if (not defined $perlver or $perlver >= $v5006)
|
|
204
|
54 |
320 |
if (defined $1)
|
|
206
|
54 |
0 |
unless ($single)
|
|
213
|
54 |
0 |
if (substr($str, pos($str) - 1, 1) =~ /(\w)|[]}]/)
|
|
222
|
14 |
306 |
if ((length $2 & 1) == 0)
|
|
233
|
274 |
32 |
unless ($single)
|
|
234
|
28 |
246 |
if ($c eq 'N') { }
|
|
|
32 |
214 |
elsif ($c eq 'c') { }
|
|
|
34 |
180 |
elsif ($c eq ':') { }
|
|
|
26 |
154 |
elsif ($c eq '[' or $c eq '{') { }
|
|
|
10 |
144 |
elsif ($c eq '-') { }
|
|
235
|
6 |
22 |
if ($self->{'_charnames'} eq 'disallow') { }
|
|
|
6 |
16 |
elsif ($self->{'_charnames'} eq 'allow') { }
|
|
245
|
16 |
0 |
unless (defined $have_use_charnames)
|
|
248
|
8 |
8 |
if ($have_use_charnames or $have_perl_516)
|
|
259
|
4 |
28 |
if ($c eq '')
|
|
264
|
22 |
6 |
if (index('?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_abcdefghijklmnopqrstuvwxyz', $c) >= 0)
|
|
273
|
20 |
14 |
if ($interpolate_var_colon)
|
|
277
|
20 |
0 |
if (pos $str == $interpolate_var_end + 2 or pos $str == $interpolate_var_end + 4 and substr($str, $interpolate_var_end, 2) eq '\\:')
|
|
287
|
18 |
8 |
if (pos $str == $interpolate_var_end + 2)
|
|
293
|
4 |
6 |
if ($str =~ /\G>[[{]/)
|
|
300
|
2 |
210 |
if ($param eq 'quotemeta') { }
|
|
|
0 |
210 |
elsif ($param eq 'alnum') { }
|
|
302
|
2 |
0 |
if $c ne quotemeta $c
|
|
306
|
0 |
0 |
unless $c =~ /[a-zA-Z0-9]/
|
|
310
|
86 |
124 |
if (index($known, $c) >= 0)
|
|
352
|
0 |
72 |
unless ($elem)
|
|
360
|
10 |
62 |
if ($elem->isa('PPI::Token::Cast')) { }
|
|
|
58 |
4 |
elsif ($elem->isa('PPI::Token::Symbol')) { }
|
|
367
|
10 |
0 |
if $elem->isa('PPI::Structure::Block')
|
|
375
|
53 |
34 |
unless $elem->isa('PPI::Structure::Subscript')
|
|
402
|
6 |
6 |
unless $charname{$1}
|
|
412
|
4 |
2 |
if ($elem->isa('PPI::Statement::Include') and $elem->type eq 'use' and ($elem->module || '') eq 'charnames')
|