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