/usr/local/CPAN/Games-Worms/Games/Worms/PS/Board.pm

• package Games::Worms::PS::Board
  • Seg
  • Node
  • window_init
• __END__
• EOF

package Games::Worms::PS::Board;
use strict;
use Games::Worms::Board;
use vars qw($Debug $VERSION %Default @ISA);
@ISA = ('Games::Worms::Board');
$VERSION = "0.60";
$Debug = 0;

#--------------------------------------------------------------------------
sub Seg  { return 'Games::Worms::PS::Seg' }
sub Node { return 'Games::Worms::Node' }

#--------------------------------------------------------------------------

sub window_init {
  my $board = shift;

  $board->init_grid;
  #$board->refresh_and_draw_grid;
  return;
}

#--------------------------------------------------------------------------
1;

__END__