[PerlChina] my Persion $self = 的用法

[Joe Jiang]

our Army $winner
local Phone $extension

都差不多的，看看前面的章节应该不难理解 my/our/local

在06-6-1，黄叶 <hylinux at gmail.com> 写道：
>
> 今天读到一个例子。
> 这个里在这里：
>
> 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 是什么概念呢？
>
>
>
>
> _______________________________________________
> China-pm mailing list
> China-pm at pm.org
> http://mail.pm.org/mailman/listinfo/china-pm
>



-- 
God May Always Inspire Life => Gmail
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/china-pm/attachments/20060601/f155c91f/attachment-0001.html