annotate variant_effect_predictor/Bio/EnsEMBL/Variation/Study.pm @ 0:1f6dce3d34e0

Uploaded
author mahtabm
date Thu, 11 Apr 2013 02:01:53 -0400
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
1 =head1 LICENSE
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
2
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
3 Copyright (c) 1999-2012 The European Bioinformatics Institute and
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
4 Genome Research Limited. All rights reserved.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
5
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
6 This software is distributed under a modified Apache license.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
7 For license details, please see
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
8
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
9 http://www.ensembl.org/info/about/code_licence.html
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
10
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
11 =head1 CONTACT
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
12
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
13 Please email comments or questions to the public Ensembl
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
14 developers list at <dev@ensembl.org>.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
15
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
16 Questions may also be sent to the Ensembl help desk at
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
17 <helpdesk@ensembl.org>.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
18
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
19 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
20
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
21 # Ensembl module for Bio::EnsEMBL::Variation::Study
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
22 #
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
23 # Copyright (c) 2011 Ensembl
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
24 #
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
25
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
26
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
27 =head1 NAME
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
28
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
29 Bio::EnsEMBL::Variation::Study - Ensembl representation of a study.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
30
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
31 =head1 SYNOPSIS
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
32
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
33 # Study
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
34 $study = Bio::EnsEMBL::Variation::Study->new
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
35 (-name => 'EGAS00000000001',
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
36 -external_reference => 'pubmed/17554300',
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
37 -url => 'http://www.ebi.ac.uk/ega/page.php?page=study&study=EGAS00000000001&cat=www.wtccc.studies.xml.ega&subcat=BD'
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
38 );
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
39 ...
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
40
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
41
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
42 =head1 DESCRIPTION
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
43
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
44 This is a class representing a study from the ensembl-variation database.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
45
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
46 =head1 METHODS
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
47
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
48 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
49
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
50 use strict;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
51 use warnings;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
52
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
53 package Bio::EnsEMBL::Variation::Study;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
54
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
55 use Bio::EnsEMBL::Storable;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
56 use Bio::EnsEMBL::Utils::Exception qw(throw warning);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
57 use Bio::EnsEMBL::Utils::Argument qw(rearrange);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
58
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
59 our @ISA = ('Bio::EnsEMBL::Storable');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
60
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
61
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
62 =head2 new
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
63
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
64 Arg [-dbID] :
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
65 see superclass constructor
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
66 Arg [-ADAPTOR] :
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
67 see superclass constructor
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
68 Arg [-NAME] :
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
69 name of the study
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
70 Arg [-DESCRIPTION] :
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
71 study description
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
72 Arg [-URL] :
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
73 string - url of the database/file where the data are stored
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
74 Arg [-EXTERNAL_REFERENCE] :
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
75 string - the pubmed/ids or project/study names
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
76 Arg [-TYPE] :
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
77 string - type of the study (e.g. GWAS)
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
78 Arg [-SOURCE] :
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
79 string - name of the source
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
80 Arg [-ASSOCIATE] :
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
81 array ref - list of the study objects associated with the current study
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
82
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
83 Example :
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
84
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
85 $study = Bio::EnsEMBL::Variation::Study->new
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
86 (-name => 'EGAS00000000001',
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
87 -external_reference => 'pubmed/17554300',
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
88 -url => 'http://www.ebi.ac.uk/ega/page.php?page=study&study=EGAS00000000001&cat=www.wtccc.studies.xml.ega&subcat=BD'
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
89 );
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
90
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
91 Description: Constructor. Instantiates a new Study object.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
92 Returntype : Bio::EnsEMBL::Variation::Study
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
93 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
94 Caller : general
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
95 Status : At Risk
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
96
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
97 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
98
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
99 sub new {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
100 my $caller = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
101 my $class = ref($caller) || $caller;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
102
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
103 my $self = $class->SUPER::new(@_);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
104 my ($dbID,$adaptor,$study_name,$study_description,$study_url,$external_reference,
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
105 $study_type,$source_name,$associate) =
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
106 rearrange([qw(dbID ADAPTOR NAME DESCRIPTION URL EXTERNAL_REFERENCE TYPE SOURCE ASSOCIATE)], @_);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
107
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
108 $self = {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
109 'dbID' => $dbID,
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
110 'adaptor' => $adaptor,
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
111 'name' => $study_name,
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
112 'description' => $study_description,
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
113 'url' => $study_url,
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
114 'external_reference' => $external_reference,
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
115 'type' => $study_type,
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
116 'source' => $source_name,
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
117 'associate' => $associate
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
118 };
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
119
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
120 return bless $self, $class;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
121 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
122
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
123
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
124 =head2 name
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
125
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
126 Arg [1] : string $newval (optional)
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
127 The new value to set the name attribute to
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
128 Example : $name = $obj->name()
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
129 Description: Getter/Setter for the name attribute
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
130 Returntype : string
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
131 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
132 Caller : general
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
133 Status : At Risk
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
134
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
135 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
136
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
137 sub name{
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
138 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
139 return $self->{'name'} = shift if(@_);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
140 return $self->{'name'};
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
141 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
142
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
143
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
144 =head2 description
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
145
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
146 Arg [1] : string $newval (optional)
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
147 The new value to set the description attribute to
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
148 Example : $name = $obj->description()
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
149 Description: Getter/Setter for the description attribute
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
150 Returntype : string
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
151 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
152 Caller : general
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
153 Status : At Risk
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
154
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
155 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
156
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
157 sub description{
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
158 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
159 return $self->{'description'} = shift if(@_);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
160 return $self->{'description'};
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
161 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
162
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
163
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
164 =head2 url
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
165
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
166 Arg [1] : string $newval (optional)
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
167 The new value to set the url attribute to
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
168 Example : $name = $obj->url()
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
169 Description: Getter/Setter for the url attribute
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
170 Returntype : string
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
171 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
172 Caller : general
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
173 Status : At Risk
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
174
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
175 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
176
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
177 sub url{
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
178 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
179 return $self->{'url'} = shift if(@_);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
180 return $self->{'url'};
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
181 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
182
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
183
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
184 =head2 external_reference
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
185
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
186 Arg [1] : string $newval (optional)
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
187 The new value to set the external_reference attribute to
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
188 Example : $name = $obj->external_reference()
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
189 Description: Getter/Setter for the external_reference attribute
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
190 Returntype : string
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
191 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
192 Caller : general
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
193 Status : At Risk
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
194
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
195 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
196
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
197 sub external_reference{
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
198 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
199 return $self->{'external_reference'} = shift if(@_);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
200 return $self->{'external_reference'};
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
201 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
202
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
203
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
204 =head2 type
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
205
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
206 Arg [1] : string $newval (optional)
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
207 The new value to set the type attribute to
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
208 Example : $name = $obj->type()
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
209 Description: Getter/Setter for the type attribute
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
210 Returntype : string
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
211 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
212 Caller : general
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
213 Status : At Risk
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
214
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
215 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
216
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
217 sub type{
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
218 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
219 return $self->{'type'} = shift if(@_);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
220 return $self->{'type'};
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
221 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
222
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
223
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
224 =head2 source
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
225
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
226 Arg [1] : string $newval (optional)
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
227 The new value to set the source attribute to
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
228 Example : $name = $obj->source()
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
229 Description: Getter/Setter for the source attribute
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
230 Returntype : string
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
231 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
232 Caller : general
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
233 Status : At Risk
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
234
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
235 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
236
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
237 sub source{
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
238 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
239 return $self->{'source'} = shift if(@_);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
240 return $self->{'source'};
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
241 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
242
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
243
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
244 =head2 associated_studies
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
245 Example : $name = $obj->associate_studies()
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
246 Description: Getter/Setter for the associated_studies attribute
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
247 Returntype : reference to list of Bio::EnsEMBL::Variation::Study
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
248 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
249 Caller : general
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
250 Status : At Risk
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
251
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
252 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
253
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
254 sub associated_studies{
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
255 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
256
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
257 my $results;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
258
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
259 if (defined($self->{'associate'}) && defined($self->{'adaptor'})) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
260 my $studya = $self->{'adaptor'}->db()->get_StudyAdaptor();
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
261 return $studya->fetch_all_by_dbID_list($self->{'associate'});
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
262 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
263 else {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
264 return [];
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
265 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
266 }