3 # BioPerl module for Bio::Biblio::MedlineJournal
5 # Cared for by Martin Senger <senger@ebi.ac.uk>
6 # For copyright and disclaimer see below.
8 # POD documentation - main docs before the code
12 Bio::Biblio::MedlineJournal - Representation of a MEDLINE journal
16 $obj = new Bio::Biblio::MedlineJournal
17 (-medline_ta => 'J Vasc Interv Radiol');
20 $obj = new Bio::Biblio::MedlineJournal;
21 $obj->medline_ta ('J Vasc Interv Radiol');
25 A storage object for a MEDLINE journal.
26 See its place in the class hierarchy in
27 http://industry.ebi.ac.uk/openBQS/images/bibobjects_perl.gif
31 The following attributes are specific to this class
32 (however, you can also set and get all attributes defined in the parent classes):
46 OpenBQS home page: http://industry.ebi.ac.uk/openBQS
50 Comments to the Perl client: http://industry.ebi.ac.uk/openBQS/Client_perl.html
58 User feedback is an integral part of the evolution of this and other
59 Bioperl modules. Send your comments and suggestions preferably to
60 the Bioperl mailing list. Your participation is much appreciated.
62 bioperl-l@bioperl.org - General discussion
63 http://bioperl.org/MailList.shtml - About the mailing lists
67 Report bugs to the Bioperl bug tracking system to help us keep track
68 of the bugs and their resolution. Bug reports can be submitted via
71 bioperl-bugs@bioperl.org
72 http://bugzilla.bioperl.org/
76 Heikki Lehvaslaiho (heikki@ebi.ac.uk),
77 Martin Senger (senger@ebi.ac.uk)
81 Copyright (c) 2002 European Bioinformatics Institute. All Rights Reserved.
83 This module is free software; you can redistribute it and/or modify
84 it under the same terms as Perl itself.
88 This software is provided "as is" without warranty of any kind.
93 # Let the code begin...
95 package Bio
::Biblio
::MedlineJournal
;
99 use Bio::Biblio::Journal;
101 @ISA = qw(Bio::Biblio::Journal);
104 # a closure with a list of allowed attribute names (these names
105 # correspond with the allowed 'get' and 'set' methods); each name also
106 # keep what type the attribute should be (use 'undef' if it is a
114 _medline_code
=> undef,
115 _medline_ta
=> undef,
116 _nlm_unique_id
=> undef,
119 # return 1 if $attr is allowed to be set/get in this class
121 my ($self, $attr) = @_;
122 exists $_allowed{$attr} or $self->SUPER::_accessible
($attr);
125 # return an expected type of given $attr
127 my ($self, $attr) = @_;
128 if (exists $_allowed{$attr}) {
129 return $_allowed{$attr};
131 return $self->SUPER::_attr_type
($attr);