| blib/lib/PrankCall.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 16 | 23 | 69.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 146 | 4 | 1 | 1 | $cache_socket && $$self{'_socket'} |
| line | l | !l | condition |
|---|---|---|---|
| 134 | 6 | 0 | $$self{'port'} || $req->uri->port || '80' |
| 137 | 1 | 5 | $$self{'blocking'} ||= 1 |
| 138 | 2 | 4 | $$self{'cache_socket'} ||= 0 |
| 146 | 5 | 0 | 'IO::Socket::INET'->new('Proto', 'tcp', 'PeerAddr', $raw_host, 'PeerPort', $port, 'Blocking', $$self{'blocking'}, $timeout ? ('Timeout', $timeout) : ()) || die("Ah shoot Johny $!") |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 33 | 0 | 3 | 0 | $port ||= $params{'port'} |
| 55 | 1 | 2 | 0 | $params{'request_obj'} || $self->_build_request('method', 'GET', %params) |
| 65 | 1 | 1 | 0 | $params{'request_obj'} || $self->_build_request('method', 'POST', %params) |
| 135 | 4 | 2 | 0 | $$self{'raw_host'} || $req->uri->host |