+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();
+}
+