| line |
true |
false |
branch |
|
51
|
3505 |
0 |
defined $_[0] ? : |
|
59
|
0 |
3505 |
unless my $self = PPI::Token::new($class, $init) |
|
62
|
0 |
3505 |
unless my $options = $QUOTES{$init} |
|
70
|
1920 |
1585 |
if $self->{'modifiers'} |
|
73
|
106 |
3399 |
if ($init eq "<") |
|
84
|
0 |
3505 |
unless my $self = $t->{'token'} |
|
87
|
2705 |
800 |
if ($self->{'operator'}) |
|
90
|
550 |
2155 |
if (substr($t->{'line'}, $t->{'line_cursor'}, 1) =~ /\s/) |
|
93
|
0 |
550 |
unless defined $gap |
|
94
|
185 |
365 |
if (ref $gap) |
|
108
|
1090 |
1430 |
if (my $section = $SECTIONS{$sep}) { } |
|
119
|
1196 |
2124 |
$self->{'braced'} ? : |
|
121
|
822 |
2498 |
unless $rv |
|
124
|
1246 |
1252 |
unless $self->{'modifiers'} |
|
144
|
0 |
2124 |
unless defined $string |
|
145
|
586 |
1538 |
if (ref $string) |
|
147
|
442 |
144 |
if (length $$string > 1) { } |
|
175
|
1157 |
381 |
if $self->{'_sections'} == 1 |
|
184
|
0 |
381 |
unless defined $string |
|
185
|
69 |
312 |
if (ref $string) |
|
187
|
66 |
3 |
if (length $$string > 1) { } |
|
222
|
0 |
1196 |
unless defined $brace_str |
|
223
|
122 |
1074 |
if (ref $brace_str) |
|
225
|
72 |
50 |
if (length $$brace_str > 1) { } |
|
251
|
908 |
166 |
if $self->{'_sections'} == 1 |
|
257
|
115 |
51 |
if ($char =~ /\s/) |
|
260
|
0 |
115 |
unless defined $gap_str |
|
261
|
3 |
112 |
if (ref $gap_str) |
|
272
|
119 |
44 |
if ($section) { } |
|
|
25 |
19 |
elsif ($char =~ / \A [^\w\s] \z /msx) { } |
|
284
|
0 |
119 |
unless defined $brace_str |
|
285
|
9 |
110 |
if (ref $brace_str) { } |
|
287
|
7 |
2 |
if (length $$brace_str > 1) { } |
|
323
|
0 |
25 |
unless defined $string |
|
324
|
14 |
11 |
if (ref $string) |
|
326
|
6 |
8 |
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'}) { } |