my $move_ship = sub { $ship->move( @_ ) };
my $draw_ship = sub { $ship->draw( @_ ) };

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