From 0cd432d9cb4205a2d93aa1d442d8283117971369 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Sat, 31 May 2014 19:13:33 -0700 Subject: [PATCH] handle HASH in abstract --- lib/Reference/Retrieve/PubMed.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lib/Reference/Retrieve/PubMed.pm b/lib/Reference/Retrieve/PubMed.pm index 553245d..81bef47 100644 --- a/lib/Reference/Retrieve/PubMed.pm +++ b/lib/Reference/Retrieve/PubMed.pm @@ -257,6 +257,8 @@ sub _fix_medline_abstract{ $ret .= $element->{Label}.': '.$element->{content}; } return $ret; + } elsif (ref($abstract) and ref($abstract) eq 'HASH') { + return $abstract->{Label}.': '.$abstract->{content}; } else { return $abstract; } -- 2.39.2