Home | Mirror | Search |
Person.pm
package Person;s use strict; sub new { my $self = {}; $self->{NAME} = undef; $self->{AGE} = undef; $self->{PEERS}= []; bless($self); return $self; } sub name { my $self = shift; if(@_) {$self->{NAME}=shift} return $self->{NAME}; } sub age { my $self = shift; if(@_) {$self->{AGE} = shift} return $self->{AGE}; } sub peers { my $self = shift; if(@_) { @{$self->{PEER}} = @_} return @{$self->{PEERS}}; } 1;
use Person; $person = Person->new(); $person->name('name'); print $person->{NAME}