sub name {
    $_[0]{NAME} = $_[1] if defined $_[1];
    $_[0]{NAME};
}