X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=lib%2FNet%2FZ3950%2FPQF%2FNode.pm;h=41ede956cfd7fa36d4edc8dd14a23bedb97c0a2d;hb=ce04c9e68204d3b593b1b8182e2d35ed42eb6951;hp=50e9ef5bb56056df49d4ebe544d1276f0e3275f3;hpb=fe37f9e6377eaa8977001ef017b339be7032760e;p=perl-pqf.git

diff --git a/lib/Net/Z3950/PQF/Node.pm b/lib/Net/Z3950/PQF/Node.pm
index 50e9ef5..41ede95 100644
--- a/lib/Net/Z3950/PQF/Node.pm
+++ b/lib/Net/Z3950/PQF/Node.pm
@@ -1,4 +1,4 @@
-# $Id: Node.pm,v 1.1 2004-12-17 15:29:00 mike Exp $
+# $Id: Node.pm,v 1.2 2004-12-20 09:23:11 mike Exp $
 
 package Net::Z3950::PQF::Node;
 
@@ -12,7 +12,7 @@ Net::Z3950::PQF::Node - Abstract class for nodes in a PQF parse tree
 
 =head1 SYNOPSIS
 
- $node = new Net::Z3950::PQF::Term('unix');
+ $node = new Net::Z3950::PQF::TermNode('unix');
  $node->isa("Net::Z3950::PQF::Node") or die "oops";
 
 =head1 DESCRIPTION
@@ -153,6 +153,7 @@ sub render {
 
 
 package Net::Z3950::PQF::TermNode;
+our @ISA = qw(Net::Z3950::PQF::Node);
 
 sub new {
     my $class = shift();
@@ -182,6 +183,7 @@ sub render {
 
 # PRIVATE class, used as base by AndNode, OrNode and NotNode
 package Net::Z3950::PQF::BooleanNode;
+our @ISA = qw(Net::Z3950::PQF::Node);
 
 sub new {
     my $class = shift();
@@ -208,24 +210,21 @@ sub render {
 
 
 package Net::Z3950::PQF::AndNode;
-use vars qw(@ISA);
-@ISA = qw(Net::Z3950::PQF::BooleanNode);
+our @ISA = qw(Net::Z3950::PQF::BooleanNode);
 
 sub _op { "and" }
 
 
 
 package Net::Z3950::PQF::OrNode;
-use vars qw(@ISA);
-@ISA = qw(Net::Z3950::PQF::BooleanNode);
+our @ISA = qw(Net::Z3950::PQF::BooleanNode);
 
 sub _op { "or" }
 
 
 
 package Net::Z3950::PQF::NotNode;
-use vars qw(@ISA);
-@ISA = qw(Net::Z3950::PQF::BooleanNode);
+our @ISA = qw(Net::Z3950::PQF::BooleanNode);
 
 sub _op { "not" }