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