PageRenderTime 9ms CodeModel.GetById 1ms app.highlight 6ms RepoModel.GetById 1ms app.codeStats 0ms

/lib/SDL/Config.pm

http://github.com/PerlGameDev/SDL
Perl | 16 lines | 12 code | 4 blank | 0 comment | 0 complexity | 212e3258bcb0ee70f2037420e94c4da5 MD5 | raw file
 1package SDL::Config;
 2
 3use strict;
 4use warnings;
 5use SDL::ConfigData;
 6
 7our $VERSION = 2.548;
 8
 9sub has {
10	my ( $class, $define ) = @_;
11	my $sdl_config = SDL::ConfigData->config('SDL_cfg');
12	my $n = scalar grep { $$sdl_config{$_}{'libs'}{$define} } keys %$sdl_config;
13	return ( $n > 0 ) ? 1 : 0;
14}
15
161;