| blib/lib/Plack/Middleware/IPMatch.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 10 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 39 | 7 | 0 | if (my $ipfiles = $self->IPFile) |
| 40 | 0 | 7 | ref $ipfiles ? : |
| 44 | 0 | 7 | unless open my $fh, '<', $ipfile |
| 60 | 0 | 7 | if ($$env{'QUERY_STRING'} =~ /(?:^|&)ip=([^&]+)/) { } |
| 70 | 7 | 0 | if $$env{'IPMATCH_LABEL'} = $label |