Select Code to Download

package Base;

...
1;

...do the same for an AgeDecorator

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

package NameProto;

...
}

1;