Branch Coverage

blib/lib/ODS/Storage/Directory.pm
Criterion Covered Total %
branch 46 68 67.6


line true false branch
34 0 1717 @_ > 1 ? :
46 1715 2 if ($self->table->rows) { }
49 0 2 ref($data || '') eq 'ARRAY' ? :
62 2 0 @_ > 1 ? :
68 1 1 if (ref $data eq "ARRAY" and ref $data->[0] eq "HASH")
78 2 0 @_ > 1 ? :
84 0 2 if (ref $data eq "HASH")
96 0 0 unless $find
117 0 1 @_ > 1 ? :
119 1 0 $self->table->rows ? :
125 1 1 if ($params{$key} ne $row->{$key})
152 0 0 if ($keyfield) { }
161 0 0 if ($r->$key ne $row->{$key})
212 3 3 if (scalar keys %file_params)
215 2 3 if $key =~ /^__/
216 2 1 if (not $row or $row->$key ne $file_params{$key})
222 4 2 if $clear
230 3 3 unless $name =~ s/^find__//
260 5 105 scalar @cache_file ? :
274 4 102 if ($cache_file)
292 1727 65 if my $pid = $fm->start
299 1 64 unless ($file =~ /^\d{9}\d+/)
309 36 1 if ($args{'sort_direction'} eq 'asc') { }
326 1 1 if ($cache_file)
332 1 0 $self->table->rows ? :
338 2 1 if ($params{$key} ne $row->{$key})
358 0 2 if ($cache_file)
364 2 0 $self->table->rows ? :
372 1 2 if ($params{$key} ne $row->{$key})
380 2 0 if $select
388 0 70 unless open my $fh, "<:encoding(UTF-8)", $file
395 0 1760 unless open my $fh, ">:encoding(UTF-8)", $file
401 0 0 unless scalar @args
415 0 1938 unless opendir my $dh, $directory