lib/Maypole/Constants.pm

   1 package Maypole::Constants;
   2 use base 'Exporter';
   3 use constant OK       => 0;
   4 use constant DECLINED => -1;
   5 use constant ERROR    => -1;
   6 our @EXPORT = qw(OK DECLINED ERROR);
   7
   8 =head1 NAME
   9
  10 Maypole::Constants - Maypole predefined constants
  11
  12 =head1 DESCRIPTION
  13
  14 This class defines constants for use with Maypole
  15
  16 =head1 SEE ALSO
  17
  18 L<Maypole>
  19
  20 =head1 MAINTAINER
  21
  22 Sebastian Riedel, c<sri@oook.de>
  23
  24 =head1 AUTHOR
  25
  26 Simon Cozens, C<simon@cpan.org>
  27
  28 =head1 LICENSE
  29
  30 You may distribute this code under the same terms as Perl itself.
  31
  32 =cut
  33 1;