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