| line |
true |
false |
branch |
|
135
|
2 |
7 |
if ($args{'operators'}) { } |
|
138
|
1 |
1 |
if length $ops[1] > length $ops[0] |
|
140
|
3 |
1 |
if (length $_) { } |
|
144
|
1 |
2 |
if (/^\w/) { } |
|
150
|
1 |
2 |
if (/\w$/) |
|
161
|
1 |
8 |
if ($args{'parens'}) { } |
|
256
|
0 |
0 |
unless ($arg{'operand_cb'} or $arg{'error_cb'}) |
|
262
|
0 |
0 |
if ($arg{'operand_cb'}) |
|
265
|
0 |
0 |
if $arg{'error_cb'} |
|
321
|
0 |
33 |
unless defined $string |
|
330
|
17 |
126 |
if ($string =~ /\G\s+/cg) { } |
|
|
17 |
109 |
elsif ($want & 2 and $string =~ /$self->{'mre_operator'}/cg) { } |
|
|
14 |
95 |
elsif ($want & 4 and $string =~ /$self->{'mre_open_paren'}/cg) { } |
|
|
14 |
81 |
elsif ($want & 8 and $string =~ /$self->{'mre_close_paren'}/cg) { } |
|
|
48 |
33 |
elsif ($want & 1 and $string =~ /$self->{'mre_operand'}/cg) { } |
|
|
33 |
0 |
elsif ($want & 16 and $string =~ /\G\s*$/cig) { } |
|
348
|
0 |
14 |
$depth ? : |
|
356
|
15 |
33 |
$depth ? : |
|
367
|
0 |
33 |
unless ($last and $want & $last) |
|
371
|
0 |
0 |
$cb->{'error'} ? : |
|
375
|
0 |
33 |
if ($depth) |
|
377
|
0 |
0 |
$cb->{'error'} ? : |
|
388
|
0 |
0 |
unless $mask & 1 << $i |
|
393
|
0 |
0 |
if $tmp |
|
429
|
4 |
4 |
if (defined wantarray) { } |
|
442
|
4 |
4 |
if (defined wantarray) { } |
|
455
|
2 |
4 |
if (index($_[1], q[']) >= 0) { } |
|
456
|
1 |
1 |
if (defined wantarray) { } |
|
467
|
2 |
2 |
if (defined wantarray) { } |
|
481
|
0 |
0 |
defined wantarray ? : |
|
|
0 |
22 |
unless $_[1] =~ /^$re_delim$/o |
|
484
|
11 |
11 |
if (defined wantarray) { } |
|
528
|
0 |
0 |
if (ref $entry eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $entry) { } |
|
529
|
0 |
0 |
if $cb->{'open_paren'} |
|
531
|
0 |
0 |
if $cb->{'close_paren'} |
|
533
|
0 |
0 |
if $cb->{'operand'} |
|
535
|
0 |
0 |
if $cb->{'operator'} |
|
581
|
18 |
96 |
if $skip_next > 0 |
|
583
|
8 |
88 |
if (ref $entry eq 'ARRAY') { } |
|
|
66 |
22 |
elsif (ref $entry) { } |
|
585
|
4 |
4 |
if @$tmp == 1 |
|
586
|
2 |
6 |
if (not $tmp or ref $tmp eq 'ARRAY' and not @$tmp) { } |
|
588
|
1 |
1 |
unless @res |
|
593
|
33 |
33 |
if (&$cb($entry, @rest)) { } |
|
597
|
24 |
9 |
unless @res |
|
603
|
1 |
33 |
if @res == 1 and ref $res[0] eq 'ARRAY' |
|
649
|
28 |
150 |
if $skip_next > 0 |
|
650
|
64 |
86 |
unless (ref $entry) |
|
654
|
28 |
36 |
if $res and $ea eq $self->{'operators'}[1] or not $res and $ea eq $self->{'operators'}[0] |
|
659
|
8 |
78 |
if (ref $entry eq 'ARRAY') { } |
|
664
|
68 |
18 |
if ($ea eq $self->{'operators'}[1]) { } |
|
691
|
30 |
124 |
if $skip_next > 0 |
|
692
|
48 |
76 |
unless (ref $entry) |
|
696
|
21 |
27 |
if $res and $ea eq $self->{'operators'}[1] or not $res and $ea eq $self->{'operators'}[0] |
|
701
|
0 |
76 |
if (ref $entry eq 'ARRAY') { } |
|
706
|
58 |
18 |
if (defined $cur) { } |
|
708
|
50 |
8 |
if ($ea eq $self->{'operators'}[1]) { } |
|
714
|
11 |
7 |
unless defined $res |
|
738
|
4 |
47 |
if $skip_next > 0 |
|
739
|
16 |
31 |
unless (ref $entry) |
|
741
|
8 |
8 |
if (ref $last) { } |
|
744
|
4 |
4 |
if $last and $ea eq $self->{'operators'}[1] or not $last and $ea eq $self->{'operators'}[0] |
|
751
|
0 |
31 |
if (ref $entry eq 'ARRAY') { } |
|
754
|
0 |
0 |
if ref $last and @$last == 1 |
|
757
|
13 |
18 |
unless defined $last |
|
759
|
13 |
18 |
if (ref $last) { } |
|
760
|
4 |
14 |
if ($ea eq $self->{'operators'}[0]) { } |
|
|
14 |
0 |
elsif ($ea eq $self->{'operators'}[1]) { } |
|
762
|
2 |
2 |
if ($last) { } |
|
766
|
7 |
7 |
if ($last) { } |
|
773
|
10 |
9 |
unless @res |