package Creature;

use base 'My::UNIVERSAL';

__PACKAGE__->mk_classdata( mortal => 1 );
__PACKAGE__->mk_accessors(qw/name gender/);

sub _initialize {
    my ( $self, $args ) = @_;
    $self->_must_have('name');
    $self->_may_have('gender');
}