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

6 lines
71 B
Perl

package Cat;
use Animal;
@ISA = qw( Animal );
#functions go here...
1;