Re: Passing around symbol table aliases

#### Globals.pm
package Globals;
use Exporter;
*tn = \%Track::by_name;
*ti = \%Track::by_index;
*bn = \%Bus::by_name;
our @ISA = 'Exporter';
our @EXPORT_OK = qw( %tn %ti %bn );

#### ChainSetup.pm
package ChainSetup;
use Globals qw( %tn %ti %bn );
print $tn{Master}->name;
[download]

Comment on Re: Passing around symbol table aliases Download Code

Replies are listed 'Best First'.
Re^2: Passing around symbol table aliases by gnosti (Chaplain) on Sep 07, 2011 at 04:00 UTC
That does it. Thanks!	[reply]