From: gecko <>
Date: Tue, 21 Mar 2000 08:29:21 +0000 (-0800)
Subject: [project @ 2000-03-21 00:29:21 by gecko]
X-Git-Tag: release/2.6.0~1309
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=dd2f565c7dd741c07635ee2dd1aad55295cfd374;p=debbugs.git

[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
index 00000000..243c3246
--- /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)