| blib/lib/Perl/Server.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 2 | 14 | 14.2 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 1 | 1 | $path ? : |
| 30 | 0 | 0 | if (exists $type->{'module'}) { } |
| 44 | 0 | 0 | unless (grep /^(-p|--port)$/, @argv) |
| 65 | 0 | 0 | if (-d $path) { } |
| 0 | 0 | elsif (-e $path and $path =~ /\.(pl|cgi)$/i) { } | |
| 110 | 0 | 0 | unless check_port($port) |
| 113 | 0 | 0 | unless check_port($port) |