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;