From dd2f565c7dd741c07635ee2dd1aad55295cfd374 Mon Sep 17 00:00:00 2001 From: gecko <> Date: Tue, 21 Mar 2000 00:29:21 -0800 Subject: [PATCH] [project @ 2000-03-21 00:29:21 by gecko] Just what it says.. a holding place for stuff that is common, even amoung modules. --- Debbugs/Common.pm | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 Debbugs/Common.pm 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) -- 2.39.5