/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

  1. package SDLx::Music::Data;
  2. use strict;
  3. use warnings;
  4. our $VERSION = 2.548;
  5. sub volume
  6. {
  7. $_[0]->{volume} = $_[1] if $_[1];
  8. return $_[0];
  9. }
  10. sub file
  11. {
  12. if( $_[1] )
  13. {
  14. $_[0]->{file} = $_[1];
  15. $_[0]->{to_load} = 1;
  16. }
  17. return $_[0];
  18. }
  19. sub fade_in
  20. {
  21. $_[0]->{fade_in} = $_[1] if $_[1];
  22. return $_[0];
  23. }
  24. sub loops
  25. {
  26. $_[0]->{loops} = $_[1] if $_[1];
  27. return $_[0];
  28. }
  29. 1;