+sub toSimpleServer {
+ my $this = shift();
+
+ my $attrs = bless [], "Net::Z3950::RPN::Attributes";
+ foreach my $attr (@{ $this->{attrs} }) {
+ my($set, $type, $val) = @$attr;
+ push @$attrs, bless {
+ attributeSet => $set,
+ attributeType => $type,
+ attributeValue => $val,
+ }, "Net::Z3950::RPN::Attribute";
+ }
+
+ return bless {
+ $this->_ssname() => $this->{value},
+ attributes => $attrs,
+ }, $this->_ssclass();
+}
+
+
+
+package Net::Z3950::PQF::TermNode;
+our @ISA = qw(Net::Z3950::PQF::LeafNode);
+
+sub _name { "term" }
+sub _ssname { "term" }
+sub _ssclass { "Net::Z3950::RPN::Term" }
+
+
+
+package Net::Z3950::PQF::RsetNode;
+our @ISA = qw(Net::Z3950::PQF::LeafNode);
+
+sub _name { "rset" }
+sub _ssname { "id" }
+sub _ssclass { "Net::Z3950::RPN::RSID" }
+