sub new {
      my $proto = shift;
      my $self = bless { @_ }, ref($proto) || $proto;
      $self->initialize();
  }

  sub initialize {
      my $self = shift;
      ... initialization for the base class ...
  }

##</code><code>##

  sub initialize {
    my $self = shift;
    # First initialize our inherited aspects
    $self->SUPER::initialize();
    ... initialization specific to the subclass ...
  }