8 lines
115 B
Perl
8 lines
115 B
Perl
|
use SDL::App;
|
||
|
|
use SDL::Event;
|
||
|
|
|
||
|
|
$app = SDL::App->new;
|
||
|
|
$app->loop({
|
||
|
|
SDL_QUIT() => sub { exit 0; },
|
||
|
|
});
|