sub name {
  my $self = shift;
  my $new_value = shift;
  $self->{_name} = $new_value if defined $new_value;
  return $self->{_name};
}

##</code><code>##

has 'name' => (
 is  => 'rw',
 isa => 'Str',
);