Branch Coverage

blib/lib/ODS/Storage/Directory.pm
Criterion Covered Total %
branch 51 74 68.9


line true false branch
34 0 1714 @_ > 1 ? :
46 1713 1 if ($self->table->rows) { }
49 0 1 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 1 110 scalar @cache_file ? :
274 0 107 if ($cache_file)
292 1731 66 if my $pid = $fm->start
299 2 64 unless ($file =~ /^\d{9}\d+/)
309 40 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 67 unless open my $fh, "<:encoding(UTF-8)", $file
394 0 1760 unless open my $fh, ">:encoding(UTF-8)", $file
400 0 0 unless scalar @args
414 0 1937 unless opendir my $dh, $directory
424 1760 1937 if $file
426 14788 3697 if $path
428 132 18353 unless -d $path