Parent Directory | Revision Log | 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; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |