| blib/lib/App/ProxyThat.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 18 | 33.3 |
| line | true | false | branch |
|---|---|---|---|
| 19 | 0 | 6 | unless &GetOptions($self, 'help', 'man', 'port=i', 'ssl') |
| 20 | 0 | 6 | if $self->{'help'} |
| 21 | 0 | 6 | if $self->{'man'} |
| 23 | 0 | 6 | unless $self->{'url'} = $ARGV[0] |
| 26 | 0 | 6 | if ($self->{'ssl'}) |
| 35 | 0 | 0 | unless $res->[0] == 200 |
| 61 | 0 | 6 | $self->{'ssl'} ? : |
| 72 | 0 | 0 | if (my $e = $@) |
| 73 | 0 | 0 | if $e =~ /failed to listen to port/ |