+sub get_current_player
+{
+ my $self=shift;
+ return $self->get_player($self->{current_player});
+}
+
+sub get_player
+{
+ my $self=shift;
+ my ($player_idx)=@_;
+ die if $player_idx < 0 or $player_idx >= $self->{player_count};
+ return $self->{player}[$player_idx];
+}
+