| line |
true |
false |
branch |
|
12
|
0 |
1 |
@_ && ref $_[0] ? : |
|
|
0 |
1 |
unless my(%args) = @_ && ref $_[0] ? ('mapping', $_[0]) : @_ |
|
16
|
0 |
1 |
unless my $mapping = $args{'mapping'} |
|
23
|
0 |
1 |
unless ref $mapping |
|
24
|
0 |
1 |
unless ref $declarator |
|
25
|
0 |
1 |
unless ref $copula |
|
27
|
0 |
1 |
if (ref $mapping eq 'ARRAY') |
|
40
|
1 |
0 |
if (ref $mapping eq 'HASH') |
|
45
|
1 |
1 |
if ref $val |
|
50
|
0 |
1 |
if (ref $copula eq 'ARRAY') |
|
134
|
0 |
14 |
ref $prefix ? : |
|
|
0 |
14 |
unless my($key, @vals) = ref $prefix ? &$prefix(@_) : ($prefix . $_[0], 1) |
|
140
|
0 |
14 |
if ref $key and ref $key eq 'Object::Declare::Katamari' |
|
142
|
0 |
14 |
if $aliases and exists $aliases->{$key} |
|
154
|
0 |
12 |
if $field =~ /DESTROY$/ |
|
158
|
0 |
12 |
ref $prefix ? : |
|
|
0 |
12 |
unless my($key, @vals) = ref $prefix ? &$prefix($field, @_) : ($prefix . $field, @_) |
|
164
|
2 |
10 |
if $aliases and exists $aliases->{$key} |
|
207
|
1 |
1 |
wantarray ? : |
|
223
|
6 |
4 |
ref $_[0] ? : |
|
231
|
6 |
4 |
$_[0] ? : |
|
240
|
6 |
4 |
if (wantarray) { } |
|
257
|
0 |
4 |
unless my(@katamari) = @{$_[0];} |
|
265
|
0 |
26 |
unless my(@katamari) = @{$_[0];} |
|
266
|
0 |
26 |
unless my $field = shift @katamari |
|
272
|
22 |
4 |
if (@katamari == 1) { } |
|
275
|
2 |
20 |
if (ref $katamari[0] eq 'Object::Declare::Damacy') |
|
286
|
4 |
4 |
if ref $kata eq 'Object::Declare::Damacy' |