perl 面向对象 use base

1、XXX.pm 文件里面的第一行要是：package  XXX；
2、要有构造函数 sub new，实现如下：
sub new {
my $class = shift; # Get the request class name
my $self = {};
my ($name)=@_;
my $self = {
"name" =>$name
};
bless $self, $class; # Use class name to bless() reference
return $self;
}

3、接着用sub YYY{}  定义自己的函数
例如：
sub setBeanType{
my ($class, $name) = @_;//传进来的第一个参数是类似c++的this指针，第二个才是真正的参数
$class->{'Bean'} = $name;
print "Set bean to $name \n";
}

[root@wx03 test]# cat p1.pm
package p1;
use Data::Dumper;
sub new {
my $self = {};
my $invocant = shift;
my $class = ref($invocant) || $invocant;
my ($name)=@_;
my $self = {
"name" =>$name
};
bless $self, $class; # Use class name to bless() reference
print "111111111111111111\n";
$str=Dumper($self);
print "\$str is $str\n";
return $self;

};

sub setBeanType{
my ($self, $name) = @_;##//传进来的第一个参数是类似c++的self指针，第二个才是真正的参数
$self->{'Bean'} = $name;
print "Set bean to $name \n";
$str=Dumper($self);
print "\$str is $str\n";
};

1;

[root@wx03 test]# cat p1.pm
package p1;
use base qw(p2);
use Data::Dumper;
sub new {
my $self = {};
my $invocant = shift;
my $class = ref($invocant) || $invocant;
my ($name)=@_;
my $self = {
"name" =>$name
};
bless $self, $class; # Use class name to bless() reference
print "111111111111111111\n";
$str=Dumper($self);
print "\$str is $str\n";
return $self;

};

sub setBeanType{
my ($self, $name) = @_;##//传进来的第一个参数是类似c++的self指针，第二个才是真正的参数
$self->{'Bean'} = $name;
print "Set bean to $name \n";
$str=Dumper($self);
print "\$str is $str\n";
};

1;

[root@wx03 test]# cat p1.pl
unshift(@INC,"/root/test");
require p1;
$ua=p1->new('lily');
print "2222222222222222\n";
$str=$ua->setBeanType(scan);

[root@wx03 test]# perl p1.pl
111111111111111111
$str is $VAR1 = bless( {
'name' => 'lily'
}, 'p1' );

2222222222222222
Set bean to scan
$str is $VAR1 = bless( {
'Bean' => 'scan',
'name' => 'lily'
}, 'p1' );

不断的填充这个对象:

使用基类:
use base 是面向对象编程时，用来描述“基类”的：