Select Code to Download

package Elric::Lexicon;

sub new {
...
}

...

use Elric::Lexicon;
my %lexicon = ();
...
...
  &message("Lexicon $_:\t");              # name the current lexicon
  $mind_units += $lexicon{$_}->info();    # print information about it
+s internals
}