fixed is_public()

[maypole.git] / lib / Maypole / Model / Base.pm

diff --git a/lib/Maypole/Model/Base.pm b/lib/Maypole/Model/Base.pm
index b592eaab30f9439d257a2a04df8775c6a504d7e7..b6ef5f4b2156f45ad61bc8ecfca0cfb2b1d3db08 100644 (file)
--- a/lib/Maypole/Model/Base.pm
+++ b/lib/Maypole/Model/Base.pm
@@ -155,13 +155,13 @@ sub description { "A poorly defined class" }
 sub is_public {
     my ( $self, $action ) = @_;
     my $cv = $self->can($action);
-    return DECLINED() unless $cv;
+    return 0 unless $cv;
     my $attrs = join " ", attributes::get($cv);
     do {
         warn "$action not exported" if Maypole->debug;
-        return DECLINED();
+        return 0;
     } unless $attrs =~ /\bExported\b/i;
-    return OK;
+    return 1;
 }
 
 1;