sub set_name {
  my $self  = Object->( shift );
  my $value = Str->( shift );
  $self->{name} = $value;
}
sub get_name {
  my $self = Object->( shift );
  return $self->{name};
}