Branch Coverage

blib/lib/WE/DB/ObjBase.pm
Criterion Covered Total %
branch 0 78 0.0


line true false branch
54 0 0 if (not $o) { }
76 0 0 if (not $o) { }
95 0 0 if (not $o) { }
114 0 0 unless (UNIVERSAL::isa($_, 'WE::Obj'))
130 0 0 if (UNIVERSAL::isa($_, 'WE::Obj'))
145 0 0 unless open F, $filename
217 0 0 unless (UNIVERSAL::isa($sub_routine, 'CODE'))
231 0 0 unless (UNIVERSAL::isa($sub_routine, 'CODE'))
238 0 0 if $WE::DB::Obj::prune
252 0 0 unless (UNIVERSAL::isa($pre_sub_routine, 'CODE') and UNIVERSAL::isa($post_sub_routine, 'CODE'))
260 0 0 if $WE::DB::Obj::prune
270 0 0 if $WE::DB::Obj::prune
297 0 0 unless (UNIVERSAL::isa($sub_routine, 'CODE'))
311 0 0 unless (UNIVERSAL::isa($sub_routine, 'CODE'))
317 0 0 if $WE::DB::Obj::prune
320 0 0 if (defined $p_obj_id)
338 0 0 unless defined $objid
339 0 0 unless $tree
341 0 0 unless ($obj)
347 0 0 if (@children_ids)
381 0 0 if not defined $obj->LockedBy or $obj->LockedBy eq ''
382 0 0 if $obj->LockedBy eq $self->Root->CurrentUser
383 0 0 if ($obj->LockType eq 'SessionLock')
384 0 0 if ($self->Root->OnlineUserDB) { }
386 0 0 unless ($r)
394 0 0 if $obj->LockType eq 'PermanentLock'
430 0 0 unless $args{-'type'}
431 0 0 unless $args{-'type'} =~ /^(Session|Permanent)Lock$/
478 0 0 if (defined $parent_obj and $obj->Id eq $parent_obj->Id)
482 0 0 if (@parents) { }
497 0 0 if (not ref $obj and exists $$cache{$obj})
501 0 0 unless $obj
503 0 0 if (exists $$cache{$objid})
506 0 0 if (defined $parent_obj and $objid eq $parent_obj->Id)
511 0 0 if (@parents) { }
512 0 0 if (exists $$cache{$parents[0]}) { }
536 0 0 if ($self->Root->NameDB)
538 0 0 if defined $objid
546 0 0 if (defined $obj->Name and $obj->Name eq $name)