/\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 {
+ if (
+ $_[0]->{name} && $_[0]->{name} eq $name and
+ $_[0]->{attrs}{$attr}
+ ) {
+ my %vals = map { $_ => 1 } split /\s+/, $_[0]->{attrs}{$attr};
+ return $vals{$val}
+ }
+ return undef
+ }
+ };
+
+ # '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} =~ /^\Q$val\E/
+ }
+ };
+
# 'el[attr="foo"]
/\G$sel_re\[$sel_re="$sel_re"\]/gc and
}
};
+ # 'el[attr]
+
+ /\G$sel_re\[$sel_re\]/gc and
+ return do {
+ my $name = $1;
+ my $attr = $2;
+ sub {
+ $_[0]->{name} && $_[0]->{name} eq $name && $_[0]->{attrs}{$attr}
+ }
+ };
+
# 'element' - match on tag name
/\G$sel_re/gc and