43
43
Bioperl modules. Send your comments and suggestions preferably to
44
44
the Bioperl mailing list. Your participation is much appreciated.
46
bioperl-l@bioperl.org - General discussion
47
http://bioperl.org/MailList.shtml - About the mailing lists
46
bioperl-l@bioperl.org - General discussion
47
http://bioperl.org/wiki/Mailing_lists - About the mailing lists
49
49
=head2 Reporting Bugs
51
51
Report bugs to the Bioperl bug tracking system to help us keep track
52
of the bugs and their resolution. Bug reports can be submitted via
52
of the bugs and their resolution. Bug reports can be submitted via the
55
bioperl-bugs@bioperl.org
56
http://bugzilla.bioperl.org/
55
http://bugzilla.open-bio.org/
58
57
=head1 AUTHOR - Chad Matsalla
62
61
=head1 CONTRIBUTORS
64
Heikki Lehvaslaiho heikki@ebi.ac.uk
63
Heikki Lehvaslaiho heikki-at-bioperl-dot-org
65
64
Lincoln Stein lstein@cshl.org
66
65
Jason Stajich jason@bioperl.org
66
Sendu Bala bix@sendu.me.uk
140
=head2 Bio::Map::Marker methods
147
Usage : my $position = $mappable->position($map); OR
148
$mappable->position($map,$position); OR
149
Function: Get/Set the Bio::Map::PositionI for a mappable element
151
Returns : Bio::Map::PositionI
152
Args : $map =Bio::Map::MapI # Map we are talking about
153
$position = Bio::Map::PositionI # Position we want to set
156
=head2 name($new_name)
158
Title : name($new_name)
159
Usage : $o_usat->name($new_name) _or_
160
my $name = $o_usat->name()
161
Function: Get/Set the name for this Microsatellite
162
Returns : A scalar representing the current name of this Microsatellite
163
Args : If provided, the current name of this Microsatellite
164
will be set to $new_name.
166
=head2 motif($new_motif)
168
Title : motif($new_motif)
169
Usage : my $motif = $o_usat->motif($new_motif) _or_
170
my $motif = $o_usat->motif()
171
Function: Get/Set the repeat motif for this Microsatellite
140
Usage : $o_usat->motif($new_motif);
141
my $motif = $o_usat->motif();
142
Function: Get/Set the repeat motif for this Microsatellite.
172
143
Returns : A scalar representing the current repeat motif of this
174
Args : If provided, the current repeat motif of this Microsatellite
175
will be set to $new_motif.
145
Args : none to get, OR string to set
184
154
return $self->{'_motif'};
187
=head2 sequence($new_sequence)
189
Title : sequence($new_sequence)
190
Usage : my $sequence = $o_usat->sequence($new_sequence) _or_
191
my $sequence = $o_usat->sequence()
192
Function: Get/Set the sequence for this Microsatellite
160
Usage : $o_usat->sequence($new_sequence);
161
my $sequence = $o_usat->sequence();
162
Function: Get/Set the sequence for this Microsatellite.
193
163
Returns : A scalar representing the current sequence of this
195
Args : If provided, the current sequence of this Microsatellite
196
will be set to $new_sequence.
165
Args : none to get, OR string to set
205
174
return $self->{'_sequence'};
208
=head2 repeats($new_repeats)
210
Title : repeats($new_repeats)
211
Usage : my $repeats = $o_usat->repeats($new_repeats) _or_
212
my $repeats = $o_usat->repeats()
213
Function: Get/Set the repeat repeats for this Microsatellite
180
Usage : $o_usat->repeats($new_repeats);
181
my $repeats = $o_usat->repeats()
182
Function: Get/Set the repeat repeats for this Microsatellite.
214
183
Returns : A scalar representing the current number of repeats of this
216
Args : If provided, the current number of repeats of this
217
Microsatellite will be set to $new_repeats.
185
Args : none to get, OR int to set
226
194
return $self->{'_repeats'};
229
=head2 repeat_start_position($new_repeat_start_position)
197
=head2 repeat_start_position
231
Title : repeat_start_position($new_repeat_start_position)
232
Usage : my $repeat_start_position =
233
$o_usat->repeat_start_position($new_repeat_start_position) _or_
234
my $repeat_start_position = $o_usat->repeat_start_position()
199
Title : repeat_start_position
200
Usage : $o_usat->repeat_start_position($new_repeat_start_position);
201
my $repeat_start_position = $o_usat->repeat_start_position();
235
202
Function: Get/Set the repeat repeat_start_position for this
237
204
Returns : A scalar representing the repeat start position for this
239
Args : If provided, the current repeat start position of this
240
Microsatellite will be set to $new_repeat_start_position.
241
This method will also try to set the repeat end position. This
242
depends on having information for the motif and the number of
243
repeats. If you want to use methods like get_trailing_flank or
244
get_leading flank, be careful to include the right information.
206
Args : none to get, OR string to set
207
This method will also try to set the repeat end position. This
208
depends on having information for the motif and the number of
209
repeats. If you want to use methods like get_trailing_flank or
210
get_leading flank, be careful to include the right information.
254
220
return $self->{'_repeat_start_position'};
257
=head2 repeat_end_position($value)
223
=head2 repeat_end_position
259
Title : repeat_end_position($set)
260
Usage : $new_repeat_end_position =
261
$o_usat->repeat_end_position("set"); _or_
262
$new_repeat_end_position =
263
$o_usat->repeat_end_position($value); _or_
264
$current_repeat_end_position = $o_usat->repeat_end_position();
265
Function: get/set the end position of the repeat in this sequence
225
Title : repeat_end_position
226
Usage : $o_usat->repeat_end_position("set");
227
$o_usat->repeat_end_position($value);
228
$current_repeat_end_position = $o_usat->repeat_end_position();
229
Function: Get/set the end position of the repeat in this sequence.
266
230
Returns : A scalar representing the base index of the end of the
267
repeat in this Microsatellite. The first base in the sequence
231
repeat in this Microsatellite. The first base in the sequence
269
233
Args : A scalar representing a value, the string "set", or no
270
argument (see Notes).
234
argument (see Notes).
271
235
Notes : If you do not provide an argument to this method, the current
272
end position of the repeat in this Microsatellite will be
274
If you provide the string "set" to this method it will set the
275
end position based on the start position, the length of the
276
motif, and the nuimber of repeats.
277
If you specify a value the current end position of the repeat
278
will be set to that value. This is a really bad idea. Don't do
236
end position of the repeat in this Microsatellite will be
238
If you provide the string "set" to this method it will set the
239
end position based on the start position, the length of the
240
motif, and the number of repeats.
241
If you specify a value the current end position of the repeat
242
will be set to that value. This is a really bad idea. Don't do
284
247
sub repeat_end_position {
285
248
my ($self,$caller) = @_;
286
249
if( defined $caller ) {
310
273
my ($self,@args) = @_;
311
$self->warn("equals is not yet implemented in ".
312
ref($self)." yet. Check back real soon!");
274
$self->throw_not_implemented();
317
279
Title : less_than
318
Usage : if( $mappable->less_than($m2) ) ...
280
Usage : if ($mappable->less_than($m2)) {...}
319
281
Function: Tests if a position is less than another position
320
282
Returns : boolean
321
283
Args : Bio::Map::MappableI
326
288
my ($self,@args) = @_;
327
$self->warn("less_then is not yet implemented in ".
328
ref($self)." yet. Check back real soon!");
289
$self->throw_not_implemented();
331
292
=head2 greater_than
333
294
Title : greater_than
334
Usage : if( $mappable->greater_than($m2) ) ...
295
Usage : if ($mappable->greater_than($m2)) {...}
335
296
Function: Tests if position is greater than another position
336
297
Returns : boolean
337
298
Args : Bio::Map::MappableI
341
302
sub greater_than {
342
303
my ($self,@args) = @_;
343
$self->warn("greater_then is not yet implemented in ".
344
ref($self)." yet. Check back real soon!");
304
$self->throw_not_implemented();
347
=head2 get_leading_flank()
307
=head2 get_leading_flank
349
Title : get_leading_flank()
309
Title : get_leading_flank
350
310
Usage : $leading_sequence = $o_usat->get_leading_flank();
351
311
Returns : A scalar representing the sequence before the repeats in this
357
317
sub get_leading_flank {
358
318
my $self = shift;
359
319
return substr $self->sequence(),0,$self->repeat_start_position-1;
363
=head2 get_trailing_flank()
322
=head2 get_trailing_flank
365
Title : get_trailing_flank()
324
Title : get_trailing_flank
366
325
Usage : $trailing_flank = $o_usat->get_trailing_flank();
367
326
Returns : A scalar representing the sequence after the repeats in this