From 01eab49507a01b9b6135ca1fdd085094373cd78f Mon Sep 17 00:00:00 2001
From: David Baird <cpan.zerofive@googlemail.com>
Date: Tue, 11 Oct 2005 21:32:22 +0000
Subject: [PATCH] Removed __to_boolean()

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@397 48953598-375a-da11-a14b-00016c27c3ee
---
 lib/Maypole.pm | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index 36f0858..bec9675 100644
--- 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) = @_;
-- 
2.39.2