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' );