| line |
true |
false |
branch |
|
11
|
1 |
0 |
unless $self->can('accessor_specs') |
|
15
|
1 |
0 |
unless $self->accessor_specs |
|
33
|
0 |
0 |
unless defined $$self{$field} |
|
39
|
0 |
0 |
unless $$self{$field} |
|
44
|
0 |
0 |
unless defined $$self{$field} |
|
50
|
0 |
0 |
unless $$self{$field} |
|
58
|
1 |
4 |
unless $stuff |
|
59
|
1 |
4 |
if $@ |
|
60
|
4 |
0 |
if ($self->can('accessor_specs')) |
|
63
|
1 |
10 |
if $$spec{$k}{'required'} and not exists $$stuff{$k} |
|
66
|
1 |
6 |
if exists $$spec{$k}{'class'} and exists $$stuff{$k} and not UNIVERSAL::isa($$stuff{$k}, $$spec{$k}{'class'}) |
|
76
|
0 |
3 |
unless $_[0]->can('accessor_specs') |
|
79
|
0 |
3 |
if not exists $$spec{$key} or @_ > 1 |
|
82
|
2 |
1 |
if defined $_[0] and exists $$spec{$key}{'class'} and not UNIVERSAL::isa($_[0], $$spec{$key}{'class'}) |
|
87
|
0 |
1 |
if defined $_[0] and $$spec{$key}{'array'} and ref $_[0] ne 'ARRAY' |
|
96
|
0 |
0 |
unless $_[0]->can('accessor_specs') |
|
99
|
0 |
0 |
if not exists $$spec{$key} or @_ > 1 |
|
102
|
0 |
0 |
if ($$spec{$key}{'array'}) { } |
|
104
|
0 |
0 |
unless $self->SUPER::get($key, @_) |
|
|
0 |
0 |
wantarray ? : |
|
121
|
2 |
1 |
if $f =~ s/=(.*)// |
|
123
|
0 |
3 |
unless $f =~ /^\w+$/ |