3 # BioPerl module for Bio::Biblio::WebResource
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::WebResource - Representation of a web resource
16 $obj = new Bio::Biblio::WebResource
17 (-url => 'http://resources/best.html',
18 -estimated_size => 45000);
21 $obj = new Bio::Biblio::WebResource;
22 $obj->cost ('0.3 EURO');
26 A storage object for a citation quoting a web resource.
27 See its place in the class hierarchy in
28 http://industry.ebi.ac.uk/openBQS/images/bibobjects_perl.gif
32 The following attributes are specific to this class
33 (however, you can also set and get all attributes defined in the parent classes):
45 OpenBQS home page: http://industry.ebi.ac.uk/openBQS
49 Comments to the Perl client: http://industry.ebi.ac.uk/openBQS/Client_perl.html
57 User feedback is an integral part of the evolution of this and other
58 Bioperl modules. Send your comments and suggestions preferably to
59 the Bioperl mailing list. Your participation is much appreciated.
61 bioperl-l@bioperl.org - General discussion
62 http://bioperl.org/MailList.shtml - About the mailing lists
66 Report bugs to the Bioperl bug tracking system to help us keep track
67 of the bugs and their resolution. Bug reports can be submitted via
70 bioperl-bugs@bioperl.org
71 http://bugzilla.bioperl.org/
75 Heikki Lehvaslaiho (heikki@ebi.ac.uk),
76 Martin Senger (senger@ebi.ac.uk)
80 Copyright (c) 2002 European Bioinformatics Institute. All Rights Reserved.
82 This module is free software; you can redistribute it and/or modify
83 it under the same terms as Perl itself.
87 This software is provided "as is" without warranty of any kind.
92 # Let the code begin...
95 package Bio
::Biblio
::WebResource
;
101 @ISA = qw( Bio::Biblio::Ref);
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
112 _estimated_size
=> undef,
116 # return 1 if $attr is allowed to be set/get in this class
118 my ($self, $attr) = @_;
119 exists $_allowed{$attr} or $self->SUPER::_accessible
($attr);
122 # return an expected type of given $attr
124 my ($self, $attr) = @_;
125 if (exists $_allowed{$attr}) {
126 return $_allowed{$attr};
128 return $self->SUPER::_attr_type
($attr);