| blib/lib/App/htidx.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 28 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 34 | 0 | 0 | unless "-h" eq $_ |
| 0 | 0 | if &any(sub { ; } , @_) | |
| 38 | 0 | 0 | unless -e $dir |
| 39 | 0 | 0 | unless -d $dir |
| 70 | 0 | 0 | if (-d $path or -l $path and -d readlink $path) { } |
| 0 | 0 | elsif (lc $entry ne 'index.html') { } | |
| 81 | 0 | 0 | if (-e $index) |
| 85 | 0 | 0 | if (index($fh->getline, "\@~\@ I was made by App::htidx \@~\@") != -1) |
| 94 | 0 | 0 | if $mkhtml |
| 104 | 0 | 0 | unless open my $fh, ">", $index |
| 130 | 0 | 0 | unless $toplevel |
| 181 | 0 | 0 | if ($size < 1000) { } |
| 0 | 0 | elsif ($size < 1000000) { } | |
| 0 | 0 | elsif ($size < 1000000000) { } |