in reply to My perl SDL app is getting not responding in Windows

Perhaps http://search.cpan.org/dist/SDL-2.512/lib/pods/SDLx/App.pod will help?

SDLx::App controls the root window of the of your SDL based application. It extends the SDL::Surface class, and provides an interface to the window manager oriented functions.

and

oop( \%actions )

SDLx::App::loop is a simple event loop method which takes a reference 
+to a hash of event handler subroutines. The keys of the hash must be 
+SDL event types such as SDL_QUIT(), SDL_KEYDOWN(), and the like. When
+ called, the event method recieves as its parameter the event object 
+used in the loop.

Example:

    my $app = SDLx::App->new(
        title  => "test.app", 
        width  => 800, 
        height => 600, 
        depth  => 32
    );
    
    my %actions = (
        SDL_QUIT()    => sub { exit(0); },
        SDL_KEYDOWN() => sub { print "Key Pressed" },
    );
    
    $app->loop( \%actions );

[download]

Spirit of the Monastery


In Section Seekers of Perl Wisdom