Moose inheritance

package Employee;

use Moose;
use Id;

extends ('Person');

has id    => ( is => 'ro', default => Id::next() );
has title => ( is => 'rw', isa => 'Str' );

1;

'extends' is recommended over use base because use base pushes on the end of @ISA and extends replaces @ISA

This is important to ensure that classes which do not have super-classes still properly inherit from Moose::Object

continued...