File: //proc/self/root/usr/local/share/perl5/auto/Net/SOCKS/_import_args.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 557 "blib/lib/Net/SOCKS.pm (autosplit into blib/lib/auto/Net/SOCKS/_import_args.al)"
sub _import_args {
my $self = shift;
my (%arg, $key);
# if a reference was passed, dereference it first
if (ref($_[0]) eq 'HASH') { %arg = %{$_[0]} } else { %arg = @_ }
foreach $key (keys %arg) { ${*self}{$key} = $arg{$key} }
}
# end of Net::SOCKS::_import_args
1;