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; } }