| line |
true |
false |
branch |
|
43
|
1148 |
4 |
unless my(@errors) = validate_mask($mask) |
|
52
|
91 |
1047 |
ref $sub ? : |
|
60
|
221 |
917 |
unless $ref |
|
77
|
2 |
1153 |
unless $mask and ref $mask and &reftype($mask) eq 'HASH' |
|
84
|
548 |
1429 |
if $key =~ /^\d+$/ |
|
85
|
1422 |
7 |
if $VALID_MASK{$key} |
|
89
|
135 |
1018 |
if (my $shift = $mask->{'shift'}) |
|
90
|
1 |
134 |
unless $shift =~ /^\d+$/ and $shift >= 0 |
|
94
|
520 |
633 |
if (my $hide = $mask->{'hide'}) |
|
95
|
0 |
520 |
unless $hide =~ /^\d+$/ and $hide >= 0 |
|
108
|
2 |
12 |
if $delta and ref $delta || !($delta =~ /^-?\d+$/) |
|
111
|
12 |
1 |
unless @subs |
|
112
|
12 |
1 |
if $delta |
|
125
|
3 |
90 |
if $sub and not ref $sub |
|
127
|
1 |
89 |
unless $sub and ref $sub and &reftype($sub) eq 'CODE' |
|
143
|
4 |
4 |
if $sub and not ref $sub |
|
145
|
1 |
4 |
unless $sub and ref $sub and &reftype($sub) eq 'CODE' |
|
149
|
1 |
3 |
if $name =~ /__ANON__$/ |
|
170
|
0 |
15409 |
ref $sub ? : |
|
174
|
33 |
15376 |
if $sub =~ /(?:^|:)(END|BEGIN|UNITCHECK|CHECK|INIT|DESTROY|import|unimport)$/ |
|
184
|
11798 |
3578 |
unless @order |