Select Code to Download

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

package Thingy;
sub make_cog {
...
      return Thingy::Cog->new(@_);
   }
}

sub make_class {
   my ($class, $base_class) = @_;
...

   ...
}