package MyNameSpace::Faction;
...
BEGIN {
  #use Exporter 'import';
  use Exporter qw (import);
  #@MyNameSpace::Faction::ISA = qw(MyNameSpace::Player Exporter);
  #@MyNameSpace::Faction::ISA = qw(Exporter MyNameSpace::Player);
  @MyNameSpace::Faction::ISA = qw(MyNameSpace::Player);
  @MyNameSpace::Faction::EXPORT_OK = qw(
                         &get_faction
                         &max_faction
                        );
}

##</code><code>##

package MyNameSpace::Player;
...
use MyNameSpace::Faction qw (get_faction);
...
  $self->{faction} = get_faction($faction);

##</code><code>##

package MyNameSpace::Territory;
...
use MyNameSpace::Faction qw (get_faction);
...
    $self->{faction} = get_faction($faction);