| line |
true |
false |
branch |
|
21
|
2 |
11 |
if (exists $args{-'domains'} and defined $args{-'domains'}) |
|
23
|
1 |
1 |
unless ref $domains eq 'HASH' |
|
27
|
3 |
9 |
if (exists $args{-'default'} and defined $args{-'default'}) { } |
|
29
|
1 |
2 |
unless ref $default eq 'HASH' |
|
64
|
0 |
2 |
if (exists $DOMAIN{$name}) |
|
75
|
2 |
103 |
exists $DOMAIN{$domain} ? : |
|
85
|
3 |
104 |
if ($args) |
|
86
|
0 |
3 |
if exists $$args{'key_rule'} |
|
98
|
99 |
4 |
if $$domain{'instance'} |
|
101
|
3 |
1 |
unless $st_args |
|
106
|
0 |
1 |
unless ($class->exists_method_setting($name)) |
|
107
|
0 |
0 |
if ($name =~ /^(.*)::[^:]*$/) |
|
109
|
0 |
0 |
unless $package->require |
|
112
|
1 |
0 |
if ($class->exists_method_setting($name)) |
|
137
|
23 |
1 |
if (0 < @_) |
|
138
|
12 |
11 |
unless (defined $_[0] and $_[0] =~ /^?\d+$/) |
|
143
|
23 |
1 |
if (0 < @_) |
|
144
|
23 |
0 |
$_[0] =~ /^\d+$/ ? : |
|
146
|
17 |
6 |
if 0 < @_ |
|
154
|
1 |
13 |
unless $any_class->require |
|
156
|
1 |
12 |
unless $any_class->can('delete') or $any_class->can('remove') |
|
157
|
1 |
12 |
if $invalid |