| line |
true |
false |
branch |
|
44
|
69 |
279 |
wantarray ? : |
|
51
|
1 |
0 |
wantarray ? : |
|
58
|
2 |
64 |
if $tail =~ /\S/ms |
|
66
|
1 |
51 |
unless ($std) |
|
78
|
59 |
253 |
if ($node->{'type'} eq "list") |
|
82
|
18 |
235 |
if ($node->{'type'} eq "union") |
|
86
|
8 |
227 |
if ($node->{'type'} eq "intersect") |
|
93
|
2 |
225 |
if ($node->{'type'} eq "slash") |
|
95
|
0 |
2 |
unless @types == 2 |
|
100
|
2 |
223 |
if ($node->{'type'} eq "slurpy") |
|
105
|
4 |
219 |
if ($node->{'type'} eq "complement") |
|
109
|
53 |
166 |
if ($node->{'type'} eq "parameterized") |
|
112
|
2 |
0 |
unless $base->is_parameterizable or $node->{'params'} |
|
114
|
49 |
2 |
$node->{'params'} ? : |
|
117
|
8 |
158 |
if ($node->{'type'} eq "primary" and $node->{'token'}->type eq "CLASS") |
|
126
|
12 |
146 |
if ($node->{'type'} eq "primary" and $node->{'token'}->type eq "QUOTELIKE") |
|
130
|
6 |
140 |
if ($node->{'type'} eq "primary" and $node->{'token'}->type eq "STRING") |
|
134
|
3 |
137 |
if ($node->{'type'} eq "primary" and $node->{'token'}->type eq "HEXNUM") |
|
137
|
1 |
2 |
if ($spelling =~ /^[+-]/) |
|
142
|
1 |
2 |
$sign eq '-' ? : |
|
146
|
137 |
0 |
if ($node->{'type'} eq "primary" and $node->{'token'}->type eq "TYPE") |
|
148
|
0 |
137 |
$t =~ /^(.+)::(\w+)$/ ? : |
|
152
|
4 |
133 |
unless $r |
|
160
|
10 |
302 |
if ($expr->{'type'} eq "expression" and $expr->{'op'}[0] eq "COMMA") |
|
164
|
18 |
284 |
if ($expr->{'type'} eq "expression" and $expr->{'op'}[0] eq "UNION") |
|
168
|
8 |
276 |
if ($expr->{'type'} eq "expression" and $expr->{'op'}[0] eq "INTERSECT") |
|
172
|
2 |
274 |
if ($expr->{'type'} eq "expression" and $expr->{'op'}[0] eq "SLASH") |
|
186
|
14 |
90 |
if ($expr->{'type'} eq 'expression' and $expr->{'op'}[0] eq $op) { } |
|
227
|
4 |
4446 |
if ($tokens->peek(0)->type eq "NOT") |
|
236
|
2 |
4444 |
if ($tokens->peek(0)->type eq "SLURPY") |
|
245
|
9 |
4435 |
if ($tokens->peek(0)->type eq "L_PAREN") |
|
252
|
385 |
4027 |
if ($tokens->peek(1) and $tokens->peek(0)->type eq "TYPE" and $tokens->peek(1)->type eq "L_BRACKET") |
|
263
|
4 |
381 |
if ($tokens->peek(0)->type eq 'R_BRACKET') { } |
|
269
|
381 |
0 |
unless $params->{'type'} eq "list" |
|
280
|
13 |
3 |
if ($type eq "TYPE" or $type eq "QUOTELIKE" or $type eq "STRING" or $type eq "HEXNUM" or $type eq "CLASS") |
|
394
|
0 |
8929 |
unless $self->_stack_size |
|
398
|
8929 |
26 |
if (ref $item) |
|
404
|
0 |
8929 |
if (@_ and $_[0] ne $r->type) |
|
414
|
0 |
4841 |
if $self->empty |
|
426
|
8905 |
32 |
unless length $space |
|
434
|
5 |
75 |
if (ref $_) { } |
|
455
|
0 |
8937 |
if $self->{'remaining'} eq "" |
|
460
|
4497 |
4440 |
if ($self->{'remaining'} =~ m(^( => | [()\]\[|&~,/] ))msx) |
|
466
|
3785 |
655 |
if ($self->{'remaining'} =~ /\A\s*[q'"]/ms) |
|
468
|
3785 |
0 |
if (my $quotelike = &Text::Balanced::extract_quotelike($self->{'remaining'})) |
|
473
|
652 |
3 |
if ($self->{'remaining'} =~ /^([+-]?[\w:.+]+)/ms) |
|
477
|
10 |
642 |
if ($spelling =~ /::$/ms) { } |
|
|
3 |
639 |
elsif ($spelling =~ /^[+-]?0x[0-9A-Fa-f]+$/ms) { } |
|
|
5 |
634 |
elsif (&looks_like_number($spelling)) { } |
|
|
4 |
630 |
elsif ($self->{'remaining'} =~ /^\s*=>/ms) { } |
|
|
2 |
628 |
elsif ($spelling eq 'slurpy') { } |