Branch Coverage

blib/lib/File/Path/Redirect.pm
Criterion Covered Total %
branch 18 28 64.2


line true false branch
178 16 0 if ($force or not -e $name)
181 0 16 if (file_name_is_absolute($existing)) { }
187 0 16 unless open my $fh, ">", $name
188 0 16 unless print $fh "$magic$path"
198 3 16 unless (defined $limit)
202 1 18 if ($limit == 0)
214 0 18 unless defined $fd
223 0 18 if $count == $max_size
225 0 18 unless defined $res
230 16 2 if ((my $index = index($buffer, $magic)) == 0) { }
234 0 16 if (file_name_is_absolute($new_path)) { }
242 15 1 if $trace
256 0 4 unless defined $fd
265 0 4 unless defined $res