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

• 2020-10-14
• daafoor

• برمجة | Programming
• اكواد برمجية برمجة
• برمجة بيرل | Perl programming
• اكواد برمجية برمجة بيرل
• اكواد برمجية

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