Select Code to Download

package base::Vars;
...
use vars qw( %runSwitches );     
our @ISA = qw(Exporter);
our @EXPORT = qw(%runSwitches);

package main;
use base::Vars qw(%runSwitches);
...
    $runSwitches{directories} = {stat_out => '/net/httpd/htdocs/projec
+ts/reconciler',
                     DRMetrics => '/net/DRMetrics' ...}
elsif{ ....}{}

package safer::Indenture::facetsIn;
use strict;
...
      "\n");
    croak unless $runSwitches{directories}{orion_reqs}
    ...}

package main;
use strict;
...

&orionDirs();
1

perl -w test/ipack
safer::Indenture::facetsIn::runSwitches's directories: 
base::Vars::runSwitches' directories: 
main::runSwitches's directories: DRMetrics base external_cgi_bin exter
+nal_images external_ont external_rec knowledge ontology orion_reqs st
+at_out ucfDir

perl -dw test/ipack.pl

...
safer::Indenture::facetsIn's directories: DRMetrics base external_cgi_
+bin external_images external_ont external_rec knowledge ontology orio
+n_reqs stat_out ucfDir
base::Vars::runSwitches' directories: DRMetrics base external_cgi_bin 
+external_images external_ont external_rec knowledge ontology orion_re
+qs stat_out ucfDir
main::runSwitches's directories: DRMetrics base external_cgi_bin exter
+nal_images external_ont external_rec knowledge ontology orion_reqs st
+at_out ucfDir