package Foo; use strict; use base qw/Whatever::Object/; # decorator methods go here 1; #### my $foo = new Foo();