/[papo]/papo/neb/neb/Tree/Node.pm
ViewVC logotype

Diff of /papo/neb/neb/Tree/Node.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by jlenton, Mon Apr 7 18:02:43 2003 UTC revision 1.2 by jlenton, Wed Apr 9 15:29:14 2003 UTC
# Line 16  package neb::Tree::Node; Line 16  package neb::Tree::Node;
16  use strict;  use strict;
17  use Carp;  use Carp;
18    
19    our $DEBUG;
20    
21  sub new  sub new
22  {  {
23      my $class = shift;      my $class = shift;
24      my $self = bless {}, $class;      my $self = bless {}, $class;
25      $self->init(@_);      $self->init(@_);
26    
27        $DEBUG = $main::DEBUG;
28    
29      return $self;      return $self;
30  }  }
31    
# Line 34  sub parent Line 39  sub parent
39      return $self->{PARENT};      return $self->{PARENT};
40  }  }
41    
 sub index  
 {  
     my $self = shift;  
     my $index = shift;  
     $self->{INDEX} = $index  
         if (defined $index);  
   
     return $self->{INDEX};  
 }  
   
42  sub free  sub free
43  {  {
44      my $self = shift;      my $self = shift;

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26