| line |
true |
false |
branch |
|
11
|
0 |
1 |
@_ && ref $_[0] ? : |
|
|
0 |
1 |
unless my(%args) = @_ && ref $_[0] ? ('mapping', $_[0]) : @_ |
|
14
|
0 |
1 |
unless my $mapping = $args{'mapping'} |
|
21
|
0 |
1 |
unless ref $mapping |
|
22
|
0 |
1 |
unless ref $declarator |
|
23
|
0 |
1 |
unless ref $copula |
|
25
|
0 |
1 |
if (ref $mapping eq 'ARRAY') |
|
37
|
1 |
0 |
if (ref $mapping eq 'HASH') |
|
40
|
1 |
1 |
if ref $val |
|
45
|
0 |
1 |
if (ref $copula eq 'ARRAY') |
|
113
|
0 |
14 |
ref $prefix ? : |
|
|
0 |
14 |
unless my($key, @vals) = ref $prefix ? &$prefix(@_) : ($prefix . $_[0], 1) |
|
116
|
0 |
14 |
if ref $key and ref $key eq 'Object::Declare::Katamari' |
|
118
|
0 |
14 |
if $aliases and exists $aliases->{$key} |
|
127
|
0 |
12 |
if $field =~ /DESTROY$/ |
|
131
|
0 |
12 |
ref $prefix ? : |
|
|
0 |
12 |
unless my($key, @vals) = ref $prefix ? &$prefix($field, @_) : ($prefix . $field, @_) |
|
133
|
2 |
10 |
if $aliases and exists $aliases->{$key} |
|
164
|
1 |
1 |
wantarray ? : |
|
176
|
6 |
4 |
ref $_[0] ? : |
|
183
|
6 |
4 |
$_[0] ? : |
|
191
|
6 |
4 |
if (wantarray) { } |
|
204
|
0 |
4 |
unless my(@katamari) = @{$_[0];} |
|
211
|
0 |
26 |
unless my(@katamari) = @{$_[0];} |
|
212
|
0 |
26 |
unless my $field = shift @katamari |
|
218
|
22 |
4 |
if (@katamari == 1) { } |
|
220
|
2 |
20 |
if (ref $katamari[0] eq 'Object::Declare::Damacy') |
|
228
|
4 |
4 |
if ref $kata eq 'Object::Declare::Damacy' |