Perl oop研究

发现有个蛋疼的事情，还是没了解透。记录下已经研究出来的。

package Person;
use strict;

sub new{
  my $self = {};
  $self->{name} =undef;
  $self->{age}=undef;
  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};
}

1;

#!/usr/bin/perl

use Person;

$tom=Person->new();
print $tom->name('smart,Tom');
print $tom->age(11);