| blib/lib/YATT/Lite/Util/File.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 16 | 43.7 |
| line | true | false | branch |
|---|---|---|---|
| 15 | 0 | 58 | ref $fn ? : |
| 16 | 36 | 22 | unless (-d (my $dir = dirname($fn))) |
| 17 | 0 | 36 | unless make_path($dir) |
| 20 | 0 | 58 | if (-e $fn) |
| 21 | 0 | 0 | if (my $slept = wait_for_time(($old_mtime = &YATT::Lite::Util::File::stat($fn)->mtime) + 1.05)) |
| 25 | 0 | 58 | unless open my $fh, join('', '>', @iolayer), $fn |
| 28 | 0 | 58 | unless (not defined $old_mtime or $old_mtime < &YATT::Lite::Util::File::stat($fn)->mtime) |
| 40 | 0 | 0 | if $diff <= 0 |