package Foo; use strict; use base qw/Whatever::Object/; # decorator methods go here 1;