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

[maypole.git] / lib / Maypole / View / Mason.pm

diff --git a/lib/Maypole/View/Mason.pm b/lib/Maypole/View/Mason.pm
index 4d50bbdc0a04ca7cc7820af578555a39fe3cbc79..90b3b4ee8e7e57f8fca8007d029a6f7f58f917f5 100644 (file)
--- a/lib/Maypole/View/Mason.pm
+++ b/lib/Maypole/View/Mason.pm
@@ -1,6 +1,7 @@
 package Maypole::View::Mason;
 use base 'Maypole::View::Base';
 use HTML::Mason;
+use Maypole::Constants;
 
 sub template {
     my ($self, $r) = @_;
@@ -13,7 +14,7 @@ sub template {
     );
     $mason->exec($r->template, $self->vars($r))
     $r->{output} = $output;
-    return 1;
+    return OK;
 }
 
 1;