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

##</code><code>##

perl -w test/facetsIn.pm
Global symbol "%runSwitches" requires explicit package name at test/facetsIn.pm line 8.
Global symbol "%runSwitches" requires explicit package name at test/facetsIn.pm line 16.
Execution of test/facetsIn.pm aborted due to compilation errors.