| 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'
|