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