File Coverage

blib/lib/IO/Socket/Socks/Wrapped.pm

Criterion	Covered	Total	%
statement	19	24	79.1
branch			n/a
condition			n/a
subroutine	7	10	70.0
pod	0	4	0.0
total	26	38	68.4

package IO::Socket::Socks::Wrapped;

no warnings 'redefine';
use IO::Socket;
use IO::Socket::Socks::Wrapper;

our $VERSION = '0.14';
our $AUTOLOAD;

sub new {
	my ($class, $obj, $cfg) = @_;
	bless {orig => $obj, cfg => $cfg}, $class;
}

sub AUTOLOAD {
	my $self = shift;

	IO::Socket::Socks::Wrapper::_io_socket_connect_ref();

	local *IO::Socket::IP::connect = local *IO::Socket::connect = sub {
		return IO::Socket::Socks::Wrapper::_connect(@_, $self->{cfg}, 1);
	};

	$AUTOLOAD =~ s/^.+:://;
	$self->{orig}->$AUTOLOAD(@_);
}

sub isa {
	my $self = shift;
	$self->{orig}->isa(@_);
}

sub can {
	my $self = shift;
	$self->{orig}->can(@_);
}

sub DOES {
	my $self = shift;
	$self->{orig}->DOES(@_);
}

sub DESTROY {}

1;

__END__