Thanks... but when I do that, I get fatal errors. E.g., with
package test::facetsIn;
use strict;
use base::Vars qw(%runSwitches);
use Carp;
# use vars qw(%runSwitches);
sub orionDirs{
print("safer::Indenture::facetsIn's directories: " ,
join(' ', sort keys %{$runSwitches{directories}}),
"\n");
print("base::Vars::runSwitches' directories: ",
join(' ', sort keys %{$base::Vars::runSwitches{directories}}),
"\n");
print("main::runSwitches{directories}'s directories: " ,
join(' ', sort keys %{$main::runSwitches{directories}}),
"\n");
croak unless $runSwitches{directories}{orion_reqs}
}
1
and
perl -w test/facetsIn.pm
Global symbol "%runSwitches" requires explicit package name at test/fa
+cetsIn.pm line 8.
Global symbol "%runSwitches" requires explicit package name at test/fa
+cetsIn.pm line 16.
Execution of test/facetsIn.pm aborted due to compilation errors.