SDLx_Sound.pl

#!/usr/bin/perl 
#==========================================================================
#
# FILE: SDLx_Sound.pl
#
# USAGE: ./examples/SDLx_Sound.pl 
#
#
# DESCRIPTION: Sound tests
# A SDLx::Sound can play, pause, resume and stop
#
# OPTIONS: ---
# REQUIREMENTS: ---
# BUGS: ---
# NOTES: ---
# AUTHOR: Ricardo Filipo (rf), ricardo.filipo@gmail.com
# COMPANY: Mito-Lógica design e soluções de comunicação ltda
# VERSION: 1.0
# CREATED: 16-08-2010 21:47:33
# REVISION: ---
#==========================================================================

use strict;
use warnings;

use lib 'lib';
use SDL;
use SDLx::Sound;
use SDLx::App;
use SDL::Event;
use SDL::Events; 

my$app = SDLx::App->new(
height=> 120,
width=> 480,
depth=> 16,
title=>'Sound example',
 );
my$snd = SDLx::Sound->new();

# load and play a sound
my$play = $snd->play('test/data/sample.wav');

# pause or resume on keydown 
$app->add_event_handler( sub{
my$e = $_[0];
$_[1]->stop() if$e->type == SDL_QUIT;
if( $e->type == SDL_KEYDOWN )
 { 
print"Ai\n"; 
if($play){
$snd->pause;
$play=0;
 }else{
$snd->resume;
$play=1;
 } 
 } 
 } );

$app->run();