XML-XPath/XPath/Expr.pm

19     foreach my $predicate (@{$self->{predicates}}) {
20         $string .= "[" . $predicate->as_string . "]";
35     foreach my $predicate (@{$self->{predicates}}) {
36         $string .= "<Predicate>\n" . $predicate->as_xml() . "</Predicate>\n";
112     die "Only 1 predicate allowed on FilterExpr in W3C XPath 1.0"
146         # filter initial nodeset by each predicate
147         foreach my $predicate (@{$self->{predicates}}) {
148             $results = $self->filter_by_predicate($results, $predicate);
577     my ($nodeset, $predicate) = @_;
580     # For each node in the node-set to be filtered, the predicate Expr
590 #    warn "Filter by predicate: $predicate\n";
598         my $result = $predicate->evaluate($nodeset->get_node($i));