# 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 471 "blib/lib/Net/SOCKS.pm (autosplit into blib/lib/auto/Net/SOCKS/_method_request5.al)"
sub _method_request5 {

  my $self    = shift;
  my $method = '';

  # add anonymous to method list if the user didn't specify force_nonanonymous
  if ( !defined ${*self}{force_nonanonymous} ||
       ${*self}{force_nonanonymous}==0) {
    # add anonymous connect to method list
    $method.=pack('C', 0); # anonymous
  }

  if ( defined ${*self}{user_id} && length (${*self}{user_id})>0 ) {
    $method.=pack('C', 2); # user/pass
  }

  if (length($method)==0) {
    return  ${*self}{status_num} = SOCKS_INCOMPLETE_AUTH;
  }

  print { ${*self}{fh} } pack ('CC', 5, length($method)), $method;
  return SOCKS_OKAY;
}

# end of Net::SOCKS::_method_request5
1;