sub new {
  my $class = shift;
  ...
  my $self = $class->_underthehood();
  ...
}

sub _underthehood {
  my $class = shift;
  die "subclass responsibility";
}