| line |
true |
false |
branch |
|
54
|
3752 |
0 |
defined $_[0] ? :
|
|
62
|
0 |
3752 |
unless my $self = PPI::Token::new($class, $init)
|
|
65
|
0 |
3752 |
unless my $options = $QUOTES{$init}
|
|
73
|
1830 |
1922 |
if $self->{'modifiers'}
|
|
76
|
103 |
3649 |
if $init eq "<"
|
|
77
|
356 |
3396 |
if $init eq "("
|
|
86
|
0 |
3752 |
unless my $self = $t->{'token'}
|
|
89
|
2611 |
1141 |
if ($self->{'operator'})
|
|
92
|
535 |
2076 |
if (substr($t->{'line'}, $t->{'line_cursor'}, 1) =~ /\s/)
|
|
95
|
0 |
535 |
unless defined $gap
|
|
96
|
185 |
350 |
if (ref $gap)
|
|
110
|
1109 |
1317 |
if (my $section = $SECTIONS{$sep}) { }
|
|
121
|
1568 |
1999 |
$self->{'braced'} ? :
|
|
123
|
857 |
2710 |
unless $rv
|
|
126
|
1569 |
1141 |
unless $self->{'modifiers'}
|
|
146
|
0 |
1999 |
unless defined $string
|
|
147
|
576 |
1423 |
if (ref $string)
|
|
149
|
432 |
144 |
if (length $$string > 1) { }
|
|
177
|
1089 |
334 |
if $self->{'_sections'} == 1
|
|
186
|
0 |
334 |
unless defined $string
|
|
187
|
76 |
258 |
if (ref $string)
|
|
189
|
75 |
1 |
if (length $$string > 1) { }
|
|
224
|
0 |
1568 |
unless defined $brace_str
|
|
225
|
158 |
1410 |
if (ref $brace_str)
|
|
227
|
103 |
55 |
if (length $$brace_str > 1) { }
|
|
253
|
1242 |
168 |
if $self->{'_sections'} == 1
|
|
259
|
118 |
50 |
if ($char =~ /\s/)
|
|
262
|
0 |
118 |
unless defined $gap_str
|
|
263
|
2 |
116 |
if (ref $gap_str)
|
|
274
|
121 |
45 |
if ($section) { }
|
|
|
22 |
23 |
elsif ($char =~ / \A [^\w\s] \z /msx) { }
|
|
286
|
0 |
121 |
unless defined $brace_str
|
|
287
|
9 |
112 |
if (ref $brace_str) { }
|
|
289
|
7 |
2 |
if (length $$brace_str > 1) { }
|
|
325
|
0 |
22 |
unless defined $string
|
|
326
|
13 |
9 |
if (ref $string)
|
|
328
|
5 |
8 |
if (length $$string > 1) { }
|
|
387
|
68 |
10 |
wantarray ? :
|
|
394
|
0 |
531 |
unless $self->{'sections'}
|
|
395
|
4 |
527 |
unless my $section = $self->{'sections'}[$i]
|
|
405
|
0 |
7 |
unless $self->{'modifiers'}
|
|
406
|
5 |
2 |
if wantarray
|
|
413
|
0 |
519 |
unless $self->{'sections'}
|
|
416
|
520 |
1 |
if (exists $sect->{'type'}) { }
|