/lib/SDL/Config.pm
http://github.com/PerlGameDev/SDL · Perl · 16 lines · 12 code · 4 blank · 0 comment · 0 complexity · 212e3258bcb0ee70f2037420e94c4da5 MD5 · raw file
- package SDL::Config;
- use strict;
- use warnings;
- use SDL::ConfigData;
- our $VERSION = 2.548;
- sub has {
- my ( $class, $define ) = @_;
- my $sdl_config = SDL::ConfigData->config('SDL_cfg');
- my $n = scalar grep { $$sdl_config{$_}{'libs'}{$define} } keys %$sdl_config;
- return ( $n > 0 ) ? 1 : 0;
- }
- 1;