our @EXPORT = qw(OK DECLINED ERROR);
our $VERSION = "1." . sprintf "%04d", q$Rev$ =~ /: (\d+)/;
+1;
+
=head1 NAME
Maypole::Constants - Maypole predefined constants
This class defines constants for use with Maypole
-=head1 CONSTANTS
+=head2 CONSTANTS
=head3 OK
You may distribute this code under the same terms as Perl itself.
=cut
-1;