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',