Next February 2001 Slide #20

Change of Implementation

        sub new {
          my ($class) = @_;
          bless [], $class;
        }
        sub name {
          my $self = shift;
          if (@_) { $self->[0] = shift }
          return $self->[0];
        }


Next Copyright © 2001 M-J. Dominus