| line |
true |
false |
branch |
|
43
|
10 |
11 |
unless ref $self |
|
70
|
19 |
1 |
if $$instance{$oid}{'object'} |
|
101
|
0 |
2 |
if $attrs{'storage_class'} =~ /[^\w:]/ |
|
102
|
0 |
2 |
unless eval "require $attrs{'storage_class'}; 1" |
|
115
|
0 |
3 |
unless my $class = $$self{'class'} |
|
118
|
1 |
3 |
unless my $code = $class->can($method) |
|
125
|
0 |
0 |
unless $self->i18n->language |
|
128
|
0 |
0 |
unless my $storage = $storage_class->new($self, $method) |
|
131
|
0 |
0 |
if @_ |
|
150
|
3 |
11 |
if @_ |
|
152
|
6 |
5 |
unless exists $$self{'object'} |
|
165
|
0 |
0 |
unless $opts{'notes'} and my $history_class = $$self{'history_class'} |