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 |