sub name {
   my $self = shift;
   if (not defined $self->{name}) {
      $self->{name} = $self->_build_name();
   }
   return $self->{name};
}