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 our $VERSION = "1." . sprintf "%04d", q$Rev$ =~ /: (\d+)/;
   8
   9 =head1 NAME
  10
  11 Maypole::Constants - Maypole predefined constants
  12
  13 =head1 DESCRIPTION
  14
  15 This class defines constants for use with Maypole
  16
  17 =head1 SEE ALSO
  18
  19 L<Maypole>
  20
  21 =head1 MAINTAINER
  22
  23 Sebastian Riedel, c<sri@oook.de>
  24
  25 =head1 AUTHOR
  26
  27 Simon Cozens, C<simon@cpan.org>
  28
  29 =head1 LICENSE
  30
  31 You may distribute this code under the same terms as Perl itself.
  32
  33 =cut
  34 1;