[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