package Thingy;
sub make_cog {
   my $self = shift;
   return Cog->new(@_);
}

{
   ...
   my $cog = $self->make_cog(...);
   ...
}

package MyThingy;
sub make_cog {
   my $self = shift;
   return MyCog->new(@_);
}