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; 17