7 @ISA = (Exporter, AutoLoader, DynaLoader);
90 $AutoLoader::AUTOLOAD = $AUTOLOAD;
91 goto &AutoLoader::AUTOLOAD;
94 ($constname = $AUTOLOAD) =~ s/.*:://;
95 $val = constant($constname, @_ ? $_[0] : 0);
97 if ($! =~ /Invalid/) {
98 $AutoLoader::AUTOLOAD = $AUTOLOAD;
99 goto &AutoLoader::AUTOLOAD;
102 ($pack,$file,$line) = caller;
103 croak "Your vendor has not defined Socket macro $constname, used";
106 eval "sub $AUTOLOAD { $val }";
112 # Preloaded methods go here. Autoload methods go after __END__, and are
113 # processed by the autosplit program.