| line |
true |
false |
branch |
|
135
|
0 |
0 |
unless defined $db_dir |
|
137
|
0 |
0 |
defined $args{-'readonly'} ? : |
|
139
|
0 |
0 |
if (not -d $db_dir and $autocreate) |
|
143
|
0 |
0 |
unless ($readonly or -w $db_dir) |
|
147
|
0 |
0 |
defined $args{-'writeonly'} ? : |
|
148
|
0 |
0 |
defined $args{-'locking'} ? : |
|
149
|
0 |
0 |
defined $args{-'serializer'} ? : |
|
150
|
0 |
0 |
defined $args{-'failsafe'} ? : |
|
151
|
0 |
0 |
defined $args{-'db'} ? : |
|
152
|
0 |
0 |
defined $args{-'cache'} ? : |
|
154
|
0 |
0 |
if ($self->ObjDBClass) |
|
170
|
0 |
0 |
if ($@) |
|
171
|
0 |
0 |
$failsafe ? : |
|
175
|
0 |
0 |
if ($self->UserDBClass) |
|
185
|
0 |
0 |
if ($@) |
|
186
|
0 |
0 |
$failsafe ? : |
|
190
|
0 |
0 |
if ($self->ContentDBClass) |
|
200
|
0 |
0 |
if ($@) |
|
201
|
0 |
0 |
$failsafe ? : |
|
205
|
0 |
0 |
if ($self->OnlineUserDBClass) |
|
215
|
0 |
0 |
if ($@) |
|
216
|
0 |
0 |
$failsafe ? : |
|
220
|
0 |
0 |
if ($self->NameDBClass) |
|
230
|
0 |
0 |
if ($@) |
|
231
|
0 |
0 |
$failsafe ? : |
|
270
|
0 |
0 |
unless exists $args{-'as'} |
|
271
|
0 |
0 |
unless exists $args{-'db'} |
|
272
|
0 |
0 |
if ($args{-'as'} eq 'perl') { } |
|
276
|
0 |
0 |
if $@ |
|
277
|
0 |
0 |
if ($db_obj->can('Connected') and not $db_obj->Connected) |
|
293
|
0 |
0 |
unless exists $args{-'as'} |
|
294
|
0 |
0 |
unless defined $args{-'string'} |
|
300
|
0 |
0 |
if $@ |
|
302
|
0 |
0 |
if (defined $o) |
|
313
|
0 |
0 |
if (-e $permfile) { } |
|
|
0 |
0 |
elsif (-e $new_location) { } |
|
360
|
0 |
0 |
unless $user |
|
362
|
0 |
0 |
unless ($permissions) |
|
366
|
0 |
0 |
if (defined $obj_id) |
|
370
|
0 |
0 |
$group && ref $group && @$group > 0 ? : |
|
|
0 |
0 |
defined $path ? : |
|
383
|
0 |
0 |
if $release_state eq 'inactive' |
|
401
|
0 |
0 |
unless (defined $newobj) |
|
409
|
0 |
0 |
if ($useversioning) |
|
418
|
0 |
0 |
if (defined $args{$copykey}) |
|
419
|
0 |
0 |
if $versionedobj |
|
423
|
0 |
0 |
if $versionedobj |