| 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'} ? : |