changed error code constant, and related test

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

diff --git a/lib/Maypole/Constants.pm b/lib/Maypole/Constants.pm
index 7e0b8ea3fad6789717b21cc7da77394c09d6c3b4..cee418f6ba583a3f2eab545514ec97af6b40dc58 100644 (file)
--- a/lib/Maypole/Constants.pm
+++ b/lib/Maypole/Constants.pm
@@ -1,11 +1,14 @@
 package Maypole::Constants;
+use strict;
 use base 'Exporter';
 use constant OK       => 0;
 use constant DECLINED => -1;
-use constant ERROR    => -1;
+use constant ERROR    => 500;
 our @EXPORT = qw(OK DECLINED ERROR);
 our $VERSION = "1." . sprintf "%04d", q$Rev$ =~ /: (\d+)/;
 
+1;
+
 =head1 NAME
 
 Maypole::Constants - Maypole predefined constants
@@ -26,7 +29,7 @@ Maypole::Constants - Maypole predefined constants
 
 This class defines constants for use with Maypole
 
-=head1 CONSTANTS
+=head2 CONSTANTS
 
 =head3 OK
 
@@ -40,7 +43,7 @@ L<Maypole>
 
 =head1 MAINTAINER
 
-Sebastian Riedel, c<sri@oook.de>
+Aaron Trevena, c<teejay@droogs.org>
 
 =head1 AUTHOR
 
@@ -51,4 +54,3 @@ Simon Cozens, C<simon@cpan.org>
 You may distribute this code under the same terms as Perl itself.
 
 =cut
-1;