| blib/lib/App/HTTP_Proxy_IMP/Conn.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 2 | 16 | 12.5 |
| line | true | false | branch |
|---|---|---|---|
| 31 | 2 | 0 | if %args |
| 32 | 0 | 2 | if (ref $class) |
| 42 | 0 | 0 | unless my $self = shift() |
| 59 | 0 | 0 | if (my $pcapdir = $self->{'pcapdir'}) |
| 60 | 0 | 0 | unless open my $fh, '>', sprintf('%s/%d.%d.pcap', $pcapdir, $$, $obj->{'connid'}) |
| 77 | 0 | 0 | unless $self->{'pcapw'} |
| 79 | 0 | 0 | if (defined(my $bytes = eval { do { $self->SUPER::in(@_) } })) { } |
| 85 | 0 | 0 | if $@ |