perl中的面向对象

node1:/root/20200608#cat Client.pm 
package Client;
use Data::Dumper;
sub new{
##包的名字
my $class= shift;
print "\$class==$class.\n";
my %p = @_;
my $self={
'aa'=>$p{'name'},
'bb'=>$p{'x'},
'cc'=>$p{'y'}
 };
bless $self,$class;
};

sub send{
my $self=shift;
print "\$self==$self\n";
print Dumper($self);
my $a=shift;
my $b=shift;
return $a + $b;
};


1;



node1:/root/20200608#cat a1.pl 
use Client;
$xxx=Client->new('Name' => 'top','x' => 10,'y' => 20 );
$xxx->send(44,55);


node1:/root/20200608#perl a1.pl
$class==Client.
$self==Client=HASH(0x1d848e8)
$VAR1 = bless( {
                 'cc' => 20,
                 'bb' => 10,
                 'aa' => undef
               }, 'Client' );