/lib/SDL/Overlay.pm
http://github.com/PerlGameDev/SDL · Perl · 31 lines · 25 code · 6 blank · 0 comment · 0 complexity · 9277d0b8525985934cbb4bdd8e19c74f MD5 · raw file
- package SDL::Overlay;
- use strict;
- use warnings;
- use vars qw(@ISA @EXPORT @EXPORT_OK);
- require Exporter;
- require DynaLoader;
- use SDL::Constants ':SDL::Video';
- our @ISA = qw(Exporter DynaLoader);
- use SDL::Internal::Loader;
- internal_load_dlls(__PACKAGE__);
- our $VERSION = 2.548;
- bootstrap SDL::Overlay;
- use base 'Exporter';
- our @EXPORT = @{ $SDL::Constants::EXPORT_TAGS{'SDL::Video'} };
- our %EXPORT_TAGS = (
- all => \@EXPORT,
- color => $SDL::Constants::EXPORT_TAGS{'SDL::Video/color'},
- surface => $SDL::Constants::EXPORT_TAGS{'SDL::Video/surface'},
- video => $SDL::Constants::EXPORT_TAGS{'SDL::Video/video'},
- overlay => $SDL::Constants::EXPORT_TAGS{'SDL::Video/overlay'},
- grab => $SDL::Constants::EXPORT_TAGS{'SDL::Video/grab'},
- palette => $SDL::Constants::EXPORT_TAGS{'SDL::Video/palette'},
- gl => $SDL::Constants::EXPORT_TAGS{'SDL::Video/gl'}
- );
- 1;