for my $field (qw( server peer monitor netlog )) {
   my $object = "${field}_object";
   has $field => (
      reader   => $object,
      isa      => 'NetAddr::IP',
      coerce   => 1,
      required => 1,
      handles  => {
         $field => sub { $_[0]->$object->addr },
      },
   );
}