}
};
+ # '[attr~=bar]' - match attribute contains word
+ /\G\[$sel_re~=$match_value_re\]/gc and
+ return do {
+ my $attribute = $1;
+ my $value = $2;
+ sub {
+ $_[0]->{attrs}{$attribute}
+ && grep { $_ eq $value } split(' ', $_[0]->{attrs}{$attribute});
+ }
+ };
+
# '[attr=bar]' - match attributes
/\G\[$sel_re=$match_value_re\]/gc and
return do {
}
};
- # '[attr] - match attribute being present:
+ # '[attr]' - match attribute being present:
/\G\[$sel_re\]/gc and
return do {
my $attribute = $1;