| blib/lib/Perlbal/UploadListener.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 8 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 27 | 0 | 0 | unless $sock |
| 51 | 0 | 0 | unless $buf =~ /^UPLOAD:(\w{5,50}):(\d+):(\d+):(\d+):(\d+)$/ |
| 70 | 0 | 0 | if (my $krec = $status{$to_kill}) |
| 72 | 0 | 0 | if $last_touch < $too_old |