package dstatenorm;
...
sub name {
    my $self = shift @_;
    return $self->{NAME};
}