File: //proc/self/root/usr/local/share/perl5/auto/Net/SOCKS/new.al
# NOTE: Derived from blib/lib/Net/SOCKS.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Net::SOCKS;
#line 165 "blib/lib/Net/SOCKS.pm (autosplit into blib/lib/auto/Net/SOCKS/new.al)"
# constructor new()
# We don't do any parameter error checking here because the programmer
# should be able to get an object back from new(). A croak
# isn't graceful and returning undef isn't descriptive enough.
# Error checking happens when connect() or bind() calls _validate().
# Error messages are retrieved through status_message() and
# param('status_num').
sub new {
my $class = shift;
my $self = {};
bless $self, $class;
${*self}{status_num} = SOCKS_OKAY;
$self->_import_args(@_);
$self;
}
# end of Net::SOCKS::new
1;