Skip to content
Snippets Groups Projects
Commit 1944f890 authored by Kieron Taylor's avatar Kieron Taylor :angry:
Browse files

Pod section moved closer to method it refers to

parent 7d6992d3
No related branches found
No related tags found
No related merge requests found
......@@ -167,6 +167,21 @@ sub fetch_all_by_chr_name {
}
sub fetch_all_by_chr_band {
my ($self, $chr_name, $band) = @_;
throw('Chromosome name argument expected') if(!$chr_name);
throw('Band argument expected') if(!$band);
my $slice = $self->db->get_SliceAdaptor->fetch_by_region(undef,
$chr_name);
my $constraint = "k.band like '$band%'";
return $self->fetch_all_by_Slice_constraint($slice,$constraint);
}
=head2 fetch_by_chr_band
Arg [1] : string $chr_name
......@@ -186,21 +201,6 @@ sub fetch_all_by_chr_name {
=cut
sub fetch_all_by_chr_band {
my ($self, $chr_name, $band) = @_;
throw('Chromosome name argument expected') if(!$chr_name);
throw('Band argument expected') if(!$band);
my $slice = $self->db->get_SliceAdaptor->fetch_by_region(undef,
$chr_name);
my $constraint = "k.band like '$band%'";
return $self->fetch_all_by_Slice_constraint($slice,$constraint);
}
sub fetch_by_chr_band {
my $self = shift;
deprecate('Use fetch_all_by_chr_band instead.');
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment