class.pl

package Employee;

use Class::MOP;
use Class::MOP::Class;
use Class::MOP::Attribute;

Class::MOP::Class->create(
    'Employee' => (
        version      => '0.01',
        superclasses => ['Person'], 
        attributes   => [
            Class::MOP::Attribute->new(
                position => (
                    accessor  => 'position',
                    init_arg  => 'position',
                    default   => 'programmer'
                )
            )
        ]
    )
);

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