Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 47 lines (27 sloc) 618 Bytes
#!perl
# ABSTRACT: Play the game
# PODNAME: snake.pl
use strict;
use warnings;
BEGIN {
if ( $^O eq 'darwin' && $^X !~ /SDLPerl$/ ) {
exec 'SDLPerl', $0, @ARGV or die "Failed to exec SDLPerl: $!";
}
}
use Games::Snake;
Games::Snake->new()->run();
exit;
__END__
=pod
=head1 SYNOPSIS
Start the game from the command line:
snake.pl
=head1 DESCRIPTION
This script starts the game. It will open a 800x600 window (plus the
size of the window frame). Use the arrow keys to control the snake.
Close the window to end the game.
=head1 SEE ALSO
=over 4
=item * L<Games::Snake>
=back
=cut