| line |
true |
false |
branch |
|
29
|
0 |
2 |
if @_ |
|
38
|
6 |
0 |
if ($k =~ /^\w/u and exists $obj->{$k}) |
|
58
|
0 |
0 |
if (defined $obj->{'RESET'} and $_ eq $obj->{'RESET'}) { } |
|
76
|
0 |
0 |
if (ref $item eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $item eq 'HASH') { } |
|
100
|
2 |
9 |
if ($spec =~ s/\b(sub\s*{.*)//u) |
|
103
|
7 |
4 |
if $spec ne "" |
|
104
|
9 |
0 |
@spec == 1 ? : |
|
|
2 |
9 |
@spec > 1 ? : |
|
105
|
0 |
11 |
if (@$_ == 0) { } |
|
110
|
9 |
13 |
if ($c =~ /^\++(.*)/u) { } |
|
|
2 |
11 |
elsif ($c =~ /^\-+(.*)$/iu) { } |
|
123
|
5 |
6 |
if (not /\W/u) { } |
|
124
|
5 |
0 |
if (exists $obj->{'HASH'}{$_}) { } |
|
127
|
0 |
0 |
if ($obj->{'NEWLABEL'}) { } |
|
138
|
0 |
6 |
if (@labels == 0) |
|
148
|
11 |
0 |
if (my(@field) = /\G($re_field)=/gpu) { } |