From 53fc8d0cfc92a2cabdbb0fe559896555dfdd49ab Mon Sep 17 00:00:00 2001
From: Jens Rehsack <sno@NetBSD.org>
Date: Tue, 7 Aug 2012 15:22:37 +0200
Subject: [PATCH] add get_check_value_as_bool

---
 lib/WWW/Mechanize/Script/Plugin.pm | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/lib/WWW/Mechanize/Script/Plugin.pm b/lib/WWW/Mechanize/Script/Plugin.pm
index 012e6e1..60c9181 100644
--- a/lib/WWW/Mechanize/Script/Plugin.pm
+++ b/lib/WWW/Mechanize/Script/Plugin.pm
@@ -25,6 +25,24 @@ sub get_check_value
     return $check->{check}->{$value_name} // $self->{check}->{$value_name};
 }
 
+sub get_check_value_as_bool
+{
+    my ( $self, $check, $value_name ) = @_;
+
+    $value_name or return;
+
+    my $val = $check->{check}->{$value_name} // $self->{check}->{$value_name};
+
+    defined($val) or return;
+    ref($val) and return $val;
+    if(_STRING($val))
+    {
+	$val =~ m/(?:true|on|yes)/i and return 1;
+    }
+
+    return 0;
+}
+
 sub can_check
 {
     my ( $self, $check ) = @_;
@@ -34,7 +52,7 @@ sub can_check
     foreach my $value_name (@value_names)
     {
         my $cv = $self->get_check_value( $check, $value_name );
-        $cv and $ok = 1;
+        $cv and $ok = 1 and last;
     }
 
     return $ok;
-- 
2.11.4.GIT