1 package Maypole::Constants;
4 use constant DECLINED => -1;
5 use constant ERROR => -1;
6 our @EXPORT = qw(OK DECLINED ERROR);
7 our $VERSION = "1." . sprintf "%04d", q$Rev$ =~ /: (\d+)/;
13 Maypole::Constants - Maypole predefined constants
17 use Maypole::Constants;
29 This class defines constants for use with Maypole
45 Sebastian Riedel, c<sri@oook.de>
49 Simon Cozens, C<simon@cpan.org>
53 You may distribute this code under the same terms as Perl itself.