my ($self, $name, $attr, $regex) = @_;
sub {
- $self->{name} && $self->{name} eq $name and
- $self->{attrs}{$attr} && $self->{attrs}{$attr} =~ $regex
+ $_[0]->{name} && $_[0]->{name} eq $name and
+ $_[0]->{attrs}{$attr} && $_[0]->{attrs}{$attr} =~ $regex
}
};
my ($self, $name, $attr, $val) = @_;
sub {
- $self->{name} && $self->{name} eq $name and
- $self->{attrs}{$attr} && $self->{attrs}{$attr} eq $val
+ $_[0]->{name} && $_[0]->{name} eq $name and
+ $_[0]->{attrs}{$attr} && $_[0]->{attrs}{$attr} eq $val
}
};
}
};
+ # 'el.class1' - element + class
+
+ /\G$sel_re\.$sel_re/gc and
+ return do { $_[0]->$match_attr_on_eq($1, 'class', $2) };
+
+ # 'el#id' - element + id
+ /\G$sel_re#$sel_re/gc and
+ return do { $_[0]->$match_attr_on_eq($1, 'id', $2) };
+
# 'element' - match on tag name
/\G$sel_re/gc and
}
};
- # 'el.class1' - element + class
-
- /\G$sel_re\.$sel_re/gc and
- return do { $_[0]->$match_attr_on_eq($1, 'class', $3) };
-
- # 'el#id' - element + id
-
- /\G$sel_re#$sel_re/gc and
- return do { $_[0]->$match_attr_on_eq($1, 'id', $3) };
-
confess "Couldn't parse $_ as starting with simple selector";
}
}