| blib/lib/PLP/Backend/CGI.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 12 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 15 | 2 | 17 | if (defined $ENV{'PATH_TRANSLATED'}) { } |
| 0 | 17 | elsif (not -f $ENV{'SCRIPT_FILENAME'}) { } | |
| 22 | 1 | 6 | unless ($path =~ s[(/+[^/]*)$][]) |
| 30 | 1 | 0 | if ($path_info ne '') |
| 45 | 0 | 18 | unless (-r $ENV{'PLP_FILENAME'}) |
| 70 | 18 | 1 | if $_[0]->init |