| line |
true |
false |
branch |
|
27
|
0 |
2 |
if @_ |
|
36
|
4 |
0 |
if ($k =~ /^\w/u and exists $obj->{$k}) |
|
68
|
0 |
0 |
if (ref $item eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $item eq 'HASH') { } |
|
92
|
2 |
9 |
if ($spec =~ s/\b(sub\s*{.*)//u) |
|
95
|
7 |
4 |
if $spec ne "" |
|
96
|
9 |
0 |
@spec == 1 ? : |
|
|
2 |
9 |
@spec > 1 ? : |
|
97
|
0 |
11 |
if (@$_ == 0) { } |
|
102
|
9 |
13 |
if ($c =~ /^\++(.*)/u) { } |
|
|
2 |
11 |
elsif ($c =~ /^\-+(.*)$/iu) { } |
|
115
|
5 |
6 |
if (not /\W/u) { } |
|
116
|
5 |
0 |
if (exists $obj->{'HASH'}{$_}) { } |
|
119
|
0 |
0 |
if ($obj->{'NEWLABEL'}) { } |
|
130
|
0 |
6 |
if (@labels == 0) |
|
140
|
11 |
0 |
if (my(@field) = /\G($re_field)=/gpu) { } |