/lib/SDLx/Music/Data.pm
http://github.com/PerlGameDev/SDL · Perl · 37 lines · 29 code · 8 blank · 0 comment · 4 complexity · f76b0c64d2a27484d0bea358451bd157 MD5 · raw file
- package SDLx::Music::Data;
- use strict;
- use warnings;
- our $VERSION = 2.548;
- sub volume
- {
- $_[0]->{volume} = $_[1] if $_[1];
- return $_[0];
- }
- sub file
- {
- if( $_[1] )
- {
- $_[0]->{file} = $_[1];
- $_[0]->{to_load} = 1;
- }
- return $_[0];
- }
- sub fade_in
- {
- $_[0]->{fade_in} = $_[1] if $_[1];
- return $_[0];
- }
- sub loops
- {
- $_[0]->{loops} = $_[1] if $_[1];
- return $_[0];
- }
- 1;