| line |
true |
false |
branch |
|
26
|
33 |
0 |
if (my($rev, $key) = $_[0] =~ /^([-+]?)(.)$/) |
|
27
|
0 |
33 |
unless exists $mktypes{$key} |
|
30
|
11 |
22 |
if $rev eq '-' |
|
53
|
0 |
50 |
unless exists $mkmap{$name} |
|
55
|
15 |
35 |
if ($rev eq '-') |
|
56
|
0 |
15 |
/^-(.*)$/ ? : |
|
63
|
0 |
36 |
unless exists $mksub{$1} |
|
77
|
7 |
24 |
defined $for ? : |
|
81
|
31 |
0 |
if ($sub) { } |
|
83
|
19 |
12 |
if (ref $sub eq 'CODE') { } |
|
84
|
16 |
3 |
unless (grep {defined $_;} @subs) |
|
90
|
12 |
0 |
if ($sub eq '@_') |
|
91
|
2 |
10 |
unless grep {defined $_;} @subs |
|
95
|
0 |
13 |
if $DEBUG |
|
103
|
10 |
3 |
if (@map == @_) { } |
|
105
|
10 |
0 |
if (defined $subs[$i]) |
|
109
|
0 |
10 |
if $DEBUG |
|
115
|
4 |
0 |
if (defined $subs[$i]) { } |
|
122
|
0 |
3 |
if $DEBUG |
|
127
|
0 |
13 |
if $DEBUG >= 2 |
|
129
|
0 |
13 |
if $@ |
|
133
|
0 |
0 |
unless @_ == 1 |
|
141
|
0 |
7 |
unless $name =~ /^\w+(?:::\w+)*$/ |
|
143
|
0 |
7 |
unless @_ |
|
145
|
0 |
7 |
if exists $mkmap{$name} or exists $mktypes{$name} |