Inheritance

package Point;
use Moose;
has 'x';
has 'y';

package Color;
use Moose;
has $_ for qw/red green blue/; # Moose is Perl!

package ColoredPoint;
use Moose;
extends 'Point', 'Color';

• works like you would expect

ColoredPoint->new( red => 0, green => 0, blue => 0, x => 0, y => 0 );

• but with Moose, MI is rarely required; roles are used instead