| line |
true |
false |
branch |
|
54
|
2 |
5 |
unless 'ARRAY' eq ref $_[0] and @{$_[0];} |
|
57
|
1 |
15 |
unless my $args = check({'fmt', {'allow', sub {
ref $_[0] eq 'CODE';
}
}, 'attrs', {'allow', sub {
'HASH' eq ref $_[0] unless 'ARRAY' eq ref $_[0] and @{$_[0];};
}
}, 'private', {'default', 1}, 'instance', {}}, {@_}) |
|
63
|
9 |
6 |
unless (exists $$args{'attrs'}) |
|
67
|
1 |
8 |
if $@ |
|
72
|
1 |
13 |
unless my $has = $container->can('has') |
|
78
|
12 |
1 |
'ARRAY' eq ref $$args{'attrs'} ? : |
|
83
|
16 |
5 |
$$args{'fmt'} ? : |
|
|
21 |
1 |
unless defined $alias |
|
86
|
13 |
9 |
$$args{'private'} ? : |
|
101
|
6 |
7 |
if (defined $$args{'instance'}) { } |
|
126
|
11 |
17 |
defined $$options{'instance'} ? : |
|
130
|
1 |
27 |
unless defined $map |
|
142
|
7 |
1 |
'HASH' eq ref $_[-1] ? : |
|
144
|
6 |
2 |
@_ ? : |
|
156
|
9 |
12 |
'HASH' eq ref $_[-1] ? : |
|
158
|
1 |
20 |
unless my $containerClass = blessed $container |
|
169
|
32 |
2 |
if $container->$has |