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