package TagList;
sub new {
    my $class = shift;
    my @self : shared = @_;    
    my _TagList = [],
    return bless \@self, $class;
}