| line |
true |
false |
branch |
|
60
|
0 |
0 |
if wantarray |
|
75
|
0 |
0 |
if exists $errors{$k} and ref $errors{$k} eq 'CODE' |
|
88
|
0 |
0 |
unless defined $tied |
|
100
|
0 |
0 |
@_ && !ref($_[0]) ? : |
|
101
|
0 |
0 |
@_ && ref $_[0] ? : |
|
103
|
0 |
0 |
if ref $package |
|
108
|
0 |
0 |
unless eval {
do {
$dsn->db
}
} |
|
109
|
0 |
0 |
unless defined $objectid or defined $object |
|
112
|
0 |
0 |
unless $dsn->dbconnected |
|
117
|
0 |
0 |
if (defined $objectid and defined $object) |
|
120
|
0 |
0 |
if scalar values %$perldata |
|
127
|
0 |
0 |
if defined $object |
|
136
|
0 |
0 |
unless scalar values %{$$self{'perldata'};} |
|
140
|
0 |
0 |
unless exists $$self{'perldata'}{$objectid} and $$self{'perldata'}{$objectid}{'reftype'} eq 'perldata' |
|
145
|
0 |
0 |
unless $$perlnode{'id'} |
|
159
|
0 |
0 |
if ($$self{'reftype'} eq 'hashref') { } |
|
|
0 |
0 |
elsif ($$self{'reftype'} eq 'arrayref') { } |
|
|
0 |
0 |
elsif ($$self{'reftype'} eq 'scalarref') { } |
|
183
|
0 |
0 |
if @_ >= 2 |
|
186
|
0 |
0 |
unless defined $self |
|
197
|
0 |
0 |
unless defined $tied |