| line |
true |
false |
branch |
|
71
|
0 |
1 |
unless defined $vars |
|
72
|
0 |
1 |
unless defined $types |
|
147
|
0 |
0 |
if ($_[0] =~ /^\d+(\.\d+)?$/) |
|
148
|
0 |
0 |
defined $2 ? : |
|
156
|
0 |
50 |
unless defined $ast |
|
158
|
50 |
0 |
ref $ast ? : |
|
162
|
9 |
41 |
if ($op eq 'I') { } |
|
|
0 |
41 |
elsif ($op eq 'D') { } |
|
|
14 |
27 |
elsif ($op eq 'V') { } |
|
|
13 |
14 |
elsif ($op eq '.') { } |
|
|
6 |
8 |
elsif ($op =~ m[[-+*/]]) { } |
|
|
8 |
0 |
elsif ($op eq '[]') { } |
|
167
|
0 |
14 |
if (ref $arg) |
|
170
|
1 |
13 |
unless exists $$self{'v'}{$arg} |
|
173
|
0 |
13 |
if (ref $$arg[1] and $$arg[1]{'op'} ne 'V') |
|
178
|
0 |
11 |
unless ref $$self{'t'}{$subt} |
|
180
|
0 |
11 |
unless exists $$self{'t'}{$subt}{$e} |
|
187
|
12 |
0 |
if ($tt eq 'int') { } |
|
|
0 |
0 |
elsif ($tt eq 'double') { } |
|
201
|
0 |
8 |
if $indt ne 'int' |
|
205
|
0 |
8 |
unless $subt =~ s/\Q$indbr\E$// |