#$Id: adc.pm 858 2011-10-10 22:56:04Z pro $ $URL: svn://svn.setun.net/dcppp/trunk/lib/Net/DirectConnect/adc.pm $
package #hide from cpan
Net::DirectConnect::ipv6;
use strict;
#use Time::HiRes qw(time sleep);
use Socket;
use Socket6;
use IO::Socket::INET6;
use Data::Dumper; #dev only
#$Data::Dumper::Sortkeys = $Data::Dumper::Useqq = $Data::Dumper::Indent = 1;
sub init {
my $self = shift if ref $_[0];
$self->{'socket_class'} = 'IO::Socket::INET6';
#$self->{'socket_options'}{Domain} = AF_INET6;
}
6;