package Thingy;
sub cog_class { 'Thingy::Cog' }
sub get_cog { my $self = shift; $self->cog_class->new(@_) }

package MyThingy;
use base Thingy;
sub cog_class { 'MyThingy::Cog' }