Select Code to Download

bless do { my %self = (%{Colour->new($colour)}, %{Age->new($age)}); \%
+self }, $class;

package Colour {
    use Scalar::Util 'refaddr';
...
        ... Now what? ...
    }
}

use Scalar::Util 'refaddr';
package Colour {
...
    sub init {$age{refaddr $_[0]} = $_[1]; $_[0]}
    sub age {$age{refaddr $_[0]}}
};

package Colour_and_Age {
    use Scalar::Util 'refaddr';
...
};

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