7 @ISA = qw(Exporter DynaLoader);
90 ($constname = $AUTOLOAD) =~ s/.*:://;
91 $val = constant($constname, @_ ? $_[0] : 0);
93 if ($! =~ /Invalid/) {
94 $AutoLoader::AUTOLOAD = $AUTOLOAD;
95 goto &AutoLoader::AUTOLOAD;
98 ($pack,$file,$line) = caller;
99 croak "Your vendor has not defined Socket macro $constname, used";
102 eval "sub $AUTOLOAD { $val }";
107 # pack a sockaddr_in structure for use in bind() calls.
108 # (here to hide the 'S n C4 x8' magic from applications)
110 my($af, $port, @quad) = @_;
111 my $pack = 'S n C4 x8'; # lookup $pack from hash using $af?
112 pack($pack, $af, $port, @quad);
118 # Preloaded methods go here. Autoload methods go after __END__, and are
119 # processed by the autosplit program.