| blib/lib/DocLife.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 16 | 56.2 |
| line | true | false | branch |
|---|---|---|---|
| 23 | 3 | 12 | unless defined $self->base_url |
| 34 | 0 | 15 | if ($req->path eq '/') { } |
| 3 | 12 | elsif ($req->path =~ m[\/\.\.\/] or $req->path =~ m[\/\/]) { } | |
| 56 | 8 | 4 | if not -f $file and defined $self->suffix |
| 57 | 9 | 3 | if (-f $file) { } |
| 73 | 0 | 0 | unless -f $_ |
| 74 | 0 | 0 | if length $suffix and not $_ =~ /\Q$suffix\E$/ |
| 81 | 0 | 0 | if (length $suffix) |