25章　Perlでオブジェクト指向　クラス内で別のクラスを使う

my $man;

###########
sub new
{
my $class = shift;
my $self = {};
bless($self, $class);

$man = Human->new();
return $self;
}
#################
sub get
{
my ($self,$x, $y)  = @_ ;
$man->set($x,$y);
}
#################
sub show
{
my ($self)  = @_ ;
my $z = $man->calc2();
print “Student show = $z \n”;
}
#################
sub show2
{
my ($self,$x, $y)  = @_ ;
my $woman = Human->new();
$woman->set($x,$y);
my $z = $woman->calc2();
print “Student show2 = $z \n”;
}
##############
1;