| lib/Remote/Perl/ModuleServer.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 8 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 29 | 4 | 24 | if grep {$_ eq "..";} @parts |
| 34 | 0 | 24 | unless defined $dir and not ref $dir and -d $dir |
| 36 | 18 | 6 | if (-f $path) |
| 37 | 2 | 16 | if $self->{'serve_filter'} and not $self->{'serve_filter'}->($path) |