Object Methods

• $name = $hamlet->get_name;

        sub get_name {
          my ($self) = @_;
          return $self->{NAME};
        }

• A different approach:

        sub name {
          my $self = shift;
          if (@_) { $self->{NAME} = shift }
          return $self->{NAME};
        }

• This can be used in two ways:

        $hamlet->name('Hamlet');
        print $hamlet->name;

Next

Copyright © 2001 M-J. Dominus