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