← Back to branch summary

~ubuntu-branches/ubuntu/trusty/bioperl/trusty

« back to all changes in this revision

Viewing changes to Bio/Biblio/TechReport.pm

  • Committer: Package Import Robot
  • Author(s): Charles Plessy
  • Date: 2013-09-22 13:39:48 UTC
  • mfrom: (3.1.11 sid)
  • Revision ID: package-import@ubuntu.com-20130922133948-c6z62zegjyp7ztou
Tags: 1.6.922-1
http://bugs.debian.org/722910
* New upstream release.
* Replaces and Breaks grinder (<< 0.5.3-3~) because of overlaping contents.
  Closes: #722910
* Stop Replacing and Breaking bioperl ( << 1.6.9 ): not needed anymore. 

Show diffs side-by-side

added added

removed removed

Lines of Context:
Bio/Biblio/TechReport.pm
1
 
#
2
 
# BioPerl module for Bio::Biblio::TechReport
3
 
#
4
 
# Please direct questions and support issues to <bioperl-l@bioperl.org> 
5
 
#
6
 
# Cared for by Martin Senger <senger@ebi.ac.uk>
7
 
# For copyright and disclaimer see below.
8
 
 
9
 
# POD documentation - main docs before the code
10
 
 
11
 
=head1 NAME
12
 
 
13
 
Bio::Biblio::TechReport - Representation of a technical report
14
 
 
15
 
=head1 SYNOPSIS
16
 
 
17
 
    $obj = Bio::Biblio::TechReport->new
18
 
                  (-authors => [
19
 
                       Bio::Biblio::Person->new(-lastname => 'Hasek'),
20
 
                       Bio::Biblio::Person->new(-lastname => 'Jagr'),
21
 
                       Bio::Biblio::Organisation->new(-name => 'NHL'),
22
 
                               ]
23
 
                   -title => 'Pinned in the corner');
24
 
 
25
 
=head1 DESCRIPTION
26
 
 
27
 
A storage object for a technical report.
28
 
See its place in the class hierarchy in
29
 
http://www.ebi.ac.uk/~senger/openbqs/images/bibobjects_perl.gif
30
 
 
31
 
=head2 Attributes
32
 
 
33
 
There are no specific attributes in this class
34
 
(however, you can set and get all attributes defined in the parent classes).
35
 
 
36
 
=head1 SEE ALSO
37
 
 
38
 
=over 4
39
 
 
40
 
=item *
41
 
 
42
 
OpenBQS home page: http://www.ebi.ac.uk/~senger/openbqs/
43
 
 
44
 
=item *
45
 
 
46
 
Comments to the Perl client: http://www.ebi.ac.uk/~senger/openbqs/Client_perl.html
47
 
 
48
 
=back
49
 
 
50
 
=head1 FEEDBACK
51
 
 
52
 
=head2 Mailing Lists
53
 
 
54
 
User feedback is an integral part of the evolution of this and other
55
 
Bioperl modules. Send your comments and suggestions preferably to
56
 
the Bioperl mailing list.  Your participation is much appreciated.
57
 
 
58
 
  bioperl-l@bioperl.org                  - General discussion
59
 
  http://bioperl.org/wiki/Mailing_lists  - About the mailing lists
60
 
 
61
 
=head2 Support 
62
 
 
63
 
Please direct usage questions or support issues to the mailing list:
64
 
 
65
 
I<bioperl-l@bioperl.org>
66
 
 
67
 
rather than to the module maintainer directly. Many experienced and 
68
 
reponsive experts will be able look at the problem and quickly 
69
 
address it. Please include a thorough description of the problem 
70
 
with code and data examples if at all possible.
71
 
 
72
 
=head2 Reporting Bugs
73
 
 
74
 
Report bugs to the Bioperl bug tracking system to help us keep track
75
 
of the bugs and their resolution. Bug reports can be submitted via the
76
 
web:
77
 
 
78
 
  https://redmine.open-bio.org/projects/bioperl/
79
 
 
80
 
=head1 AUTHORS
81
 
 
82
 
Heikki Lehvaslaiho (heikki-at-bioperl-dot-org),
83
 
Martin Senger (senger@ebi.ac.uk)
84
 
 
85
 
=head1 COPYRIGHT
86
 
 
87
 
Copyright (c) 2002 European Bioinformatics Institute. All Rights Reserved.
88
 
 
89
 
This module is free software; you can redistribute it and/or modify
90
 
it under the same terms as Perl itself.
91
 
 
92
 
=head1 DISCLAIMER
93
 
 
94
 
This software is provided "as is" without warranty of any kind.
95
 
 
96
 
=cut
97
 
 
98
 
 
99
 
# Let the code begin...
100
 
 
101
 
 
102
 
package Bio::Biblio::TechReport;
103
 
use strict;
104
 
 
105
 
 
106
 
use base qw(Bio::Biblio::Ref);
107
 
 
108
 
#
109
 
# a closure with a list of allowed attribute names (these names
110
 
# correspond with the allowed 'get' and 'set' methods); each name also
111
 
# keep what type the attribute should be (use 'undef' if it is a
112
 
# simple scalar)
113
 
#
114
 
{
115
 
    my %_allowed = (
116
 
    );
117
 
 
118
 
    # return 1 if $attr is allowed to be set/get in this class
119
 
    sub _accessible {
120
 
        my ($self, $attr) = @_;
121
 
        exists $_allowed{$attr} or $self->SUPER::_accessible ($attr);
122
 
    }
123
 
 
124
 
    # return an expected type of given $attr
125
 
    sub _attr_type {
126
 
        my ($self, $attr) = @_;
127
 
        if (exists $_allowed{$attr}) {
128
 
            return $_allowed{$attr};
129
 
        } else {
130
 
            return $self->SUPER::_attr_type ($attr);
131
 
        }
132
 
    }
133
 
}
134
 
 
135
 
 
136
 
1;
137
 
__END__