Branch Coverage

blib/lib/Test/Directory.pm
Criterion Covered Total %
branch 71 72 98.6


line true false branch
26 12 3 if (defined $dir) { }
28 2 10 unless CORE::mkdir $dir
49 21 172 @path ? :
56 151 5 defined $file ? :
64 1 8 unless sysopen my $fh, $path, 193
74 2 3 unless sysopen my $fh, $path, 193
79 1 2 if (defined $opt{'content'})
82 1 2 if (defined $opt{'time'})
91 1 9 unless CORE::mkdir $path
98 10 5 if (-f $self->path($file)) { }
109 5 4 if (-d $self->path($dir)) { }
128 3 12 unless $rv
147 1 3 unless opendir my $dh, $self->{'dir'}
151 3 14 if $file eq "."
152 3 11 if $file eq ".."
153 7 4 if $path->{$file}
164 1 7 if $has and not -f $self->path($file)
167 1 2 if $has and not -d $self->path($file)
190 2 1 if rmdir $path
201 4 2 unless defined $text
207 3 2 unless defined $text
213 3 1 unless defined $text
219 2 1 unless defined $text
230 1 8 unless opendir my $dh, $dir
233 8 22 if $file eq "."
234 8 14 if $file eq ".."
235 11 3 if $path->{$file}
242 0 4 unless opendir my $dh, $self->path($dir)
245 4 8 if $file eq "."
246 4 4 if $file eq ".."
248 3 1 if $path->{$name}
257 2 7 unless defined $name
261 1 13 if ($has and not -f $self->path($file))
267 2 6 if ($has and not -d $self->path($file))
279 4 4 if ($has and -d $dir)
285 4 4 unless ($rv)