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

coerce 'NetAddr::IP' => from 'Str' => via { NetAddr::IP->new($_, '255.255.255.255') };

around [ qw/server peer monitor netlog/ ] => sub {
  my $orig = shift;
  my $self = shift;
  
  my $netaddr_ip = $self->orig(@_);
  return $netaddr_ip->addr;
};