/lib/SDL/Tutorial.pm

http://github.com/PerlGameDev/SDL · Perl · 56 lines · 16 code · 9 blank · 31 comment · 0 complexity · 4569ba27762a3b879c9ceeb9fe5446a2 MD5 · raw file

  1. #!/usr/bin/env perl
  2. #
  3. # Tutorial.pm
  4. #
  5. # Copyright (C) 2005 David J. Goehrig <dgoehrig@cpan.org>
  6. #
  7. # ------------------------------------------------------------------------------
  8. #
  9. # This library is free software; you can redistribute it and/or
  10. # modify it under the terms of the GNU Lesser General Public
  11. # License as published by the Free Software Foundation; either
  12. # version 2.1 of the License, or (at your option) any later version.
  13. #
  14. # This library is distributed in the hope that it will be useful,
  15. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  16. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  17. # Lesser General Public License for more details.
  18. #
  19. # You should have received a copy of the GNU Lesser General Public
  20. # License along with this library; if not, write to the Free Software
  21. # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  22. #
  23. # ------------------------------------------------------------------------------
  24. #
  25. # Please feel free to send questions, suggestions or improvements to:
  26. #
  27. # David J. Goehrig
  28. # dgoehrig@cpan.org
  29. #
  30. package SDL::Tutorial;
  31. use strict;
  32. use warnings;
  33. use SDL;
  34. use SDLx::App;
  35. our $VERSION = 2.548;
  36. # change these values as necessary
  37. my $title = 'My SDL App';
  38. my ( $width, $height, $depth ) = ( 640, 480, 16 );
  39. my $app = SDLx::App->new(
  40. width => $width,
  41. height => $height,
  42. depth => $depth,
  43. title => $title,
  44. );
  45. # your code here; remove the next line
  46. sleep 2;
  47. 1;