| line |
true |
false |
branch |
|
31
|
1 |
12 |
unless my($host, $port) = $server =~ /^([A-Za-z0-9_.-]+):([0-9]+)\z/ |
|
34
|
2 |
10 |
unless my $sock = "IO::Socket::INET"->new("PeerAddr", $host, "PeerPort", $port, "Proto", "tcp", "Timeout", 5) |
|
47
|
0 |
10 |
unless print {$sock;} $request |
|
51
|
0 |
10 |
unless defined $response |
|
54
|
1 |
9 |
unless defined $body |
|
57
|
0 |
9 |
unless my($code) = $status_line =~ m[^HTTP/\d+\.\d+\s+([0-9]+)\b] |
|
66
|
2 |
13 |
ref $SERVER eq 'CODE' ? : |
|
71
|
2 |
13 |
unless (defined $server) |
|
77
|
4 |
9 |
unless (defined $code) |
|
81
|
1 |
8 |
if $code == 204 |
|
82
|
7 |
1 |
if ($code == 200) |
|
93
|
1 |
7 |
unless (my($address) = lc($in) =~ /$valid/) |
|
96
|
1 |
6 |
unless $address =~ /\@/ |
|
99
|
1 |
5 |
if defined $rv and $rv eq "\0" |
|
106
|
1 |
9 |
unless (my($address) = lc($in) =~ /$valid/) |
|
109
|
0 |
9 |
unless defined $rv |
|
110
|
0 |
9 |
unless length $rv |
|
111
|
6 |
3 |
if $rv eq "\0" |