annotate variant_effect_predictor/Bio/Expression/FeatureGroup.pm @ 3:d30fa12e4cc5 default tip

Merge heads 2:a5976b2dce6f and 1:09613ce8151e which were created as a result of a recently fixed bug.
author devteam <devteam@galaxyproject.org>
date Mon, 13 Jan 2014 10:38:30 -0500
parents 1f6dce3d34e0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
1 # $Id: FeatureGroup.pm,v 1.1.2.2 2003/09/17 09:19:21 allenday Exp $
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
2 # BioPerl module for Bio::Expression::FeatureGroup
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
3 #
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
4 # Copyright Allen Day <allenday@ucla.edu>, Stanley Nelson <snelson@ucla.edu>
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
5 # Human Genetics, UCLA Medical School, University of California, Los Angeles
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
6
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
7 # POD documentation - main docs before the code
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
8
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
9 =head1 NAME
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
10
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
11 Bio::Expression::FeatureGroup - a set of DNA/RNA features. ISA
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
12 Bio::Expression::FeatureI
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
13
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
14 =head1 SYNOPSIS
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
15
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
16 #
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
17
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
18 =head1 DESCRIPTION
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
19
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
20 A set of DNA/RNA features.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
21
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
22 =head1 FEEDBACK
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
23
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
24 =head2 Mailing Lists
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
25
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
26 User feedback is an integral part of the evolution of this and other
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
27 Bioperl modules. Send your comments and suggestions preferably to one
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
28 of the Bioperl mailing lists. Your participation is much appreciated.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
29
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
30 bioperl-l@bioperl.org - General discussion
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
31 http://bioperl.org/MailList.shtml - About the mailing lists
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
32
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
33 =head2 Reporting Bugs
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
34
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
35 Report bugs to the Bioperl bug tracking system to help us keep track
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
36 the bugs and their resolution.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
37 Bug reports can be submitted via email or the web:
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
38
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
39 bioperl-bugs@bio.perl.org
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
40 http://bugzilla.bioperl.org/
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
41
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
42 =head1 AUTHOR
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
43
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
44 Allen Day E<lt>allenday@ucla.eduE<gt>
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
45
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
46 =head1 APPENDIX
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
47
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
48 The rest of the documentation details each of the object
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
49 methods. Internal methods are usually preceded with a _
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
50
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
51 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
52
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
53 # Let the code begin...
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
54 package Bio::Expression::FeatureGroup;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
55
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
56 use strict;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
57
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
58 use base qw(Bio::Root::Root Bio::Expression::FeatureI);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
59 use vars qw($DEBUG);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
60
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
61 =head2 new
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
62
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
63 Title : new
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
64 Usage : $featuregroup = Bio::Expression::FeatureGroup->new(%args);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
65 Function: create a new featuregroup object
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
66 Returns : a Bio::Expression::FeatureGroup object
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
67 Args : an optional hash of parameters to be used in initialization:
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
68 -id -- the featuregroup ID
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
69 -type -- the featuregroup type
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
70
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
71 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
72
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
73 sub new {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
74 my($class,@args) = @_;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
75 my $self = bless {}, $class;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
76 $self->_initialize(@args);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
77 return $self;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
78 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
79
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
80 =head2 _initialize
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
81
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
82 Title : _initialize
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
83 Usage : $featuregroup->_initialize(@args);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
84 Function: initialize the featuregroup object
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
85 Returns : nothing
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
86 Args : @args
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
87
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
88 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
89
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
90 sub _initialize{
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
91 my ($self,@args) = @_;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
92 my %param = @args;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
93
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
94 $self->type($param{-type});
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
95 $self->id($param{-id} );
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
96
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
97 $self->SUPER::_initialize(@args);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
98 $DEBUG = 1 if( ! defined $DEBUG && $self->verbose > 0);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
99 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
100
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
101 =head2 type
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
102
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
103 Title : type
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
104 Usage : $featuregroup->type($optional_arg);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
105 Function: get/set the type of the featuregroup
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
106 Comments: this is probably going to be a string like
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
107 "quality control", "mismatch blah blah", etc.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
108 Returns : the featuregroup type
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
109 Args : a new value for the featuregroup type
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
110
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
111 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
112
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
113 sub type {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
114 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
115 $self->{type} = shift if @_;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
116 return $self->{type};
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
117 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
118
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
119 =head2 id
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
120
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
121 Title : id
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
122 Usage : $featuregroup->id($optional_arg);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
123 Function: get/set the id of the featuregroup
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
124 Returns : the featuregroup id
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
125 Args : a new value for the featuregroup id
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
126
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
127 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
128
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
129 sub id {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
130 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
131 $self->{id} = shift if @_;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
132 return $self->{id};
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
133 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
134
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
135
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
136 =head2 standard_deviation
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
137
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
138 Title : standard_deviation
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
139 Usage : $featuregroup->standard_deviation($optional_arg);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
140 Function: get/set the standard deviation of the featuregroup value
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
141 Returns : the featuregroup standard deviation
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
142 Args : a new value for the featuregroup standard deviation
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
143 Notes : this method does no calculation, it merely holds a value
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
144
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
145 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
146
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
147 sub standard_deviation {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
148 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
149 $self->{standard_deviation} = shift if @_;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
150 return $self->{standard_deviation};
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
151 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
152
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
153 =head2 quantitation
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
154
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
155 Title : quantitation
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
156 Usage : $featuregroup->quantitation($optional_arg);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
157 Function: get/set the quantitation of the featuregroup
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
158 Returns : the featuregroup's quantitated value
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
159 Args : a new value for the featuregroup's quantitated value
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
160 Notes : this method does no calculation, it merely holds a value
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
161
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
162 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
163
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
164 sub quantitation {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
165 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
166 $self->{quantitation} = shift if @_;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
167 return $self->{quantitation};
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
168 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
169
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
170 =head2 quantitation_units
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
171
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
172 Title : quantitation_units
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
173 Usage : $featuregroup->quantitation_units($optional_arg);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
174 Function: get/set the quantitation units of the featuregroup
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
175 Returns : the featuregroup's quantitated value units
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
176 Args : a new value for the featuregroup's quantitated value units
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
177
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
178 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
179
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
180 sub quantitation_units {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
181 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
182 $self->{quantitation_units} = shift if @_;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
183 return $self->{quantitation_units};
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
184 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
185
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
186 =head2 presence
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
187
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
188 Title : presence
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
189 Usage : $featuregroup->presence($optional_arg);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
190 Function: get/set the presence call of the featuregroup
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
191 Returns : the featuregroup's presence call
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
192 Args : a new value for the featuregroup's presence call
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
193
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
194 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
195
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
196 sub presence {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
197 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
198 $self->{presence} = shift if @_;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
199 return $self->{presence};
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
200 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
201
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
202 =head2 add_feature
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
203
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
204 Title : add_feature
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
205 Usage : $feature_copy = $featuregroup->add_feature($feature);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
206 Function: add a feature to the featuregroup
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
207 Returns : see this_feature()
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
208 Args : a Bio::Expression::FeatureI compliant object
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
209
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
210 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
211
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
212 sub add_feature {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
213 my($self,@args) = @_;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
214 foreach my $feature (@args){
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
215 $self->throw('Features must be Bio::Expression::FeatureI compliant') unless $feature->isa('Bio::Expression::FeatureI');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
216 push @{$self->{features}}, $feature;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
217 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
218
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
219 return $self->{features} ? $self->{features}->[-1] : undef;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
220 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
221
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
222 =head2 this_feature
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
223
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
224 Title : this_feature
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
225 Usage : $feature = $featuregroup->this_feature
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
226 Function: access the last feature added to the featuregroup
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
227 Returns : the last feature added to the featuregroup
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
228 Args : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
229
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
230 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
231
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
232 sub this_feature {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
233 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
234 return $self->{features} ? $self->{features}->[-1] : undef;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
235 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
236
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
237 =head2 each_feature
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
238
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
239 Title : each_feature
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
240 Usage : @features = $featuregroup->each_feature
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
241 Function: returns a list of Bio::Expression::FeatureI compliant
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
242 objects
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
243 Returns : a list of objects
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
244 Args : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
245
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
246 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
247
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
248 sub each_feature {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
249 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
250 return @{$self->{features}} if defined($self->{features});
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
251 return ();
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
252 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
253
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
254 =head2 each_feature_quantitation
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
255
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
256 Title : each_feature_quantitation
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
257 Usage : @featurequantitions = $featuregroup->each_feature_quantitation;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
258 Function: returns an list of quantitations of the features in the featuregroup
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
259 Returns : a list of numeric values
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
260 Args : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
261
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
262 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
263
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
264 sub each_feature_quantitation {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
265 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
266 my @values = ();
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
267 push @values, $_->value foreach $self->each_feature;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
268 return @values;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
269 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
270
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
271 =head2 is_qc
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
272
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
273 Title : is_qc
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
274 Usage : $is_quality_control = $featuregroup->is_qc
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
275 Function: get/set whether or not the featuregroup is used for quality control purposes
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
276 Returns : a boolean (equivalent)
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
277 Args : a new value
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
278
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
279 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
280
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
281 sub is_qc {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
282 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
283 $self->{is_qc} = shift if defined @_;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
284 return $self->{is_qc};
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
285 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
286
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
287 1;