}
};
+ # 'el.class1' - element + class
+
+ /\G$sel_re\.$sel_re/gc and
+ return do {
+ my $cls = $1; $cls =~ s/^\.//;
+ 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";
}
}
PARSE: { do {
push(@sub, $self->_raw_parse_simple_selector($_));
last PARSE if (pos == length);
- /\G\s*,\s*/gc or confess "Selectors not comma separated";
+ #/\G\s*,\s*/gc or confess "Selectors not comma separated";
} until (pos == length) };
return $sub[0] if (@sub == 1);
return sub {
}
};
}
-}
-
+}
+
1;