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 1;