1# Don't want to collide with the B:: modules 2package My_B; 3 4# This is our good driver class 5 6use strict; 7 8use A (); 9use vars qw{$VERSION @ISA}; 10BEGIN { 11 $VERSION = '0.01'; 12 @ISA = 'A'; 13} 14 15sub dummy { 1 } 16 171; 18