}
};
+ # 'el.class1' - element + class
+
+ /\G$sel_re\.$sel_re/gc and
+ return do {
+ my $cls = $1;
+ my $name = $2;
+ sub {
+ $_[0]->{name} && $_[0]->{name} eq $name and
+ $_[0]->{attrs}{class} && $_[0]->{attrs}{class} eq $cls
+ }
+ };
+
confess "Couldn't parse $_ as starting with simple selector";
}
}
}
};
}
-}
-
+}
+
1;