| line |
true |
false |
branch |
|
51
|
3466 |
0 |
defined $_[0] ? : |
|
59
|
0 |
3466 |
unless my $self = PPI::Token::new($class, $init) |
|
62
|
0 |
3466 |
unless my $options = $QUOTES{$init} |
|
70
|
1871 |
1595 |
if $self->{'modifiers'} |
|
73
|
111 |
3355 |
if ($init eq "<") |
|
84
|
0 |
3466 |
unless my $self = $t->{'token'} |
|
87
|
2684 |
782 |
if ($self->{'operator'}) |
|
90
|
535 |
2149 |
if (substr($t->{'line'}, $t->{'line_cursor'}, 1) =~ /\s/) |
|
93
|
0 |
535 |
unless defined $gap |
|
94
|
182 |
353 |
if (ref $gap) |
|
108
|
1110 |
1392 |
if (my $section = $SECTIONS{$sep}) { } |
|
119
|
1221 |
2063 |
$self->{'braced'} ? : |
|
121
|
844 |
2440 |
unless $rv |
|
124
|
1255 |
1185 |
unless $self->{'modifiers'} |
|
144
|
0 |
2063 |
unless defined $string |
|
145
|
582 |
1481 |
if (ref $string) |
|
147
|
435 |
147 |
if (length $$string > 1) { } |
|
175
|
1114 |
367 |
if $self->{'_sections'} == 1 |
|
184
|
0 |
367 |
unless defined $string |
|
185
|
72 |
295 |
if (ref $string) |
|
187
|
70 |
2 |
if (length $$string > 1) { } |
|
222
|
0 |
1221 |
unless defined $brace_str |
|
223
|
150 |
1071 |
if (ref $brace_str) |
|
225
|
100 |
50 |
if (length $$brace_str > 1) { } |
|
251
|
907 |
164 |
if $self->{'_sections'} == 1 |
|
257
|
118 |
46 |
if ($char =~ /\s/) |
|
260
|
0 |
118 |
unless defined $gap_str |
|
261
|
2 |
116 |
if (ref $gap_str) |
|
272
|
119 |
43 |
if ($section) { } |
|
|
28 |
15 |
elsif ($char =~ / \A [^\w\s] \z /msx) { } |
|
284
|
0 |
119 |
unless defined $brace_str |
|
285
|
6 |
113 |
if (ref $brace_str) { } |
|
287
|
4 |
2 |
if (length $$brace_str > 1) { } |
|
323
|
0 |
28 |
unless defined $string |
|
324
|
17 |
11 |
if (ref $string) |
|
326
|
8 |
9 |
if (length $$string > 1) { } |
|
385
|
17 |
10 |
wantarray ? : |
|
392
|
0 |
504 |
unless $self->{'sections'} |
|
393
|
4 |
500 |
unless my $section = $self->{'sections'}[$i] |
|
403
|
0 |
7 |
unless $self->{'modifiers'} |
|
404
|
5 |
2 |
if wantarray |
|
411
|
0 |
492 |
unless $self->{'sections'} |
|
414
|
493 |
1 |
if (exists $sect->{'type'}) { } |