objectOriented

objectOriented.pl

use DerivedCls;
$obj = new2 DerivedCls;
$obj->inputMsg();
$obj->outputMsg();

BaseCls.pm

package BaseCls;
sub new2 {
    my $class2 = shift;
    my $this2 = {};
    bless $this2, $class2;
    return $this2;
}
sub inputMsg {
    print "1. BaseCls input...\n";
}
sub outputMsg {
    print "2. BaseCls output...\n";
}
1;

DerivedCls.pm

package DerivedCls;
require BaseCls;
@ISA = qw(BaseCls);
sub new2 {
    my $class2 = shift;
    $this2 = BaseCls->new2();
    bless $this2, $class2;
    return $this2;
}
sub outputMsg {
    $first = shift;
    print "\t first param = ", $first, "\n";
    print "3. DerivedCls output...\n";
}
1;