Config.pm

package SDL::Config;

use strict;
use warnings;
use SDL::ConfigData;

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;