5 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD);
11 @ISA = qw(Exporter DynaLoader);
12 # Items to export into callers namespace by default. Note: do not export
13 # names by default without a very good reason. Use EXPORT_OK instead.
14 # Do not simply export all your public functions/methods/constants.
21 # This AUTOLOAD is used to 'autoload' constants from the constant()
22 # XS function. If a constant is not found then control is passed
23 # to the AUTOLOAD in AutoLoader.
26 ($constname = $AUTOLOAD) =~ s/.*:://;
27 croak "& not defined" if $constname eq 'constant';
28 my $val = constant($constname, @_ ? $_[0] : 0);
30 if ($! =~ /Invalid/) {
31 $AutoLoader::AUTOLOAD = $AUTOLOAD;
32 goto &AutoLoader::AUTOLOAD;
35 croak "Your vendor has not defined Strange macro $constname";
39 *$AUTOLOAD = sub () { $val };
43 bootstrap Strange $VERSION;
45 # Preloaded methods go here.
47 # Autoload methods go after =cut, and are processed by the autosplit program.
51 # Below is the stub of documentation for your module. You better edit it!
55 Strange - Perl extension for blah blah blah
64 Stub documentation for Strange was created by h2xs. It looks like the
65 author of the extension was negligent enough to leave the stub
72 A. U. Thor, a.u.thor@a.galaxy.far.far.away