| line |
true |
false |
branch |
|
4283
|
0 |
8 |
if (ref $ref eq 'HASH') { } |
|
|
1 |
7 |
elsif (ref $ref eq 'ARRAY') { } |
|
4319
|
0 |
7 |
if (ref $var_ref eq 'REF') |
|
4323
|
7 |
0 |
if ($ref =~ s/\{|\}//g) { } |
|
|
0 |
0 |
elsif ($ref =~ s/\[|\]//g) { } |
|
4325
|
1 |
6 |
if (ref $$var_ref{$ref} eq 'SCALAR') { } |
|
4336
|
2 |
5 |
if (ref $ret eq 'REF') |
|
4340
|
3 |
4 |
if (scalar @{$array_ref;}) |
|
4898
|
15 |
1304 |
if ($remainder =~ /^('|")(.*)/) { } |
|
4902
|
15 |
0 |
if ($remainder =~ /^([^\"']*)('|")(.*)/) |
|
4925
|
15 |
1304 |
if ($is_string) { } |
|
4958
|
651 |
2429 |
if (exists $dict{$tmp_op} or exists $var{$tmp_op}) |
|
4963
|
0 |
3080 |
if ($op =~ /^VARIABLE$/g) |
|
4967
|
21 |
3059 |
if ($op =~ /^'(.*)'$/) |
|
4970
|
21 |
0 |
unless ($is_do) |
|
4975
|
1 |
3079 |
if ($op =~ /^;$/g) |
|
4980
|
2 |
3078 |
if ($op =~ /^PERL$/g) |
|
4985
|
1 |
3079 |
if ($op =~ /^PERLFUNC$/g) |
|
4990
|
3 |
3077 |
if ($op =~ /^:$/g) |
|
4996
|
3070 |
7 |
unless ($is_block) |
|
4998
|
5 |
3065 |
if ($op =~ /^BEGIN$/g) |
|
5004
|
5 |
3060 |
if ($op =~ /^WHILE$/g) |
|
5010
|
5 |
3060 |
if ($is_do and $op =~ /^REPEAT$/g) |
|
5015
|
36 |
3029 |
if ($op =~ /^DO$/g) |
|
5020
|
36 |
3029 |
if ($op =~ /^LOOP|\+LOOP$/g) |
|
5026
|
5 |
3060 |
if ($op =~ /^IF$/g) |
|
5029
|
5 |
0 |
if ($is_if == 0) |
|
5035
|
2 |
3063 |
if ($op =~ /^ELSE$/g) |
|
5037
|
2 |
0 |
if ($is_if == 1) |
|
5043
|
5 |
3060 |
if ($op =~ /^THEN$/g) |
|
5046
|
5 |
0 |
if ($is_if == 0) |
|
5051
|
2 |
3 |
if ($is_else) |
|
5060
|
3051 |
21 |
if (not $is_string) { } |
|
5062
|
178 |
2873 |
if ($is_do or $is_begin or $is_block) { } |
|
5068
|
441 |
2432 |
if (defined $dict{$op}) { } |
|
5073
|
441 |
0 |
if ($remove_return >= 0) { } |
|
5131
|
0 |
0 |
if $sep |
|
5145
|
0 |
0 |
if $sep |