Help for this page

Select Code to Download

Select or download this

has [ qw/server peer monitor netlog/ ] => ( is => 'ro', isa => 'NetAdd
+r::IP', coerce => 1, required => 1 );

...
  my $netaddr_ip = $self->orig(@_);
  return $netaddr_ip->addr;
};