Help for this page

Select Code to Download


  1. or download this
    sub peername {
        @_ == 1 or croak 'usage: $sock->peername()';
    ...
          || ${*$sock}{'io_socket_peername'}
          || undef;
    }
    
  2. or download this
    sub send {
        @_ >= 2 && @_ <= 4 or croak 'usage: $sock->send(BUF, [FLAGS, [TO]]
    +)';
        my $sock  = $_[0];
    ...
    
        $r;
    }