第 7 章 Perl OOP

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}		
		
	

原文出处：Netkiller 系列 手札
本文作者：陈景峯
转载请与作者联系，同时请务必标明文章原始出处和作者信息及本声明。