Help for this page

Select Code to Download


  1. or download this
    package Base;

...
1;

...do the same for an AgeDecorator
  2. or download this
    use Base;
use NameDecorator;
...
my $decorated = AgeDecorator->new(NameDecorator->new(Base->new('id1'))
+);
$decorated->name('Edith');
$decorated->age(93);
  3. or download this
    package NameProto;

...
}

1;