Select Code to Download

package Automobile;
sub CarType {die "Ought to be overridden!"}
...
__END__
package ParkingLot;
$x = $automobile->CarType;

package Automobile;
sub covers_slots {die "Ought to be overridden!"}
...
__END__
package ParkingLot;
$slots = $automobile->covers_slots;