package::config; use exporter; use vars qw (@isa @export @export_ok %export_tags $version); %EXPORT_TAGS = ( sms => [ qw( $SMS_DISABLE_DL %ERRMSG ) ], ); @EXPORT_OK = ( @{ $EXPORT_TAGS{'sms'} }, ); use vars qw( %ERRMSG ); $ERRMSG{123} = "some string error1"; $ERRMSG{345} = "some string error2"; #### use package::config qw(:sms );