| blib/lib/Perl/Server.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 2 | 20 | 10.0 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 1 | 1 | $path ? : |
| 43 | 0 | 0 | if (exists $type->{'module'}) { } |
| 57 | 0 | 0 | if ($port) { } |
| 59 | 0 | 0 | $port =~ /\D/ ? : |
| 0 | 0 | $port =~ /^e(mpty)?$/i ? : | |
| 81 | 0 | 0 | if (-d $path) { } |
| 0 | 0 | elsif (-e $path and $path =~ /\.(pl|cgi)$/i) { } | |
| 126 | 0 | 0 | if $rand |
| 130 | 0 | 0 | unless check_port($port) |
| 133 | 0 | 0 | unless check_port($port) |