Branch Coverage

blib/lib/Test/Inline/IO/File.pm
Criterion Covered Total %
branch 18 28 64.2


line true false branch
76 18 17 if (@params < 2)
77 18 0 defined $_[0] ? :
101 66 0 defined $_[0] ? :
125 0 17 unless my $file = $self->_path(shift())
142 0 6 unless my $dir = $self->_path(shift())
161 0 21 unless my $file = $self->_path(shift())
163 1 20 unless my $content = 'File::Flat'->slurp($file)
179 0 18 unless my $file = $self->_path(shift())
180 0 18 if (-f $file and not -w $file)
181 0 0 unless &File::Remove::remove($file)
186 8 10 if ($rv and $self->readonly)
208 2 0 defined $_[0] ? :
210 1 1 if $self->exists_file($file)
228 4 1 $self->exists_dir($_[0]) ? :