| … | … | ||
|---|---|---|---|
| 99 | =cut | 99 | =cut |
| 100 | 100 | ||
| 101 | sub new { | 101 | sub new { |
| 102 | my $class = shift; | 102 | my $class = shift; |
| 103 | my $size = shift; | 103 | my $size = shift; |
| 104 | |||
| 105 | unless ($size > 0) { | ||
| 106 | Carp::croak ("no board size given!"); | ||
| 107 | } | ||
| 104 | 108 | ||
| 105 | bless { | 109 | bless { |
| 106 | max => $size - 1, | 110 | max => $size - 1, |
| 107 | size => $size, | 111 | size => $size, |
| 108 | board => [map [(0) x $size], 1 .. $size], | 112 | board => [map [(0) x $size], 1 .. $size], |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |