Add constants; refactor View classes and tests to use them; refactor out handler_guts

[maypole.git] / lib / Maypole / Constants.pm

diff --git a/lib/Maypole/Constants.pm b/lib/Maypole/Constants.pm
new file mode 100644 (file)
index 0000000..7bddbac
--- /dev/null
+++ b/lib/Maypole/Constants.pm
@@ -0,0 +1,7 @@
+package Maypole::Constants;
+use base 'Exporter';
+use constant OK => 0;
+use constant DECLINED => -1;
+use constant ERROR => -1;
+our @EXPORT = qw(OK DECLINED ERROR);
+1;