Select Code to Download

package Thingy;

...
  my ($self) = @_;
  return Thingy::Cog->new;
}

sub get_cog {
  my (@self) = @_;
  return( (ref($self) . "::Cog")->new );
}