Evaluating religions

Pseudo-code for evaluating religions

sub evaluate_religion( $other_person ) {
   if ( $other_person->religion->name == $me->religion->name ) {
      return NORMAL_RELIGION;
   } elsif ( $other_person->religion->wacky_beliefs == $me->religion->wacky_beliefs ) {
      return OK_RELIGION;
   } elsif ( $other_person->religion->location == $me->religion->location ) {
      return WEIRD_RELIGION | OK_RELIGION;
   } else {
      return CRAZY_RELIGION | CULT;
   }
}