Branch Coverage

blib/lib/WE/DB/Obj.pm

Criterion	Covered	Total	%
branch	0	334	0.0

line	true	false	branch
126	0	0	unless defined $args{-'db'}
128	0	0	unless defined $args{-'serializer'}
130	0	0	unless defined $args{-'locking'}
131	0	0	unless defined $args{-'readonly'}
132	0	0	unless defined $args{-'writeonly'}
133	0	0	unless defined $args{-'connect'}
134	0	0	if (not $args{-'readonly'} and $args{-'cache'})
137	0	0	unless defined $args{-'cache'}
140	0	0	if ($args{-'readonly'}) { }
	0	0	elsif ($args{-'writeonly'}) { }
148	0	0	$args{-'db'} eq 'Tie::TextDir' ? :
150	0	0	if ($args{-'db'} eq 'DB_File') { }
153	0	0	if ($args{-'locking'}) { }
155	0	0	$args{-'readonly'} ? :
164	0	0	if ($self->MLDBM_Serializer eq 'Storable')
174	0	0	if ($args{-'cache'})
187	0	0	if ($args{-'connect'} and $args{-'connect'} ne 'never')
196	0	0	$self->MLDBM_UseDB eq 'DB_File::Lock' ? :
245	0	0	unless tie %{$$self{'DB'};}, 'MLDBM', $self->DBFile, @args
256	0	0	if ($self->Connected)
259	0	0	if $@
275	0	0	if (not $self->root_object)
314	0	0	if ($self->Root->NameDB)
330	0	0	if (exists $$self{'DB'}{'_root_object'}) { }
404	0	0	unless (defined $id)
426	0	0	unless (defined $id)
431	0	0	unless ($o)
469	0	0	$o ? :
494	0	0	$o ? :
507	0	0	$o ? :
520	0	0	$o ? :
533	0	0	if ($self->Root->LinkDB) { }
539	0	0	if $id =~ /^_/
542	0	0	if ($_ eq $target_id)
559	0	0	if ($_ eq $id)
580	0	0	unless $parent_stored_obj
582	0	0	unless $stored_obj
586	0	0	if ($_ eq $obj_id)
595	0	0	if ($_ eq $parent_id)
601	0	0	if (not @{$$stored_obj[2];}) { }
621	0	0	unless $stored_obj
625	0	0	unless $folder_stored_obj
650	0	0	unless ($$stored_obj[0])
657	0	0	if (UNIVERSAL::isa($$stored_obj[0], 'WE::Obj::DocObj') and $self->Root->ContentDB)
668	0	0	if ($self->Root->NameDB)
677	0	0	if (not $args{'-links'} or $args{'-links'} ne 'unhandled')
721	0	0	unless $k =~ /^-/
724	0	0	if (defined $file)
725	0	0	unless $$doc{'ContentType'}
726	0	0	unless open F, $file
735	0	0	unless (defined $$doc{'Title'})
736	0	0	if ($base =~ /^(.+)(\.[^.]+)$/) { }
743	0	0	unless (defined $$doc{'Basename'})
748	0	0	unless $$doc{'ContentType'}
771	0	0	unless $k =~ /^-/
773	0	0	if ($folder->can($member)) { }
804	0	0	unless (defined $parent)
809	0	0	unless ($parent_stored_obj)
813	0	0	unless ($parent_obj->isa('WE::Obj::FolderObj'))
816	0	0	unless ($parent_obj->object_is_insertable($obj))
825	0	0	if (defined $owner) { }
839	0	0	if ($self->Root->NameDB)
860	0	0	if (defined $owner) { }
867	0	0	if (defined $args{-'log'})
870	0	0	if (defined $args{-'number'})
923	0	0	unless $self->Connected
938	0	0	unless $stored_obj
941	0	0	if ($namedb)
951	0	0	if ($namedb)
970	0	0	if $o->Id eq $ancestor_id
993	0	0	if $target_id eq $object_id
995	0	0	if $self->is_ancestor($target_id, $object_id)
997	0	0	unless $args{-'mapping'}
1004	0	0	wantarray ? :
1014	0	0	if ($o->can('IndexDoc') and defined $o->IndexDoc and exists $$mapping{$o->IndexDoc})
1021	0	0	if ($changed)
1061	0	0	if (defined $args{-'version'})
1064	0	0	unless (defined $args{-'number'})
1067	0	0	if (defined $args{-'comment'})
1074	0	0	if ($trimold)
1080	0	0	wantarray ? :
1098	0	0	if (keys %args)
1099	0	0	unless $trimold or $all
1101	0	0	if (@versions > 0)
1103	0	0	if ($all) { }
1115	0	0	if $@
1135	0	0	if (defined $args{-'version'})
1139	0	0	unless (defined $args{-'number'})
1141	0	0	unless (@v_id)
1146	0	0	unless ($v_obj)
1148	0	0	if ($v->Version_Number eq $args{-'number'})
1154	0	0	unless ($v_obj)
1171	0	0	unless $obj
1177	0	0	if (defined $args{-'parent'}) { }
1181	0	0	unless $target_obj->is_folder
1188	0	0	unless $target_obj
1193	0	0	if ($obj->is_doc) { }
1201	0	0	if ($mapping)
1214	0	0	if ($mapping)
1218	0	0	if (not exists $args{-'recursive'} or $args{-'recursive'})
1220	0	0	if (exists $insert_args{-'parent'}) { }
1271	0	0	unless (defined $parentid)
1277	0	0	unless (defined $destination)
1286	0	0	if $target_id eq $objid
1288	0	0	if $self->is_ancestor($target_id, $objid)
1293	0	0	if (defined $destination) { }
	0	0	elsif (defined $before or defined $after or defined $to) { }
1302	0	0	if (defined $after) { }
	0	0	elsif (defined $before) { }
	0	0	elsif (defined $to) { }
1304	0	0	if $after eq $objid
1307	0	0	if ($id eq $after) { }
	0	0	elsif ($id eq $objid) { }
1318	0	0	if $before eq $objid
1321	0	0	if ($id eq $before) { }
	0	0	elsif ($id eq $objid) { }
1333	0	0	if ($id eq $objid)
1335	0	0	if ($to =~ /^(begin|first)$/) { }
	0	0	elsif ($to =~ /^(end|last)$/) { }
1349	0	0	unless ($moved)
1412	0	0	defined $args{-'root'} ? :
1424	0	0	unless (defined $obj)
1429	0	0	if ($$seen{$obj->Id})
1436	0	0	if (length $_[0] > $_[1]) { }
1446	0	0	defined $obj->Version_Number ? :
	0	0	defined $obj->Title ? :
	0	0	defined $obj->Version_Number ? :
1451	0	0	defined $obj->Version_Number ? :
	0	0	$obj->is_folder ? :
	0	0	$obj->is_sequence ? :
	0	0	defined $obj->TimeModified ? :
1463	0	0	if ($args{-'versions'})
1468	0	0	if ($args{-'attributes'})
1471	0	0	if (UNIVERSAL::can($val, 'dump'))
1474	0	0	unless (defined $val)
1478	0	0	if (@parent_ids > 1)
1482	0	0	if ($args{-'callback'})
1486	0	0	if defined $callback_s
1488	0	0	if ($obj->is_folder and !exists($args{-'children'}) || $args{-'children'})
1518	0	0	if (not defined $add_min_depth or $p_min < $add_min_depth)
1521	0	0	if (not defined $add_max_depth or $p_max > $add_max_depth)
1525	0	0	unless defined $add_min_depth
1526	0	0	unless defined $add_max_depth
1538	0	0	if (defined $v->Version_Number)
1541	0	0	if (not defined $max_major or defined $major and $major > $max_major || $major == $max_major && $minor > $max_minor)
1550	0	0	if (not defined $max_major) { }
1585	0	0	if not defined $c[0] or $c[0] eq ''
1595	0	0	if (defined $base) { }
1597	0	0	if ($component eq $base)
1604	0	0	if ($component_stripped eq $base)
1643	0	0	if ($obj->is_doc)
1647	0	0	unless (defined $base)
1648	0	0	exists $args{-'lang'} ? :
1654	0	0	if (defined $parent_obj and $obj->Id eq $parent_obj->Id) { }
	0	0	elsif ($obj->isa('WE::Obj::Site')) { }
	0	0	elsif (@parents) { }
1660	0	0	unless $parent_path =~ m[^/?$]
1685	0	0	if ($o->is_folder) { }
1689	0	0	if defined $r
1705	0	0	unless $obj
1707	0	0	unless $releasable
1708	0	0	if (defined $obj->Release_State and $obj->Release_State eq 'released')
1713	0	0	if (defined $v->Release_State and $v->Release_State eq 'released')
1731	0	0	unless defined $now
1736	0	0	unless ($o)
1740	0	0	if (defined $o->Release_State and $o->Release_State eq 'inactive')
1746	0	0	if ($o->is_time_restricted)