my $host = $args->{LocalAddr} || $args->{host} || '0.0.0.0';
my $port = $args->{LocalPort} || $args->{port} || 1234;
- $socket = IO::Socket::INET6->new(
+ $socket = IO::Socket::IP->new(
LocalAddr => $host,
LocalPort => $port,
Proto => 'udp',
$self->emit(read => $datagram);
}
+has peerhost => sub { return $_[0]->{socket}->peerhost };
+has peerport => sub { return $_[0]->{socket}->peerport };
sub DEMOLISH {
my $self = shift;