Select Code to Download

package MyClass;

...
  
  return undef;
}

  my $self = MyClass::_new_or_old( shift );

sub init_stuff
{
...
}

1;

  my $self = shift;
  if( !$self->{'constructor'}++ )
  {
    $self = Myclass::new();
  }