Next February 2001 Slide #13

Constructors

        sub new {
          my ($class) = @_;
          my $self = { };
          bless $self, $class;
          return $self;
        }
        sub new {
          my ($class) = @_;
          my $self = { };
          return bless $self, $class;
        }
        sub new {
          my ($class) = @_;
          my $self = { };
          bless $self, $class;
        }
        sub new {
          my ($class) = @_;
          bless {}, $class;
        }


Next Copyright © 2001 M-J. Dominus