Perl Inherit Instance

Person.pm:

#!/usr/bin/perl-w

?

package Person;

?

use strict;

use English;

use warnings;

?

sub new {

? my $self = {};

?

? shift;

? my ($name,$age) =@_;

?

? $self->{name} =$name;

? $self->{age} =$age;

?

? bless ($self);

}

?

sub change_name {

? my $self = shift;

? #print$self."n";

? my $name = shift;

? #print$name."n";

?

? $self->{name} =$name;

}

?

my $object_person = Person->new("Tom",26);

print "Name:".$object_person->{name}."n";

?

$object_person->change_name("Jim");

print "Name:".$object_person->{name}."n";

?

----------------------------------------------------------------------------------

?

Employee.pl:

#!/usr/bin/perl -w

?

package Employee;

use Person;

@ISA = qw(Person);

?

use strict;

use English;

use warnings;

?

sub new {

? shift;

?

? my ($name,$age,$salary) = @_;

? my $self = Person->new($name,$age);

?

? $self->{salary} = $salary;

?

? bless ($self);

?

? return $self;

}

?

sub change_salary {

? my $self = shift;

? my $new_salary = shift;

?

? $self->{salary} = $new_salary;

}

?

my $object_employee =Employee->new ("Tonny",28,10000);

print "Name: " .$object_employee->{name} . ",Age: " . $object_employee->{age}.

",Salary: " .$object_employee->{salary} . ".n";

?

$object_employee->change_name("Tommy");

$object_employee->change_salary(13000);

?

print "Name: " .$object_employee->{name} . ",Salary: " .$object_employee->{salary} . ".n";