| blib/lib/Net/SeedServe/Server.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 16 | 62.5 |
| line | true | false | branch |
|---|---|---|---|
| 39 | 0 | 7 | unless $self->{'status_file'} = $args{'status_file'} |
| 61 | 0 | 10 | unless (defined $fork_pid) |
| 65 | 3 | 7 | if (not $fork_pid) { } |
| 78 | 3 | 0 | if ($@) |
| 97 | 3 | 4 | if ($text eq "Status:Success\tPort:$port\tPID:$fork_pid\n") { } |
| 126 | 0 | 1 | unless ($text =~ /^Status:Success\tPort:(\d+)\tPID:(\d+)$/) |
| 165 | 10 | 0 | if ($response eq "OK\n") { } |
| 197 | 0 | 8 | if (grep {not $_ =~ /^\d+$/;} @$seeds) |