Add ARM files

[dh-make-perl] / dev / arm / dh-make-perl / dh-make-perl-0.47 / Strange-2.1 / Strange.pm

diff --git a/dev/arm/dh-make-perl/dh-make-perl-0.47/Strange-2.1/Strange.pm b/dev/arm/dh-make-perl/dh-make-perl-0.47/Strange-2.1/Strange.pm
new file mode 100644 (file)
index 0000000..f41fa4c
--- /dev/null
+++ b/dev/arm/dh-make-perl/dh-make-perl-0.47/Strange-2.1/Strange.pm
@@ -0,0 +1,78 @@
+package Strange;
+
+use strict;
+use Carp;
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD);
+
+require Exporter;
+require DynaLoader;
+require AutoLoader;
+
+@ISA = qw(Exporter DynaLoader);
+# Items to export into callers namespace by default. Note: do not export
+# names by default without a very good reason. Use EXPORT_OK instead.
+# Do not simply export all your public functions/methods/constants.
+@EXPORT = qw(
+       
+);
+$VERSION = '2.1';
+
+sub AUTOLOAD {
+    # This AUTOLOAD is used to 'autoload' constants from the constant()
+    # XS function.  If a constant is not found then control is passed
+    # to the AUTOLOAD in AutoLoader.
+
+    my $constname;
+    ($constname = $AUTOLOAD) =~ s/.*:://;
+    croak "& not defined" if $constname eq 'constant';
+    my $val = constant($constname, @_ ? $_[0] : 0);
+    if ($! != 0) {
+       if ($! =~ /Invalid/) {
+           $AutoLoader::AUTOLOAD = $AUTOLOAD;
+           goto &AutoLoader::AUTOLOAD;
+       }
+       else {
+               croak "Your vendor has not defined Strange macro $constname";
+       }
+    }
+    no strict 'refs';
+    *$AUTOLOAD = sub () { $val };
+    goto &$AUTOLOAD;
+}
+
+bootstrap Strange $VERSION;
+
+# Preloaded methods go here.
+
+# Autoload methods go after =cut, and are processed by the autosplit program.
+
+1;
+__END__
+# Below is the stub of documentation for your module. You better edit it!
+
+=head1 NAME
+
+Strange - Perl extension for blah blah blah
+
+=head1 SYNOPSIS
+
+  use Strange;
+  blah blah blah
+
+=head1 DESCRIPTION
+
+Stub documentation for Strange was created by h2xs. It looks like the
+author of the extension was negligent enough to leave the stub
+unedited.
+
+Blah blah blah.
+
+=head1 AUTHOR
+
+A. U. Thor, a.u.thor@a.galaxy.far.far.away
+
+=head1 SEE ALSO
+
+perl(1).
+
+=cut