sub _socket_create
{
  IO::Socket->new->socket(PF_INET, SOCK_DGRAM, (getprotobyname('udp'))[2]);
}

##</code><code>##

      if (!defined($this->{_socket} = $this->_socket_create)) {
         $this->_perror('Failed to open %s socket', $this->type);
         return wantarray ? (undef, $this->{_error}) : undef
      }