sub is_purple {
  ...
  return $color eq 'purple' ? '1' : '0';
}