lib/perl/Blerg-Database/lib/Blerg/Database.pm

   1 package Blerg::Database;
   2
   3 use 5.008000;
   4 use strict;
   5 use warnings;
   6 use Carp;
   7
   8 require Exporter;
   9 use AutoLoader;
  10
  11 our @ISA = qw(Exporter);
  12
  13 # Items to export into callers namespace by default. Note: do not export
  14 # names by default without a very good reason. Use EXPORT_OK instead.
  15 # Do not simply export all your public functions/methods/constants.
  16
  17 # This allows declaration       use Blerg::Database ':all';
  18 # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
  19 # will save memory.
  20 our %EXPORT_TAGS = ( 'all' => [ qw(
  21
  22 ) ] );
  23
  24 our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
  25
  26 our @EXPORT = qw(
  27
  28 );
  29
  30 our $VERSION = '1.7';
  31
  32 sub AUTOLOAD {
  33     # This AUTOLOAD is used to 'autoload' constants from the constant()
  34     # XS function.
  35
  36     my $constname;
  37     our $AUTOLOAD;
  38     ($constname = $AUTOLOAD) =~ s/.*:://;
  39     croak "&Blerg::Database::constant not defined" if $constname eq 'constant';
  40     my ($error, $val) = constant($constname);
  41     if ($error) { croak $error; }
  42     {
  43         no strict 'refs';
  44         # Fixed between 5.005_53 and 5.005_61
  45 #XXX    if ($] >= 5.00561) {
  46 #XXX        *$AUTOLOAD = sub () { $val };
  47 #XXX    }
  48 #XXX    else {
  49             *$AUTOLOAD = sub { $val };
  50 #XXX    }
  51     }
  52     goto &$AUTOLOAD;
  53 }
  54
  55 require XSLoader;
  56 XSLoader::load('Blerg::Database', $VERSION);
  57
  58 # Preloaded methods go here.
  59
  60 # Autoload methods go after =cut, and are processed by the autosplit program.
  61
  62 1;
  63 __END__
  64 # Below is stub documentation for your module. You'd better edit it!
  65
  66 =head1 NAME
  67
  68 Blerg::Database - Perl extension for blah blah blah
  69
  70 =head1 SYNOPSIS
  71
  72   use Blerg::Database;
  73   blah blah blah
  74
  75 =head1 DESCRIPTION
  76
  77 Stub documentation for Blerg::Database, created by h2xs. It looks like the
  78 author of the extension was negligent enough to leave the stub
  79 unedited.
  80
  81 Blah blah blah.
  82
  83 =head2 EXPORT
  84
  85 None by default.
  86
  87
  88 =head1 HISTORY
  89
  90 =over 8
  91
  92 =item 1.7
  93
  94 Original version; created by h2xs 1.23 with options
  95
  96   -C
  97         -b
  98         5.8.0
  99         -n
 100         Blerg::Database
 101         -v
 102         1.7
 103
 104 =back
 105
 106
 107
 108 =head1 SEE ALSO
 109
 110 Mention other useful documentation such as the documentation of
 111 related modules or operating system documentation (such as man pages
 112 in UNIX), or any relevant external documentation such as RFCs or
 113 standards.
 114
 115 If you have a mailing list set up for your module, mention it here.
 116
 117 If you have a web site set up for your module, mention it here.
 118
 119 =head1 AUTHOR
 120
 121 Chip Black, E<lt>chip@slackware.lanE<gt>
 122
 123 =head1 COPYRIGHT AND LICENSE
 124
 125 Copyright (C) 2013 by Chip Black
 126
 127 This library is free software; you can redistribute it and/or modify
 128 it under the same terms as Perl itself, either Perl version 5.16.1 or,
 129 at your option, any later version of Perl 5 you may have available.
 130
 131
 132 =cut