| line |
true |
false |
branch |
|
28
|
1 |
280 |
unless $self->token_type eq 0
|
|
52
|
9 |
54 |
unless @_ > 1
|
|
69
|
0 |
2078 |
if 0 eq ($self->{'token_type'} || '')
|
|
78
|
577 |
1735 |
if ($pos1 >= length $self->{'input'})
|
|
87
|
291 |
286 |
if (not defined $type or $type eq "")
|
|
94
|
1 |
2020 |
unless defined $type
|
|
96
|
0 |
2020 |
unless $pos1 > $pos0
|
|
107
|
10 |
961 |
if $self->{'token_type'} eq 0
|
|
116
|
0 |
2 |
if delete $args{'multiline'}
|
|
126
|
736 |
2 |
unless $self->{'token_type'} eq "or"
|
|
138
|
732 |
8 |
unless $self->{'token_type'} eq "and"
|
|
149
|
5 |
744 |
if ($self->{'token_type'} eq "not" or $self->{'token_type'} eq "!")
|
|
160
|
724 |
24 |
unless $_cmp_ops{$self->{'token_type'}}
|
|
173
|
754 |
26 |
unless $self->{'token_type'} eq "+" or $self->{'token_type'} eq "-"
|
|
178
|
11 |
24 |
$negate ? :
|
|
189
|
33 |
6 |
$op eq '*' ? :
|
|
199
|
30 |
855 |
if ($self->{'token_type'} eq "-")
|
|
204
|
13 |
842 |
if ($self->{'token_type'} eq "(")
|
|
208
|
0 |
13 |
if $self->{'token_type'} ne ")"
|
|
210
|
2 |
11 |
@$args > 1 ? :
|
|
213
|
323 |
519 |
if ($self->{'token_type'} eq "Number")
|
|
217
|
84 |
435 |
if ($self->{'token_type'} eq "String")
|
|
221
|
434 |
1 |
if ($self->{'token_type'} eq "Identifier")
|
|
223
|
266 |
168 |
if ($self->{'token_type'} eq '(') { }
|
|
225
|
11 |
255 |
$self->{'token_type'} eq ')' ? :
|
|
227
|
0 |
266 |
if $self->{'token_type'} ne ")"
|
|
236
|
1 |
0 |
if ($self->{'token_type'} eq 0)
|
|
274
|
0 |
8 |
$] >= 5.02 && $] < 5.020003 ? :
|
|
304
|
8 |
0 |
if ref $pkg
|
|
305
|
8 |
0 |
unless defined $method_name
|
|
308
|
8 |
40 |
$_->[3] ? :
|
|
318
|
0 |
8 |
unless eval "$code; 1"
|
|
|
237 |
2075 |
if $self->{'input'} =~ /\G(?^:(\s+))/cg
|
|
|
328 |
1747 |
if $self->{'input'} =~ /\G(?^:([0-9]*\.?[0-9]+(?:[eE][+-]?[0-9]+)?)\b)/cg
|
|
|
2 |
1745 |
if $self->{'input'} =~ /\G(?^:0x([0-9A-Fa-f]+))/cg
|
|
|
924 |
821 |
if $self->{'input'} =~ m[\G(?^u:(not|and|\>\=|\<\=|or|\=\=|\<\>|\!\=|\<|\(|\+|\!|\>|\=|\,|\\x{2264}|/|\\x{2260}|\*|\)|\-|\\x{2265}))]cg
|
|
|
445 |
376 |
if $self->{'input'} =~ /\G(?^:([A-Za-z_][A-Za-z0-9_.]*)\b)/cg
|
|
|
85 |
2 |
defined $1 ? :
|
|
|
85 |
2 |
if defined $1
|
|
|
2 |
85 |
if defined $2
|
|
|
87 |
289 |
if $self->{'input'} =~ /\G(?^:(?:"((?:[^"]|"")*)"|'((?:[^']|'')*)'))/cg
|
|
344
|
2 |
21 |
!@{$node->parameters;} ? :
|
|
425
|
36 |
5 |
if $node->can("number_value")
|
|
426
|
0 |
5 |
if $node->can("function_name") and $node->function_name eq "negative"
|