package Colour_and_Age {
    use Scalar::Util 'refaddr';
    our @ISA = qw[Age Colour];
    sub new {bless \do{my $var}, $_[0]}
    sub init (
        my ($self, $colour, $age) = @_;
        $self->Colour::init($colour);
        $self->Age::init($age);
        $self;
    }
};

my $o = Colour_and_Age::->new->init(red => 42);