Help for this page

Select Code to Download


  1. or download this
    $app->add_move_handler ( sub { $ship->move( @_ ) } );
$app->add_show_handler ( sub { $ship->draw( @_ ) } );
  2. or download this
    sub move_ship
{
    $ship->draw( @_ );
...

$app->add_move_handler( \&move_ship );
$app->add_show_handler( \&draw_ship );
  3. or download this
    my $move_ship = sub { $ship->move( @_ ) };
my $draw_ship = sub { $ship->draw( @_ ) };

$app->add_move_handler( $move_ship );
$app->add_show_handler( $draw_ship );