package myParent;
our @ISA;

sub new {
  my $class = shift;
  bless $self,$class;
  $self->_init(@_);
  return $self;
}
sub _init {
  my $self = shift;
  print "_initParent (@_)\n";
}

#----------------------------------

package myChild;
our @ISA;
use base qw(myParent);

# This function is completely unnecessary
#sub new {
#  my $class = shift;
#  my $self = $class->SUPER::new;
#  $self->_init(@_);
#  return $self;
#}

sub _init {
  my $self = shift;
  print "_initChild (@_)\n";
}