[project @ 2000-03-21 00:29:21 by gecko]

Just what it says.. a holding place for stuff that is common, even amoung
modules.

diff --git a/Debbugs/Common.pm b/Debbugs/Common.pm
new file mode 100644 (file)
index 0000000..243c324
--- /dev/null
+++ b/Debbugs/Common.pm
@@ -0,0 +1,31 @@
+package Debbugs::Common; 
+
+use strict;
+
+BEGIN {
+       use Exporter   ();
+       use vars       qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+
+       # set the version for version checking
+       $VERSION     = 1.00;
+
+       @ISA         = qw(Exporter);
+       @EXPORT      = qw( &fail );
+       %EXPORT_TAGS = (  );     # eg: TAG => [ qw!name1 name2! ],
+
+       # your exported package globals go here,
+       # as well as any optionally exported functions
+       @EXPORT_OK   = qw();
+}
+
+use vars      @EXPORT_OK;
+use Debbugs::Config qw(%Globals);
+
+sub fail
+{
+       print "$_[0]\n";
+       exit 1;
+}
+
+1;
+END { }       # module clean-up code here (global destructor)