perl 面向对象demo

Vsftp:/root/perl/17# cat Critter.pm
package Critter;
sub new {
    my $self = {};
    my $invocant = shift;
my $class = ref($invocant) || $invocant;
    my ($name)=@_;
      my $self = {
         "name" =>"luotuo",
         @_ # 覆盖以前的属性
                 };
    bless $self, $class; # Use class name to bless() reference
    return $self;  

};  

sub sum {
       $self=shift;
       my $a=shift;
       my $b=shift;
       return $a + $b;
};
1;
Vsftp:/root/perl/17# cat a1.pl
unshift(@INC,"/root/perl/17");
use Critter;
use Data::Dumper;
$ed = Critter->new('name'=>'poddinns');
print $ed->{name};
print "\n";
print $ed->sum(4,5);
print "\n";
Vsftp:/root/perl/17# perl a1.pl
poddinns
9