1 package HTML::Zoom::SelectorParser;
4 use warnings FATAL => 'all';
8 my $sel_re = qr/([$sel_char]+)/;
10 sub new { bless({}, shift) }
12 sub _raw_parse_simple_selector {
13 for ($_[1]) { # same pos() as outside
15 # '*' - match anything
20 # 'element' - match on tag name
25 sub { $_[0]->{name} && $_[0]->{name} eq $name }
28 # '#id' - match on id attribute
33 sub { $_[0]->{attrs}{id} && $_[0]->{attrs}{id} eq $id }
36 # '.class1.class2' - match on intersection of classes
38 /\G((?:\.$sel_re)+)/gc and
40 my $cls = $1; $cls =~ s/^\.//;
41 my @cl = split(/\./, $cls);
44 && !grep $_[0]->{attrs}{class} !~ /\b$_\b/, @cl
48 confess "Couldn't parse $_ as starting with simple selector";
54 my $sel = $_[1]; # my pos() only please
55 die "No selector provided" unless $sel;
60 push(@sub, $self->_raw_parse_simple_selector($_));
61 last PARSE if (pos == length);
62 /\G\s*,\s*/gc or confess "Selectors not comma separated";
63 } until (pos == length) };
64 return $sub[0] if (@sub == 1);
66 foreach my $inner (@sub) {
67 if (my $r = $inner->(@_)) { return $r }