view release on metacpan or  search on metacpan

lib/Games/Goban/Board.pm  view on Meta::CPAN

74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
  my ($class, %args) = @_;
 
  $args{id} ||= ++$next_id;
 
  my $self = $class->SUPER::new(%args);
 
  $self->{color} = $args{color};
  $self->{notes} = $args{notes};
  $self->{move}  = $args{move};
 
  bless $self => $class;
}
 
sub notes    { (shift)->{notes} }
sub position { (shift)->current_space_id }
 
sub moved_on { (shift)->{move} }
 
sub color  { my $self = shift; $self->{color} }
sub colour { my $self = shift; $self->{color} }