[PerlChina] my Persion $self = 的用法
黄叶
hylinux at gmail.com
Thu Jun 1 01:39:43 PDT 2006
今天读到一个例子。
这个里在这里:
http://www.pgsqldb.org/twiki/bin/view/Perl/Objects2
代码在这里:
package Person;
use fields qw(naem race aliases);
sub new {
my $type = shift;
my Person $self = fields::new(ref $type || $type);
$self->{name} = "unnamed";
$self->{race} = "unknown";
$self->{aliases} = [];
return $self;
}
sub name {
my Person $self = shift;
$self->{name} = shift if @_;
return $self->{name};
}
sub race {
my Person $self = shift;
$self->{race} = shift if @_;
return $self->{race};
}
sub aliases {
my Person $self = shift;
$self->{aliases} = shift if @_;
return $self->{aliases};
}
1;
这里的my Persion $self 是什么概念呢?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/china-pm/attachments/20060601/fe33dfd0/attachment.html
More information about the China-pm
mailing list