X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FConstants.pm;h=b79704fbaa0d66a8e073ca63c344f97a0f471b2b;hb=52d254200d32b47402461d325c2836c35af99201;hp=7bddbacfaa709af2c869ffa6536a1d0c5e5d39be;hpb=0f0ccfbbe2488b34841e5af2ecedd9f256c8489f;p=maypole.git diff --git a/lib/Maypole/Constants.pm b/lib/Maypole/Constants.pm index 7bddbac..b79704f 100644 --- a/lib/Maypole/Constants.pm +++ b/lib/Maypole/Constants.pm @@ -1,7 +1,33 @@ package Maypole::Constants; use base 'Exporter'; -use constant OK => 0; +use constant OK => 0; use constant DECLINED => -1; -use constant ERROR => -1; +use constant ERROR => -1; our @EXPORT = qw(OK DECLINED ERROR); + +=head1 NAME + +Maypole::Constants - Maypole predefined constants + +=head1 DESCRIPTION + +This class defines constants for use with Maypole + +=head1 SEE ALSO + +L + +=head1 MAINTAINER + +Sebastian Riedel, c + +=head1 AUTHOR + +Simon Cozens, C + +=head1 LICENSE + +You may distribute this code under the same terms as Perl itself. + +=cut 1;