##
# contact_is_male( contact_id => $contact_id )
# requires contact_id, makes contact male

sub contact_is_male {
  my ( $self, %arg ) = @_;
  die "contact_id required\n"; unless $arg{contact_id};
  $self->{contacts}{$arg{$contact_id}}{sex}{male};
}