hubmed.pm

一个论文管理系统

# $Id: Hubmed.pm,v 1.3 2005/06/02 15:42:19 martin Exp $
#
# Copyright 2005 Nature Publishing Group
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# The Bibliotech::CitationSource::Hubmed class retrieves citation data for articles
# in Hubmed.

use strict;
use Bibliotech::CitationSource;
use Bio::Biblio::IO;

package Bibliotech::CitationSource::Hubmed;
use base 'Bibliotech::CitationSource';
use URI;
use URI::QueryParam;

sub api_version {
  1;
}

sub name {
  'Hubmed';
}

sub version {
  '$Revision: 1.3 $';
}

sub understands {
  my ($self, $uri) = @_;
  return 0 unless $uri->scheme eq 'http';
  return $uri->host eq 'www.hubmed.org' ? 1 : 0;
}

sub citations {
  my ($self, $article_uri) = @_;

  my $io;
  eval {
    die "do not understand URI\n" unless $self->understands($article_uri);

    my $query_uri = new URI ('http://eutils.ncbi.nlm.nih.gov/entrez/eutils/efetch.fcgi?retmode=xml');
    my ($id) = ($article_uri =~ m!uids=(\d+)!);
    $id or die "no uids parameter\n";
    $query_uri->query_param(db => 'pubmed');
    $query_uri->query_param(id => $id);

    my $xml = $self->get($query_uri) or die "XML retrieval failed\n";
    $io = new Bio::Biblio::IO (-data => $xml, -format => 'pubmedxml') or die "IO object false\n";
  };
  die $@ if $@ =~ /at .* line \d+/;
  $self->errstr($@), return undef if $@;

  # we cannot simply rebless as I'd prefer because Bioperl uses child classes
  return Bibliotech::CitationSource::Pubmed::ResultList->new ($io);
}

1;
__END__