Help for this page

Select Code to Download


  1. or download this
    package MyClass;
    
    ...
      
      return undef;
    }
    
  2. or download this
      my $self = MyClass::_new_or_old( shift );
    
  3. or download this
    sub init_stuff
    {
    ...
    }
    
    1;
    
  4. or download this
      my $self = shift;
      if( !$self->{'constructor'}++ )
      {
        $self = Myclass::new();
      }