-# This module is part of , and is released
-# under the terms of the GPL version 2, or any later version. See the
-# file README and COPYING for more information.
-# Copyright 2003 by Don Armstrong <don@donarmstrong.com>.
-# $Id: $
+# This module is part of , and
+# is released under the terms of the GPL version 3, or any later
+# version (at your option). See the file README and COPYING for more
+# information.
+# Copyright 2015 by Don Armstrong <don@donarmstrong.com>.
-package ;
+package THEPACKAGE;
=head1 NAME
- --
+THEPACKGE --
=head1 SYNOPSIS
=cut
-
+use warnings;
use strict;
use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
use base qw(Exporter);
BEGIN{
- ($VERSION) = q$Revision: 1.3 $ =~ /^Revision:\s+([^\s+])/;
+ $VERSION = '0.1';
$DEBUG = 0 unless defined $DEBUG;
- @EXPORT = ()
-# %EXPORT_TAGS = (a => [qw()]
-# );
+ @EXPORT = ();
+ %EXPORT_TAGS = (#a => [qw()],
+ );
@EXPORT_OK = ();
-# Exporter::export_ok_tags(qw(add get));
+ Exporter::export_ok_tags(keys %EXPORT_TAGS);
$EXPORT_TAGS{all} = [@EXPORT_OK];
}