package Cluster;

sub new
{
  my $class = shift;
  my $self = {};

  $self{_clusterName} = shift; 
  $self{_verbs} = [];
 
  bless $self, $class;
  return $self;
}

sub getClusterName
{
  my( $self ) = @_;
  return $self{_clusterName};
}
1;