[ENSCORESW-844]. Method to get/set the coordinate (seq region) name.

modules/Bio/EnsEMBL/Mapper/Coordinate.pm

@@ -149,7 +149,7 @@ sub strand {
 
   Arg  1      char|int $id
               id of object in mapped region
-	      e.g. seq_region_id / seq_region_name
+	      e.g. seq_region_id
   Function    getter/setter method
   Returntype  char|int
   Exceptions  none
@@ -168,6 +168,29 @@ sub id {
   return $self->{'id'};
 }
 
+=head2 name
+
+  Arg  1      char name
+              name of object in mapped region
+	      e.g. seq_region_name
+  Function    getter/setter method
+  Returntype  char
+  Exceptions  none
+  Caller      Bio::EnsEMBL::Mapper::Coordinate
+  Status      Stable
+
+=cut
+
+sub name {
+  my ( $self, $value ) = @_;
+
+  if ( defined($value) ) {
+    $self->{'name'} = $value;
+  }
+
+  return $self->{'name'};
+}
+
 =head2 coord_system
 
   Arg  1      Bio::EnsEMBL::CoordSystem

modules/Bio/EnsEMBL/TopLevelAssemblyMapper.pm

@@ -118,8 +118,8 @@ sub new {
   my $coord_systems = $cs_adaptor->fetch_all();
 
   my $self = bless {'coord_systems' => $coord_systems,
-                'toplevel_cs'   => $toplevel_cs,
-                'other_cs'      => $other_cs}, $class;
+		    'toplevel_cs'   => $toplevel_cs,
+		    'other_cs'      => $other_cs}, $class;
 
   $self->adaptor($adaptor);
   return $self;