package SiteConfig; use strict; use XML::Simple; BEGIN { use vars qw( @configs ); @configs = qw( site search survey editor ); } use vars qw( @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT ); require Exporter; @ISA = qw(Exporter); %EXPORT_TAGS = ( ); @EXPORT = qw( ); @EXPORT_OK = map ('%'.$_, @configs2); # Config Starts Here use vars map ('%'.$_, @configs2); # Import config files %site = %{ XMLin('./site.xml') }; %search = %{ XMLin('./search.xml') }; %survey = %{ XMLin('./survey.xml') }; %editor = %{ XMLin('./editor.xml') }; 1;