File Coverage

blib/lib/LWP/Protocol/http/hosts.pm
Criterion Covered Total %
statement 18 18 100.0
branch 2 2 100.0
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 26 27 96.3


line stmt bran cond sub pod time code
1             package LWP::Protocol::http::hosts;
2              
3 1     1   9 use strict;
  1         65  
  1         38  
4 1     1   6 use warnings;
  1         31  
  1         41  
5 1     1   6 use parent 'LWP::Protocol::http';
  1         2  
  1         5  
6 1     1   139 use LWP::UserAgent::DNS::Hosts;
  1         2  
  1         163  
7              
8             sub _extra_sock_opts {
9 4     4   11 my ($self, $host, $port) = @_;
10              
11 4         17 my @opts = $self->SUPER::_extra_sock_opts($host, $port);
12 4 100       29 if (my $peer_addr = LWP::UserAgent::DNS::Hosts->_registered_peer_addr($host)) {
13 3         9 push @opts, (PeerAddr => $peer_addr, Host => $host);
14             }
15              
16 4         37 return @opts;
17             }
18              
19 4     4 0 22334 sub socket_class { 'LWP::Protocol::http::Socket' }
20              
21             1;
22              
23             __END__