package IP::Address;

use base 'My::Universal';
__PACKAGE__->mk_accessors('address');

sub _initialize {
    my $self = shift;
    $self->address( $self->_must_have('ip') );
}

1;

#

use IP::Address;

my $ip = IP::Address->new({ ip => $some_ip });
print $ip->address;   # prints $some_ip