امثلة على الوراثة INHERITANCE في لغة Perl

الوراثة Inheritence :

تسمح لنا الوراثة بتحديد تصنيف(class) يرث جميع التوابع والخصائص من class أخر.

الكلاس الاب الرئيسي يسمى parent class او base class

الكلاس الابن يسمى Child class او derived class

package Module1;  
use strict;  
use warnings;  
use parent 'Module2';  
sub setHello {  
    print "This is Hello message from Module1\n";  
}  
1;  


package Module2;  
use strict;  
use warnings;  
sub new {  
    my ($class) = @_;  
    return bless {}, $class;  
}   
sub setBye {  
    my ($self) = @_;  
    print "This is Bye message from Module2\n";  
    return;  
}  
1;  


#!/usr/bin/perl  
use strict;  
use warnings;  
use Module1;  
my $myObj = Module1->new;  
$myObj->setHello;  
$myObj->setBye;  

// outputs :
// This is Hello message from Module1
// This is Bye message from Module2