父类：
package Father;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(fatherCopy,copy);
sub new {
my $type = shift;
my $this = {} ;
print " Father new() \n";
bless $this, $type;
return $this;
}
sub fatherCopy {
my $class=@_;
print " fatherCopy()\n";
}
sub copy {
my $class=@_;
print " copy() from father \n";
}
1;
子类：
package Child;
require Exporter;
require Father;
@ISA = qw(Exporter,Father);
@EXPORT = qw(childCopy, copy);
sub new{
my $type1 = shift;
my $this = Father->new();
print "Child new() \n";
bless $this,$type1;
return $this;
}
sub childCopy{
my $class = @_;
print "childCopy() \n";
}
sub copy{
my $class = @_;
print "Copy() called from Child \n";
}
1;
程序：
#! /usr/bin/perl
#push (@INC,"pwd");
use Child;
$c=new Child;
$c->childCopy;
$c->copy ;
$c->fatherCopy ;
