diff --git a/lib/DDG/Goodie/BloodDonor.pm b/lib/DDG/Goodie/BloodDonor.pm
index 78d847fa1..648ba48a6 100755
--- a/lib/DDG/Goodie/BloodDonor.pm
+++ b/lib/DDG/Goodie/BloodDonor.pm
@@ -30,11 +30,6 @@ my %typeMap = (
'B' => 'B,O',
);
-sub table_data {
- my ($label, $value) = @_;
- return "
$label | $value |
";
-}
-
handle remainder => sub {
return unless ($_ =~ /^(O|A|B|AB)(\-|\+)$/i);
@@ -55,14 +50,10 @@ handle remainder => sub {
push(@criticalResults, $donorType . '-');
}
}
-
- my $output = '';
- my $html = "";
my $idealStr = join(' or ', @idealResults);
my $criticalStr = join(' or ', @criticalResults);
-
my %record_data = (
"Ideal donor" => uc($_),
"Other donors" => $idealStr,
@@ -75,10 +66,10 @@ handle remainder => sub {
}
sub to_text
- {
- my ($data, $keys) = @_;
- return join "\n", map {"$_: $data->{$_}";} @{$keys};
- }
+ {
+ my ($data, $keys) = @_;
+ return join "\n", map {"$_: $data->{$_}";} @{$keys};
+ }
return to_text(\%record_data, \@record_keys), structured_answer => {
id => 'BloodDonor',