2.09 - maintain the order that plugins are loaded, add tests for Maypole::Application...

[maypole.git] / lib / Maypole / Constants.pm

diff --git a/lib/Maypole/Constants.pm b/lib/Maypole/Constants.pm
index b79704fbaa0d66a8e073ca63c344f97a0f471b2b..dcf35e5b6561012e16d1911f3442d8ce284ff1a2 100644 (file)
--- a/lib/Maypole/Constants.pm
+++ b/lib/Maypole/Constants.pm
@@ -4,15 +4,38 @@ use constant OK       => 0;
 use constant DECLINED => -1;
 use constant ERROR    => -1;
 our @EXPORT = qw(OK DECLINED ERROR);
+our $VERSION = "1." . sprintf "%04d", q$Rev$ =~ /: (\d+)/;
+
+1;
 
 =head1 NAME
 
 Maypole::Constants - Maypole predefined constants
 
+=head1 SYNOPSIS
+
+    use Maypole::Constants;
+
+    sub authenticate {
+        if (valid_user()) {
+            return OK;
+        } else {
+            return DECLINED
+        }
+    }
+
 =head1 DESCRIPTION
 
 This class defines constants for use with Maypole
 
+=head2 CONSTANTS
+
+=head3 OK
+
+=head3 DECLINED
+
+=head3 ERROR
+
 =head1 SEE ALSO
 
 L<Maypole>
@@ -30,4 +53,3 @@ Simon Cozens, C<simon@cpan.org>
 You may distribute this code under the same terms as Perl itself.
 
 =cut
-1;