| line |
true |
false |
branch |
|
4329
|
0 |
8 |
if (ref $ref eq 'HASH') { } |
|
|
1 |
7 |
elsif (ref $ref eq 'ARRAY') { } |
|
4365
|
0 |
7 |
if (ref $var_ref eq "REF") |
|
4369
|
7 |
0 |
if ($ref =~ s/\{|\}//g) { } |
|
|
0 |
0 |
elsif ($ref =~ s/\[|\]//g) { } |
|
4371
|
1 |
6 |
if (ref $var_ref->{$ref} eq 'SCALAR') { } |
|
4382
|
2 |
5 |
if (ref $ret eq "REF") |
|
4386
|
3 |
4 |
if (scalar @{$array_ref;}) |
|
4944
|
15 |
1304 |
if ($remainder =~ /^('|")(.*)/) { } |
|
4948
|
15 |
0 |
if ($remainder =~ /^([^\"']*)('|")(.*)/) |
|
4971
|
15 |
1304 |
if ($is_string) { } |
|
5004
|
651 |
2429 |
if (exists $dict{$tmp_op} or exists $var{$tmp_op}) |
|
5009
|
0 |
3080 |
if ($op =~ /^VARIABLE$/g) |
|
5013
|
21 |
3059 |
if ($op =~ /^'(.*)'$/) |
|
5016
|
21 |
0 |
unless ($is_do) |
|
5021
|
1 |
3079 |
if ($op =~ /^;$/g) |
|
5026
|
2 |
3078 |
if ($op =~ /^PERL$/g) |
|
5031
|
1 |
3079 |
if ($op =~ /^PERLFUNC$/g) |
|
5036
|
3 |
3077 |
if ($op =~ /^:$/g) |
|
5042
|
3070 |
7 |
unless ($is_block) |
|
5044
|
5 |
3065 |
if ($op =~ /^BEGIN$/g) |
|
5050
|
5 |
3060 |
if ($op =~ /^WHILE$/g) |
|
5056
|
5 |
3060 |
if ($is_do and $op =~ /^REPEAT$/g) |
|
5061
|
36 |
3029 |
if ($op =~ /^DO$/g) |
|
5066
|
36 |
3029 |
if ($op =~ /^LOOP|\+LOOP$/g) |
|
5072
|
5 |
3060 |
if ($op =~ /^IF$/g) |
|
5075
|
5 |
0 |
if ($is_if == 0) |
|
5081
|
2 |
3063 |
if ($op =~ /^ELSE$/g) |
|
5083
|
2 |
0 |
if ($is_if == 1) |
|
5089
|
5 |
3060 |
if ($op =~ /^THEN$/g) |
|
5092
|
5 |
0 |
if ($is_if == 0) |
|
5097
|
2 |
3 |
if ($is_else) |
|
5106
|
3051 |
21 |
if (not $is_string) { } |
|
5108
|
178 |
2873 |
if ($is_do or $is_begin or $is_block) { } |
|
5114
|
441 |
2432 |
if (defined $dict{$op}) { } |
|
5119
|
441 |
0 |
if ($remove_return >= 0) { } |
|
5177
|
0 |
0 |
if $sep |
|
5191
|
0 |
0 |
if $sep |