PageRenderTime 12ms CodeModel.GetById 8ms RepoModel.GetById 1ms app.codeStats 0ms

/lib/SDL/PixelFormat.pm

http://github.com/PerlGameDev/SDL
Perl | 30 lines | 25 code | 5 blank | 0 comment | 0 complexity | 138c6d49f1bafc5b749614ffd9715659 MD5 | raw file
Possible License(s): AGPL-1.0, GPL-2.0
  1. package SDL::PixelFormat;
  2. use strict;
  3. use warnings;
  4. use vars qw(@ISA @EXPORT @EXPORT_OK);
  5. require Exporter;
  6. require DynaLoader;
  7. use SDL::Constants ':SDL::Video';
  8. our @ISA = qw(Exporter DynaLoader);
  9. use SDL::Internal::Loader;
  10. internal_load_dlls(__PACKAGE__);
  11. our $VERSION = 2.548;
  12. bootstrap SDL::PixelFormat;
  13. use base 'Exporter';
  14. our @EXPORT = @{ $SDL::Constants::EXPORT_TAGS{'SDL::Video'} };
  15. our %EXPORT_TAGS = (
  16. all => \@EXPORT,
  17. color => $SDL::Constants::EXPORT_TAGS{'SDL::Video/color'},
  18. surface => $SDL::Constants::EXPORT_TAGS{'SDL::Video/surface'},
  19. video => $SDL::Constants::EXPORT_TAGS{'SDL::Video/video'},
  20. overlay => $SDL::Constants::EXPORT_TAGS{'SDL::Video/overlay'},
  21. grab => $SDL::Constants::EXPORT_TAGS{'SDL::Video/grab'},
  22. palette => $SDL::Constants::EXPORT_TAGS{'SDL::Video/palette'},
  23. gl => $SDL::Constants::EXPORT_TAGS{'SDL::Video/gl'}
  24. );
  25. 1;