Help for this page

Select Code to Download


  1. or download this
    sub AUTOLOAD {
        our $AUTOLOAD;
        ...
    }
    
  2. or download this
    sub new { # any constructor
        my ($proto) = shift;
    ...
        $self = {};            # create a new object
        bless($self, $class);
    } # new
    
  3. or download this
    sub new { # any constructor
        my $class = shift;
        my $self  = {}; # or some initializing routine
        bless $self, $class;
    } # new