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