# taken from: http://perldoc.perl.org/perlobj.html
use strict;
use warnings;
use 5.014;
package A;
sub new {
return bless {}, shift;
}
sub speak {
my $self = shift;
$self->SUPER::speak();
say 'A';
}
package B;
use parent 'A';
sub speak {
my $self = shift;
$self->SUPER::speak();
say 'B';
}
package C;
use parent 'B';
sub speak {
my $self = shift;
$self->SUPER::speak();
say 'C';
}
my $c = C->new();
$c->speak();
####
Can't locate A.pm in @INC (@INC contains:
E:\My Documents\Technical\Perl\Eclipse workspace\C files
E:\My Documents\Technical\Perl\Eclipse workspace\OCR
F:/Win7programs/Dwimperl/perl/site/lib
F:/Win7programs/Dwimperl/perl/vendor/lib
F:/Win7programs/Dwimperl/perl/lib
.)
at F:/Win7programs/Dwimperl/perl/lib/parent.pm line 20.
BEGIN failed--compilation aborted at obj test.pl line 16.