package Utilities;
use strict;
use warnings;
use Exporter qw{import};
my @sys_exports = qw{$SYS_DIR $SYS_OTHER};
my @util_exports = qw{$UTIL_THIS $UTIL_THAT};
our @EXPORT_OK = (@sys_exports, @util_exports);
our %EXPORT_TAGS = (SYS => [@sys_exports], UTIL => [@util_exports]);
our $SYS_DIR = "sys_dir";
our $SYS_OTHER = "sys_other";
our $UTIL_THIS = "util_this";
our $UTIL_THAT = "util_that";
1;
####
$ perl -Mstrict -Mwarnings -E '
use Utilities;
say $SYS_DIR;
'
Global symbol "$SYS_DIR" requires explicit package name at -e line 3.
Execution of -e aborted due to compilation errors.
####
$ perl -Mstrict -Mwarnings -E '
use Utilities qw{$SYS_DIR};
say $SYS_DIR;
'
sys_dir
####
$ perl -Mstrict -Mwarnings -E '
use Utilities qw{:SYS};
say $SYS_DIR;
'
sys_dir
####
$ perl -Mstrict -Mwarnings -E '
use Utilities qw{:UTIL $SYS_OTHER};
say $SYS_OTHER;
say $UTIL_THAT;
'
sys_other
util_that