Removed __to_boolean()

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@397 48953598-375a-da11-a14b-00016c27c3ee

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index 36f085880f02f11b1f523ebdf577510eb2d8870e..bec9675fda4f1fb643f1c43a0f123bfffd93ce27 100644 (file)
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -284,9 +284,6 @@ sub is_model_applicable
     return 0;
 }
 
-# *only* intended for translating the return code from is_applicable()
-sub __to_boolean { $_[0] == OK ? 1 : 0 }
-
 sub call_authenticate 
 {
     my ($self) = @_;