1package D; 2 3# This is our broken driver class 4 5use strict; 6 7use A (); 8use vars qw{$VERSION @ISA}; 9BEGIN { 10 $VERSION = '0.01'; 11 @ISA = 'A'; 12} 13 14sub dummy { 1 } 15 160; 17