~ubuntu-branches/ubuntu/saucy/bioperl/saucy-proposed

« back to all changes in this revision

Viewing changes to Bio/Biblio/IO/medlinexml.pm

  • Committer: Bazaar Package Importer
  • Author(s): Charles Plessy
  • Date: 2009-03-10 07:19:11 UTC
  • mfrom: (1.2.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20090310071911-fukqzw54pyb1f0bd
Tags: 1.6.0-2
* Removed patch system (not used):
  - removed instuctions in debian/rules;
  - removed quilt from Build-Depends in debian/control.
* Re-enabled tests:
  - uncommented test command in debian/rules;
  - uncommented previously missing build-dependencies in debian/control.
  - Re-enabled tests and uncommented build-dependencies accordingly.
* Removed libmodule-build-perl and libtest-harness-perl from
  Build-Depends-Indep (provided by perl-modules).
* Better cleaning of empty directories using find -type d -empty -delete
  instead of rmdir in debian/rules (LP: #324001).

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
# $Id: medlinexml.pm,v 1.9.4.1 2006/10/02 23:10:13 sendu Exp $
 
1
# $Id: medlinexml.pm 14768 2008-07-29 03:48:41Z cjfields $
2
2
#
3
3
# BioPerl module Bio::Biblio::IO::medlinexml.pm
4
4
#
17
17
it through the I<Bio::Biblio::IO> module:
18
18
 
19
19
  use Bio::Biblio::IO;
20
 
  my $io = new Bio::Biblio::IO (-format => 'medlinexml');
 
20
  my $io = Bio::Biblio::IO->new(-format => 'medlinexml');
21
21
 
22
22
=head1 DESCRIPTION
23
23
 
460
460
    if ($e eq 'QualifierName' or
461
461
        $e eq 'SubHeading') {
462
462
        my %p = ();
463
 
        $p{'majorTopic'} = "Y" if $attrs{'MajorTopicYN'};
 
463
        $p{'majorTopic'} = $attrs{'MajorTopicYN'} if $attrs{'MajorTopicYN'};
464
464
        push (@ObjectStack, \%p);
465
465
    }
466
466