package Foo;
use Fergal::MM qw( Bar );

##</code><code>##

package Foo;
use Fergal::MM qw( Bar );

sub setBar
{
  my $self = shift;
  my $value = shift;
  check($value);
  $self->SUPER::setBar($value);
}

##</code><code>##

$a->Grid(2, 3) = $player1;
$a->Grid(7, 5) = $player2;

##</code><code>##

$a->setGrid($player1, 2, 3);
$a->setGrid($player2, 7, 5);