view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

    driver => $driver,
    type   => {
      chargen => [ qw(class alignment) ],
      levelup => { indexed => [ qw(enemy new_level) ] },
      death   => [ qw(killer implement) ],
    }
  };

  sub new {
    my ($class, $id) = @_;
    return bless { id => $id } => $class;
  }

  sub id { $_[0]{id} }
}

my $object = TestObject->new(10);
isa_ok($object, 'TestObject');

$object->add_history({
  type  => 'chargen',