| line |
true |
false |
branch |
|
73
|
1 |
0 |
if (exists $Document::Repository::FIELDS{"_$field"}) |
|
75
|
0 |
0 |
if ($args{'debug'} and $args{'debug'} > 3 and defined $value) |
|
88
|
0 |
0 |
if ($args{'create_new_repository'}) |
|
94
|
0 |
0 |
unless (-d $$self{'_repository_dir'}) |
|
97
|
0 |
0 |
unless (-x $$self{'_repository_dir'}) |
|
103
|
0 |
0 |
unless $doc_id |
|
106
|
0 |
0 |
if ($doc_id >= $$self{'_next_id'}) |
|
111
|
0 |
0 |
if ($$self{'_debug'} > 4 or 1) |
|
129
|
0 |
0 |
unless ($dir) |
|
134
|
0 |
0 |
if (-d $dir and not -x $dir) |
|
139
|
0 |
0 |
if (-f $dir and not -d $dir) |
|
144
|
0 |
0 |
if (not -d $dir) |
|
146
|
0 |
0 |
if ($@) |
|
174
|
0 |
0 |
if $$self{'_debug'} >= $thresh |
|
192
|
0 |
0 |
if (not $repo) { } |
|
|
0 |
0 |
elsif (not -d $repo) { } |
|
|
0 |
0 |
elsif (not -x $repo) { } |
|
204
|
0 |
0 |
if ($doc_id > 999999) |
|
210
|
0 |
0 |
if ($doc_id > 999) |
|
219
|
0 |
0 |
if (-d $repo and not -x $repo) |
|
246
|
0 |
0 |
if (not defined $rev_number and -d $doc_path) |
|
247
|
0 |
0 |
unless (opendir DIR, $doc_path) |
|
283
|
0 |
0 |
unless ($doc_id) |
|
290
|
0 |
0 |
if (not $repo) { } |
|
|
0 |
0 |
elsif (-e $repo) { } |
|
301
|
0 |
0 |
if ($@) |
|
308
|
0 |
0 |
if (@filenames) |
|
309
|
0 |
0 |
unless $self->put($doc_id, @filenames) |
|
337
|
0 |
0 |
if (-e $rev_path) |
|
345
|
0 |
0 |
if ($@) |
|
351
|
0 |
0 |
unless defined $filename |
|
352
|
0 |
0 |
unless (-e $filename) |
|
359
|
0 |
0 |
unless (copy($filename, catfile($rev_path, $base_filename))) |
|
405
|
0 |
0 |
unless ($destination) |
|
414
|
0 |
0 |
if ($copy_function) { } |
|
418
|
0 |
0 |
unless defined $filename |
|
419
|
0 |
0 |
unless (copy($filename, $destination)) |
|
453
|
0 |
0 |
if (-d $file) |
|
455
|
0 |
0 |
unless opendir DIR, $file |
|
462
|
0 |
0 |
unless (-e $file) |
|
466
|
0 |
0 |
unless (open FILE, "< $file") |
|
503
|
0 |
0 |
unless (defined $content) |
|
517
|
0 |
0 |
$append ? : |
|
518
|
0 |
0 |
unless (open FILE, "$w $file") |
|
534
|
0 |
0 |
unless (opendir DIR, $dir) |
|
539
|
0 |
0 |
if ($subdir =~ /^\d+$/) { } |
|
|
0 |
0 |
elsif ($subdir =~ /^[Mk](\d+)$/) { } |
|
541
|
0 |
0 |
unless (&$func("$prefix$subdir")) |
|
549
|
0 |
0 |
unless ($self->_iterate_doc_ids(catdir($dir, $subdir), $func, $1)) |
|
582
|
0 |
0 |
unless ($self->_iterate_doc_ids($repo, \&get_doc_ids)) |
|
602
|
0 |
0 |
unless (defined $repo) |
|
610
|
0 |
0 |
unless (opendir DIR, $repo) |
|
653
|
0 |
0 |
unless (opendir DIR, $rev_path) |
|
662
|
0 |
0 |
if ($filename =~ /^\./) { } |
|
|
0 |
0 |
elsif (not -f $file_path) { } |
|
670
|
0 |
0 |
if (defined $select_function) |
|
672
|
0 |
0 |
unless &$select_function($file_path) |
|
675
|
0 |
0 |
if ($with_path) { } |