line |
true |
false |
branch |
101
|
0 |
0 |
unless (defined $string) |
102
|
0 |
0 |
if (exists $args{-'file'}) { } |
103
|
0 |
0 |
unless open F, $args{-'file'} |
112
|
0 |
0 |
unless (defined $rootid) |
115
|
0 |
0 |
$args{'-standardargs'} ? : |
122
|
0 |
0 |
if ($indent > $last_indent + 1) |
136
|
0 |
0 |
unless (defined $parentid) |
145
|
0 |
0 |
if ($key eq '-Title') { } |
146
|
0 |
0 |
if ($val =~ /^(..):(.*)/) { } |
154
|
0 |
0 |
if (not defined $val or $val =~ /^-/) { } |
|
0 |
0 |
elsif ($val =~ /^(..):(.*)/) { } |
202
|
0 |
0 |
unless $p_stored_obj |
207
|
0 |
0 |
unless (exists $real_children{$c_id}) |
214
|
0 |
0 |
if (keys %real_children) |
218
|
0 |
0 |
if (exists $real_children{$_}) |
223
|
0 |
0 |
if (keys %real_children) |
269
|
0 |
0 |
defined $args{-'base'} ? : |
273
|
0 |
0 |
unless defined $p_id |
276
|
0 |
0 |
if ($args{'-indexdoc'}) |
278
|
0 |
0 |
unless ($p_obj) |
281
|
0 |
0 |
if ($$p_obj{'IndexDoc'} and $$p_obj{'IndexDoc'} == $obj_id) |
289
|
0 |
0 |
if ($filter and not &$filter($self, $c_id)) |
292
|
0 |
0 |
if ($c_id eq $obj_id) |
298
|
0 |
0 |
unless (defined $this_pos) |
300
|
0 |
0 |
if ($filter) |
334
|
0 |
0 |
if (not $root_obj) { } |
347
|
0 |
0 |
if (not defined $v) { } |
|
0 |
0 |
elsif (ref $v ne 'ARRAY' or @$v != 4) { } |
352
|
0 |
0 |
if ($$v[0]{'Id'} ne $k) |
364
|
0 |
0 |
if (not exists $$self{'DB'}{$id}) { } |
367
|
0 |
0 |
if ($type ne 'p') |
374
|
0 |
0 |
if (exists $$self{'DB'}{$id}) |
378
|
0 |
0 |
if ($p_id eq $k) |
386
|
0 |
0 |
if ($contentdb) |
388
|
0 |
0 |
if ($o->is_doc) |
390
|
0 |
0 |
unless (-e $f) |
399
|
0 |
0 |
unless (exists $referenced{$k}) |
442
|
0 |
0 |
if $args{-'verbose'} |
445
|
0 |
0 |
if ($$errors{'root_object_missing'}) |
446
|
0 |
0 |
unless (defined $root_object_id) |
452
|
0 |
0 |
if $v |
463
|
0 |
0 |
if (not $o) { } |
466
|
0 |
0 |
if $v |
472
|
0 |
0 |
if ($$errors{'doc_object_without_content'}) |
474
|
0 |
0 |
if $v |
479
|
0 |
0 |
if @{$$errors{'undef_values'};} |
480
|
0 |
0 |
if @{$$errors{'broken_values'};} |
509
|
0 |
0 |
unless opendir D, $self->Directory |
511
|
0 |
0 |
if $f =~ /^\.\.?$/ |
513
|
0 |
0 |
if (defined $id) { } |
514
|
0 |
0 |
unless (exists $$objdb{'DB'}{$id}) |
518
|
0 |
0 |
unless ($f =~ /^(\.svn|CVS|\.cvsignore|\.keep_me|RCS)$/) |
550
|
0 |
0 |
if $args{-'verbose'} |
555
|
0 |
0 |
unless unlink $path |
557
|
0 |
0 |
if (@{$$errors{'extra_files'};}) |
570
|
0 |
0 |
if (ref $_ eq 'ARRAY' and @$_) |
574
|
0 |
0 |
if ($errors->has_fatal_errors) |
582
|
0 |
0 |
$$errors{'root_object_missing'} ? : |