1 2 3 4 5 6 7 8 9 10 11 12 13 14
package E; # This is a good class, but not a driver use strict; use vars qw{$VERSION}; BEGIN { $VERSION = '0.01'; } sub dummy { 1 } 1;