| blib/lib/Net/SeedServe.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 3 | 14 | 21.4 |
| line | true | false | branch |
|---|---|---|---|
| 27 | 0 | 3 | unless my $port = $args{'port'} |
| 32 | 0 | 3 | unless $self->{'status_file'} = $args{'status_file'} |
| 59 | 3 | 0 | unless (defined $serving_socket) |
| 83 | 0 | 0 | if ($request =~ /^FETCH/) { } |
| 0 | 0 | elsif ($request =~ /^CLEAR/) { } | |
| 0 | 0 | elsif ($request =~ /^ENQUEUE ((?:\d+,)+)/) { } | |
| 86 | 0 | 0 | if ($seed = shift @queue) { } |