Select Code to Download

package MyNameSpace::Faction;
...
BEGIN {
...
                         &max_faction
                        );
}

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

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