LWP-Protocol-socks
view release on metacpan or search on metacpan
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: LWP-Protocol-socks
version: 1.7
version_from: lib/LWP/Protocol/socks.pm
installdirs: site
requires:
IO::Socket::Socks: 0.2
IO::Socket::SSL: 0.96
LWP: 6.02
LWP::Protocol::https: 6.02
distribution_type: module
generated_by: ExtUtils::MakeMaker version 6.17
Makefile.PL view on Meta::CPAN
push @spec_deps, 'LWP::Protocol::https', 6.02;
$min_lwp_version = 6.02;
}
WriteMakefile(
NAME => 'LWP::Protocol::socks',
VERSION_FROM => 'lib/LWP/Protocol/socks.pm', # finds $VERSION
'PREREQ_PM' => {
'IO::Socket::Socks' => 0.2,
'IO::Socket::SSL' => 0.96,
'LWP' => $min_lwp_version,
@spec_deps
},
($] >= 5.005 ? ## Add these new keywords supported since 5.005
(ABSTRACT_FROM => 'lib/LWP/Protocol/socks.pm', # retrieve abstract from module
AUTHOR => 'Sheridan C Rawlins <sheridan.rawlins@yahoo.com>') : ()),
);
lib/LWP/Protocol/socks.pm view on Meta::CPAN
my($host, $port) = @_;
my @extra_sock_opts = $self->SUPER::_extra_sock_opts(@_);
(@extra_sock_opts, @{$self->{proxy_sock_opts}});
#(@extra_sock_opts, @{$self->{proxy_sock_opts}});
}
##############################
package LWP::Protocol::https::socks::Socket;
require LWP::Protocol::https;
require IO::Socket::Socks;
use IO::Socket::SSL;
require Net::HTTPS;
our @ISA = qw(IO::Socket::SSL LWP::Protocol::https::Socket);
sub new {
my $class = shift;
my %args = @_;
my $connectAddr = $args{ConnectAddr} = delete $args{PeerAddr};
my $connectPort = $args{ConnectPort} = delete $args{PeerPort};
my $socks = new IO::Socket::Socks(%args);
$args{PeerAddr} = $connectAddr;
$args{PeerPort} = $connectPort;
delete $args{ProxyAddr};
( run in 0.510 second using v1.01-cache-2.11-cpan-4d50c553e7e )