X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FHTML%2FZoom%2FSelectorParser.pm;fp=lib%2FHTML%2FZoom%2FSelectorParser.pm;h=029f688859db8a9f89ba4f13bcdcf933578c20c1;hb=3b8c9d7d615775505ace99b90b9c0c0433b6febc;hp=c485da40bdfeaa1415b4339bde60ac030ffdabfd;hpb=32ea0d1e04c5ece6a425bed0339995986dd93eef;p=catagits%2FHTML-Zoom.git

diff --git a/lib/HTML/Zoom/SelectorParser.pm b/lib/HTML/Zoom/SelectorParser.pm
index c485da4..029f688 100644
--- a/lib/HTML/Zoom/SelectorParser.pm
+++ b/lib/HTML/Zoom/SelectorParser.pm
@@ -18,6 +18,19 @@ sub _raw_parse_simple_selector {
     /\G\*/gc and
       return sub { 1 };
 
+     # 'el[attr="foo"]
+
+    /\G$sel_re\[$sel_re="$sel_re"\]/gc and
+      return do {
+        my $name = $1;
+        my $attr = $2;
+        my $val = $3;
+        sub {
+           $_[0]->{name} && $_[0]->{name} eq $name and
+           $_[0]->{attrs}{$attr} && $_[0]->{attrs}{$attr} eq $val
+        }
+      };
+
     # 'element' - match on tag name
 
     /\G$sel_re/gc and