X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=templates%2Fperl_module_header.pm;h=f3633f3c8daf24c0a19f56fa68b91b98c99e87c5;hb=1a2afbd8bd7b61f1e3a58033a6f144ee8c1c350c;hp=af4f3191203f29e1a14562f043d117ad0a5ed520;hpb=402a9b885ea3576b01a2a328e92cd39b5b2a6058;p=lib.git

diff --git a/templates/perl_module_header.pm b/templates/perl_module_header.pm
index af4f319..f3633f3 100644
--- a/templates/perl_module_header.pm
+++ b/templates/perl_module_header.pm
@@ -1,8 +1,8 @@
 # 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: $
+# Copyright 2008 by Don Armstrong <don@donarmstrong.com>.
+# $Id$
 
 package ;
 
@@ -28,14 +28,14 @@ use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
 use base qw(Exporter);
 
 BEGIN{
-     ($VERSION) = q$Revision: 1.3 $ =~ /^Revision:\s+([^\s+])/;
+     ($VERSION) = q$Revision$ =~ /^Revision:\s+([^\s+])/;
      $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];
 
 }