package neb::Tree::Stuff; use strict; use Carp; use neb::Tree::Node; our @ISA = ('neb::Tree::Node'); sub init { my $self = shift; $self->stuff(@_); } sub stuff { my $self = shift; my $stuff = shift; $self->{STUFF} = $stuff if (defined $stuff); return $self->{STUFF}; } sub canonical { my $self = shift; return $self->stuff; } 1;