Select Code to Download

use constant FIRST_IDX => __PACKAGE__->SUPER::NEXT_IDX();
use constant IDX_NAME  => FIRST_IDX + 0;
...
   my ($self) = @_;
   return $self->[IDX_NAME];
}

use constant IDX_NAME => 'NAME';
use constant IDX_ATTS => 'ATTS';
...
   my ($self) = @_;
   return $self->{IDX_NAME()};
}