| blib/lib/Net/HTTP/Tiny.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 12 | 0.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 162 | 0 | 0 | 0 | $port >= 1 and $port <= 65535 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 152 | 0 | 0 | 0 | eval { do { local $SIG{'__DIE__'}; require IO::Socket::IP; 'IO::Socket::IP'->VERSION(0.08); 'IO::Socket::IP' } } || do { require IO::Socket::INET; 'IO::Socket::INET'->VERSION(1.24); 'IO::Socket::INET' } |
| 0 | 0 | 0 | $socket_class ||= eval { do { local $SIG{'__DIE__'}; require IO::Socket::IP; 'IO::Socket::IP'->VERSION(0.08); 'IO::Socket::IP' } } || do { require IO::Socket::INET; 'IO::Socket::INET'->VERSION(1.24); 'IO::Socket::INET' } | |
| 170 | 0 | 0 | 0 | $socket_class->new('PeerHost', $bare_host, 'PeerPort', $port, 'Proto', 'tcp', 'Timeout', $timeout) || do { my $err = $@; chomp $err; $err =~ s/\AIO::Socket::[A-Z0-9]+: //; $err = "$socket_class didn't say why" unless $err ne ''; &_croak("failed to connect to $host TCP port ${port}: $err") } |