From b68218d1c5ddfcd642d7fedb07d57b4d0392633a Mon Sep 17 00:00:00 2001
From: Timothy Totten <2009@huri.net>
Date: Wed, 12 Jan 2011 14:45:46 -0800
Subject: [PATCH] Put in a feature for checking if an attribute exists.

---
 lib/Exemel.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lib/Exemel.pm b/lib/Exemel.pm
index a659d28..8a885f2 100644
--- a/lib/Exemel.pm
+++ b/lib/Exemel.pm
@@ -192,7 +192,12 @@ class Exemel::Element does Exemel {
             if $node.name ne $val { $matched = False; }
           }
           else {
-            if $node.attribs{$key} ne $val { $matched = False; }
+            if ($val ~~ Bool) {
+              if ! $node.attribs.exists($key) { $matched = False; }
+            }
+            else {
+              if $node.attribs{$key} ne $val { $matched = False; }
+            }
           }
         }
         if $matched {