RosettaCodeData/Task/Inheritance-Single/Perl/inheritance-single-4.pl

6 lines
65 B
Perl

package Lab;
use Dog;
@ISA = qw( Dog );
#functions go here...
1;