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) |