vcs.maemo.org Git - pkg-perl/blob - deb-src/dh-make-perl/dh-make-perl-0.47maemo1/Strange-2.1/Strange.pm

   1 package Strange;
   2
   3 use strict;
   4 use Carp;
   5 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD);
   6
   7 require Exporter;
   8 require DynaLoader;
   9 require AutoLoader;
  10
  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.
  15 @EXPORT = qw(
  16
  17 );
  18 $VERSION = '2.1';
  19
  20 sub AUTOLOAD {
  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.
  24
  25     my $constname;
  26     ($constname = $AUTOLOAD) =~ s/.*:://;
  27     croak "& not defined" if $constname eq 'constant';
  28     my $val = constant($constname, @_ ? $_[0] : 0);
  29     if ($! != 0) {
  30         if ($! =~ /Invalid/) {
  31             $AutoLoader::AUTOLOAD = $AUTOLOAD;
  32             goto &AutoLoader::AUTOLOAD;
  33         }
  34         else {
  35                 croak "Your vendor has not defined Strange macro $constname";
  36         }
  37     }
  38     no strict 'refs';
  39     *$AUTOLOAD = sub () { $val };
  40     goto &$AUTOLOAD;
  41 }
  42
  43 bootstrap Strange $VERSION;
  44
  45 # Preloaded methods go here.
  46
  47 # Autoload methods go after =cut, and are processed by the autosplit program.
  48
  49 1;
  50 __END__
  51 # Below is the stub of documentation for your module. You better edit it!
  52
  53 =head1 NAME
  54
  55 Strange - Perl extension for blah blah blah
  56
  57 =head1 SYNOPSIS
  58
  59   use Strange;
  60   blah blah blah
  61
  62 =head1 DESCRIPTION
  63
  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
  66 unedited.
  67
  68 Blah blah blah.
  69
  70 =head1 AUTHOR
  71
  72 A. U. Thor, a.u.thor@a.galaxy.far.far.away
  73
  74 =head1 SEE ALSO
  75
  76 perl(1).
  77
  78 =cut