|
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;
|