/lib/SDL/Config.pm

 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;