package Class::NiftyORM::code;
sub Class::NiftyORM::CreateObjectFromDB { ... }

package Cone::Head;
*newFromDB= \&ClassNiftyORM::CreateObjectFromDB;

package Cone::Head::Beldar;
@ISA= qw< Cone::Head >;