package myip; use Moose; use MooseX::Types::NetAddr::IP qw( NetAddrIP NetAddrIPv4 NetAddrIPv6 ); has ip => ( is => 'rw', isa => 'NetAddrIP', ); my $ip = myip->new(ip => '127.0.0.1' ); print $ip->ip() . "\n";