| line |
true |
false |
branch |
|
13
|
21 |
4 |
unless ref $attrs eq 'ARRAY' |
|
16
|
12 |
13 |
@options > 1 ? : |
|
20
|
2 |
29 |
if not $oname eq 'default' || $oname eq 'inherit' or $type eq 'attr' and $oname ne 'default' |
|
29
|
13 |
0 |
$type eq 'dual_attr' ? : |
|
|
14 |
13 |
$type eq 'class_attr' ? : |
|
|
0 |
27 |
$type eq 'attr' ? : |
|
59
|
10 |
30 |
if ($inherit) |
|
66
|
2 |
1 |
$inherit eq 'hash_copy' ? : |
|
|
2 |
3 |
$inherit eq 'array_copy' ? : |
|
|
2 |
5 |
$inherit eq 'scalar_copy' ? : |
|
|
7 |
3 |
unless ref $inherit eq 'CODE' |
|
71
|
1 |
9 |
unless $options->{'inherit'} |
|
75
|
0 |
39 |
unless not ref $default or ref $default eq 'CODE' |
|
80
|
26 |
13 |
if (($type || '') eq 'class') { } |
|
83
|
6 |
20 |
if ($inherit) { } |
|
|
12 |
8 |
elsif (defined $default) { } |
|
93
|
1 |
53 |
if ref $self |
|
102
|
14 |
39 |
if @_ == 0 and not exists $class_attrs->{$attr} |
|
104
|
18 |
35 |
if (@_ > 0) |
|
106
|
1 |
17 |
if @_ > 1 |
|
134
|
1 |
19 |
if ref $self |
|
143
|
3 |
10 |
ref $default ? : |
|
|
13 |
6 |
if @_ == 0 and not exists $class_attrs->{$attr} |
|
145
|
3 |
16 |
if (@_ > 0) |
|
147
|
1 |
2 |
if @_ > 1 |
|
176
|
1 |
18 |
if ref $self |
|
184
|
10 |
8 |
if (@_ > 0) |
|
186
|
1 |
9 |
if @_ > 1 |
|
208
|
3 |
10 |
if ($inherit) { } |
|
|
6 |
4 |
elsif (defined $default) { } |
|
219
|
6 |
6 |
if @_ == 0 and not exists $self->{$attr} |
|
221
|
3 |
9 |
if (@_ > 0) |
|
223
|
0 |
3 |
if @_ > 1 |
|
253
|
1 |
5 |
ref $default ? : |
|
|
6 |
0 |
if @_ == 0 and not exists $self->{$attr} |
|
255
|
0 |
6 |
if (@_ > 0) |
|
257
|
0 |
0 |
if @_ > 1 |
|
284
|
4 |
4 |
if (@_ > 0) |
|
286
|
0 |
4 |
if @_ > 1 |
|
312
|
26 |
50 |
ref $_[0] ? : |
|
323
|
6 |
14 |
if (my $class = ref $proto) { } |
|
333
|
5 |
1 |
ref $default ? : |
|
|
8 |
6 |
eval {
do {
$base->can($attr)
}
} ? : |