Branch Coverage

blib/lib/STF/Dispatcher/Impl/File.pm
Criterion Covered Total %
branch 23 32 71.8


line true false branch
25 2 0 unless (-d $dir)
26 0 2 unless (File::Path::make_path($dir, {'mode', 493}))
36 24 7 if -d $dir
51 1 2 unless (-d $dir)
52 0 1 unless (File::Path::make_path($dir, {'mode', 493}))
57 0 3 unless open my $fh, '>', $file
59 3 0 $input ? :
74 3 6 unless -f $file
77 2 4 if (my $ims = $$args{'request'}->header('if-modified-since'))
78 1 1 if ($stat[9] > &HTTP::Date::str2time($ims))
83 0 5 unless open my $fh, '<', $file
100 0 1 unless -f $file
111 1 1 if (-e $destination)
123 1 1 unless (-d $dir)
124 0 1 unless (File::Path::make_path($dir, {'mode', 493}))
129 0 2 unless (File::Copy::move($source, $dest))