use constant FIRST_IDX => __PACKAGE__->SUPER::NEXT_IDX();
use constant IDX_NAME  => FIRST_IDX + 0;
use constant IDX_ATTS  => FIRST_IDX + 1;
use constant NEXT_IDX  => FIRST_IDX + 2;

sub name {
   my ($self) = @_;
   return $self->[IDX_NAME];
}

##</code><code>##

use constant IDX_NAME => 'NAME';
use constant IDX_ATTS => 'ATTS';

sub name {
   my ($self) = @_;
   return $self->{IDX_NAME()};
}