Help for this page

Select Code to Download

Select or download this

@LWP::Protocol::http::EXTRA_SOCK_OPTS = ( LocalAddr => '1.2.3.4', Loca
+lPort => '8080' );

Select or download this

local($^W) = 0;  # IO::Socket::INET can be noisy
my $sock = $self->socket_class->new(PeerAddr => $host,
...
                                    $self->_extra_sock_opts($host, $po
+rt),
                                   );