use Data::Dump 'dump';

my $person = Person->new({
    firstname => 'Mikhail',
    lastname  => 'Maluyk'
});

my $employee = Employee->new({
    firstname => 'Mikhail',
    lastname  => 'Maluyk',
    position  => 'Programmer'
});

$employee->meta->add_method(title => sub {
    my $self = shift;
    return $self->fullname . ", " . ucfirst $self->position;
});

print $employee->title, "\n";

dump $person->meta->subclasses;
dump $employee->meta->class_precedence_list;