package SuperTags::Tag;

use strict;

Utils::Properties::Register (
     "Name",
     "RegExp",
     "Value",
     "Values",
     "NoValues",
     "Levels",
     "Position",
);

sub get_RegExp {
     my $this = shift;
     return $this->Name unless $this->regExp;
     return $this->regExp;
}

sub get_Levels {
     my $this = shift;
     my ($index) = $this->Levels_Index;

     if (defined $index) {
          return $this->levels->[$index];
     }

     return $this->levels;
}


sub set_Levels {
     my $this = shift;
     my ($index) = $this->Levels_Index;

     if (defined $index) {
          $this->levels->[$index] = shift;
     }

     $this->levels = shift;
}