CGI::Ex 2.24

[chaz/p5-CGI-Ex] / lib / CGI / Ex / Die.pm

diff --git a/lib/CGI/Ex/Die.pm b/lib/CGI/Ex/Die.pm
index a3787af8a1d0aff96e9634f7b0b4b922f5ef7a17..c6d69846d775fccbf1aa9d82e5264deac0d61113 100644 (file)
--- a/lib/CGI/Ex/Die.pm
+++ b/lib/CGI/Ex/Die.pm
@@ -1,7 +1,19 @@
 package CGI::Ex::Die;
 
+=head1 NAME
+
+CGI::Ex::Die - A CGI::Carp::FatalsToBrowser type utility.
+
+=cut
+
+###----------------------------------------------------------------###
+#  Copyright 2007 - Paul Seamons                                     #
+#  Distributed under the Perl Artistic License without warranty      #
+###----------------------------------------------------------------###
+
 use strict;
-use vars qw($no_recurse
+use vars qw($VERSION
+            $no_recurse
             $EXTENDED_ERRORS $SHOW_TRACE $IGNORE_EVAL
             $ERROR_TEMPLATE
             $LOG_HANDLER $FINAL_HANDLER
@@ -11,6 +23,7 @@ use CGI::Ex;
 use CGI::Ex::Dump qw(debug ctrace dex_html);
 
 BEGIN {
+  $VERSION = '2.24';
   $SHOW_TRACE = 0      if ! defined $SHOW_TRACE;
   $IGNORE_EVAL = 0     if ! defined $IGNORE_EVAL;
   $EXTENDED_ERRORS = 1 if ! defined $EXTENDED_ERRORS;
@@ -151,10 +164,6 @@ sub die_handler {
 
 __END__
 
-=head1 NAME
-
-CGI::Ex::Die - A CGI::Carp::FatalsToBrowser type utility.
-
 =head1 SYNOPSIS
 
   use CGI::Ex::Die;
@@ -171,8 +180,12 @@ the developer, should errors occur.  This is a stub phase module.
 More features (error notification, custom error page, etc) will
 be added later.
 
+=head1 LICENSE
+
+This module may distributed under the same terms as Perl itself.
+
 =head1 AUTHORS
 
-Paul Seamons <perlspam at seamons dot com>
+Paul Seamons <perl at seamons dot com>
 
 =cut