| line |
true |
false |
branch |
|
54
|
3852 |
0 |
defined $_[0] ? : |
|
62
|
0 |
3852 |
unless my $self = PPI::Token::new($class, $init) |
|
65
|
0 |
3852 |
unless my $options = $QUOTES{$init} |
|
73
|
1907 |
1945 |
if $self->{'modifiers'} |
|
76
|
115 |
3737 |
if $init eq "<" |
|
77
|
356 |
3496 |
if $init eq "(" |
|
86
|
0 |
3852 |
unless my $self = $t->{'token'} |
|
89
|
2696 |
1156 |
if ($self->{'operator'}) |
|
92
|
536 |
2160 |
if (substr($t->{'line'}, $t->{'line_cursor'}, 1) =~ /\s/) |
|
95
|
0 |
536 |
unless defined $gap |
|
96
|
181 |
355 |
if (ref $gap) |
|
110
|
1114 |
1401 |
if (my $section = $SECTIONS{$sep}) { } |
|
121
|
1585 |
2086 |
$self->{'braced'} ? : |
|
123
|
864 |
2807 |
unless $rv |
|
126
|
1598 |
1209 |
unless $self->{'modifiers'} |
|
146
|
0 |
2086 |
unless defined $string |
|
147
|
579 |
1507 |
if (ref $string) |
|
149
|
433 |
146 |
if (length $$string > 1) { } |
|
177
|
1122 |
385 |
if $self->{'_sections'} == 1 |
|
186
|
0 |
385 |
unless defined $string |
|
187
|
84 |
301 |
if (ref $string) |
|
189
|
83 |
1 |
if (length $$string > 1) { } |
|
224
|
0 |
1585 |
unless defined $brace_str |
|
225
|
153 |
1432 |
if (ref $brace_str) |
|
227
|
96 |
57 |
if (length $$brace_str > 1) { } |
|
253
|
1262 |
170 |
if $self->{'_sections'} == 1 |
|
259
|
119 |
51 |
if ($char =~ /\s/) |
|
262
|
0 |
119 |
unless defined $gap_str |
|
263
|
2 |
117 |
if (ref $gap_str) |
|
274
|
118 |
50 |
if ($section) { } |
|
|
30 |
20 |
elsif ($char =~ / \A [^\w\s] \z /msx) { } |
|
286
|
0 |
118 |
unless defined $brace_str |
|
287
|
6 |
112 |
if (ref $brace_str) { } |
|
289
|
4 |
2 |
if (length $$brace_str > 1) { } |
|
325
|
0 |
30 |
unless defined $string |
|
326
|
20 |
10 |
if (ref $string) |
|
328
|
11 |
9 |
if (length $$string > 1) { } |
|
387
|
68 |
10 |
wantarray ? : |
|
394
|
0 |
506 |
unless $self->{'sections'} |
|
395
|
4 |
502 |
unless my $section = $self->{'sections'}[$i] |
|
405
|
0 |
7 |
unless $self->{'modifiers'} |
|
406
|
5 |
2 |
if wantarray |
|
413
|
0 |
494 |
unless $self->{'sections'} |
|
416
|
495 |
1 |
if (exists $sect->{'type'}) { } |