package Creature;

use base 'My::UNIVERSAL';

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

1;

# in the code

my $creature = Creature->new({
    name   => 'Alice',
    gender => 'female',
} );