use Base;
use NameDecorator;
use AgeDecorator;

my $decorated = AgeDecorator->new(NameDecorator->new(Base->new('id1')));
$decorated->name('Edith');
$decorated->age(93);