## All rights reserved.
## Redistribution and use in source and binary forms, with or without
## modification, are permitted provided that the following conditions are met:
## All rights reserved.
## Redistribution and use in source and binary forms, with or without
## modification, are permitted provided that the following conditions are met:
our @ISA = qw(Net::Z3950::RPN::Node);
package Net::Z3950::RPN::AndNot;
our @ISA = qw(Net::Z3950::RPN::Node);
our @ISA = qw(Net::Z3950::RPN::Node);
package Net::Z3950::RPN::AndNot;
our @ISA = qw(Net::Z3950::RPN::Node);
package Net::Z3950::RPN::Term;
our @ISA = qw(Net::Z3950::RPN::Node);
package Net::Z3950::RPN::RSID;
our @ISA = qw(Net::Z3950::RPN::Node);
package Net::Z3950::RPN::Attributes;
package Net::Z3950::RPN::Attribute;
package Net::Z3950::RPN::Term;
our @ISA = qw(Net::Z3950::RPN::Node);
package Net::Z3950::RPN::RSID;
our @ISA = qw(Net::Z3950::RPN::Node);
package Net::Z3950::RPN::Attributes;
package Net::Z3950::RPN::Attribute;
package Net::Z3950::FacetList;
package Net::Z3950::FacetField;
package Net::Z3950::FacetTerms;
package Net::Z3950::FacetList;
package Net::Z3950::FacetField;
package Net::Z3950::FacetTerms;
return '@and ' . $this->[0]->toPQF() . ' ' . $this->[1]->toPQF();
} elsif ($class eq "Net::Z3950::RPN::AndNot") {
return '@not ' . $this->[0]->toPQF() . ' ' . $this->[1]->toPQF();
return '@and ' . $this->[0]->toPQF() . ' ' . $this->[1]->toPQF();
} elsif ($class eq "Net::Z3950::RPN::AndNot") {
return '@not ' . $this->[0]->toPQF() . ' ' . $this->[1]->toPQF();
} elsif ($class eq "Net::Z3950::RPN::RSID") {
return '@set ' . $this->{id};
} elsif ($class ne "Net::Z3950::RPN::Term") {
} elsif ($class eq "Net::Z3950::RPN::RSID") {
return '@set ' . $this->{id};
} elsif ($class ne "Net::Z3950::RPN::Term") {
Sebastian Hammer (quinn@indexdata.dk),
Mike Taylor (indexdata.com).
=head1 COPYRIGHT AND LICENCE
Sebastian Hammer (quinn@indexdata.dk),
Mike Taylor (indexdata.com).
=head1 COPYRIGHT AND LICENCE
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,