zeroclickinfo-goodies/lib/DDG/Goodie/BloodDonor.pm

package DDG::Goodie::BloodDonor;
# ABSTRACT: Returns available donors for a blood type

use DDG::Goodie;

triggers start => 'donor', 'donors for', 'blood donor', 'blood donors for';
zci answer_type => "blood_donor";

primary_example_queries 'donor O+';
secondary_example_queries 'donor AB+';
description 'Donor types for a given blood type';
name 'BloodDonor';
code_url 'https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/BloodDonor.pm';
category 'special';
topics 'everyday';
attribution github => ['https://github.com/faraday', 'faraday'];

my %typeMap = (
   'A' => 'A,O',
   'O' => 'O',
   'AB' => 'AB,A,B,O',
   'B' => 'B,O',
);

sub table_data {
  my ($label, $value) = @_;
  return '<tr><td>' . $label . '&nbsp;&nbsp;&nbsp;</td><td>' . $value . "</td></tr>";
}

handle remainder => sub {
    if ($_ =~ /^(O|A|B|AB)(\-|\+)$/i) {
      my $type = $1;
      my $rh = $2;

      my @idealResults = ();
      my @criticalResults = ();

      # ideally same Rh
      foreach our $donorType (split(",",$typeMap{$type})) {
          push(@idealResults, $donorType . $rh);
          if($rh eq '+') {
            # only when access to same Rh is impossible
            push(@criticalResults, $donorType . '-');
          }
      }

      my $output = '';
      my $html = '<table>';
      my $idealStr = join(' or ', @idealResults);
      my $criticalStr = join(' or ', @criticalResults);
      $output .= "Ideal donor: " . $_ . "\n";
      $output .= "Other donors: " . $idealStr . "\n";
      $html .= table_data("Ideal donor:", $_);
      $html .= table_data("Other donors:", $idealStr);
      if($rh eq '+') {
        $output .= "Only if no Rh(+) found: " . $criticalStr . "\n";
        $html .= table_data("<b>Only if</b> no Rh(+) found:", $criticalStr);
      }
      $html .= '</table>';
      return $output, html => $html, heading => "Donors for blood type $_";
    }

    return;
};
1;