Commit 6ad9f7a8 authored by Graham McVicker's avatar Graham McVicker
Browse files

removed more deprecated methods

parent a64aa50e
...@@ -154,12 +154,4 @@ sub remove { ...@@ -154,12 +154,4 @@ sub remove {
return $self->{'_primary_adaptor'}->remove($feature); return $self->{'_primary_adaptor'}->remove($feature);
} }
1;
...@@ -74,28 +74,6 @@ sub fetch_all_by_Slice { ...@@ -74,28 +74,6 @@ sub fetch_all_by_Slice {
=head2 fetch_by_Slice
Arg [1] : none
Example : none
Description: DEPRECATED use fetch_all_by_Slice instead
Returntype : none
Exceptions : none
Caller : none
=cut
sub fetch_by_Slice {
my ($self, @args) = @_;
$self->warn("fetch_by_Slice has been renamed fetch_all_by_Slice\n" . caller);
return $self->fetch_all_by_Slice(@args);
}
=head2 fetch_by_transcript_stable_id =head2 fetch_by_transcript_stable_id
Arg [1] : list of arbitrary args @args Arg [1] : list of arbitrary args @args
......
...@@ -68,24 +68,5 @@ sub fetch_all_by_Slice { ...@@ -68,24 +68,5 @@ sub fetch_all_by_Slice {
} }
=head2 fetch_by_Slice
Arg [1] : none
Example : none
Description: DEPRECATED use fetch_all_by_Slice instead
Returntype : none
Exceptions : none
Caller : none
=cut
sub fetch_by_Slice {
my ($self, @args) = @_;
$self->warn("fetch_by_Slice has been renamed fetch_all_by_Slice\n" . caller);
return $self->fetch_all_by_Slice(@args);
}
1; 1;
...@@ -76,28 +76,6 @@ sub fetch_all_by_Slice { ...@@ -76,28 +76,6 @@ sub fetch_all_by_Slice {
} }
=head2 fetch_by_Slice
Arg [1] : none
Example : none
Description: DEPRECATED use fetch_all_by_Slice instead
Returntype : none
Exceptions : none
Caller : none
=cut
sub fetch_by_Slice {
my ($self, @args) = @_;
$self->warn("fetch_by_Slice has been renamed fetch_all_by_Slice\n" . caller);
return $self->fetch_all_by_Slice(@args);
}
=head2 fetch_by_SNP_id =head2 fetch_by_SNP_id
Arg [1] : list of arbitrary args @args Arg [1] : list of arbitrary args @args
......
...@@ -535,47 +535,6 @@ sub deleteObj { ...@@ -535,47 +535,6 @@ sub deleteObj {
=head2 fetch_by_clone
Arg [1] : none
Example : none
Description: DEPRECATED use fetch_all_by_Clone instead
Returntype : none
Exceptions : none
Caller : none
=cut
sub fetch_by_clone {
my ($self, @args) = @_;
print STDERR "fetch_by_clone has been renamed fetch_all_by_Clone\n" . caller;
return $self->fetch_by_Clone(@args);
}
=head2 fetch_by_Clone
Arg [1] : none
Example : none
Description: DEPRECATED use fetch_all_by_Clone instead
Returntype : none
Exceptions : none
Caller : none
=cut
sub fetch_by_Clone {
my ($self, @args) = @_;
$self->warn("fetch_by_Clone has been renamed fetch_all_by_Clone\n" . caller);
return $self->fetch_all_by_Clone(@args);
}
=head2 remove =head2 remove
Arg [1] : Bio::EnsEMBL::RawContig $contig Arg [1] : Bio::EnsEMBL::RawContig $contig
......
...@@ -305,31 +305,4 @@ sub _reverse_comp { ...@@ -305,31 +305,4 @@ sub _reverse_comp {
} }
=head2 fetch_by_Contig_start_end_strand
Arg [1] : none
Example : none
Description: DEPRECATED use fetch_by_RawContig_start_end_strand instead
Returntype : none
Exceptions : none
Caller : none
=cut
sub fetch_by_Contig_start_end_strand {
my ($self, @args) = @_;
$self->warn("fetch_by_Contig_start_end_strand has been renamed fetch_by_RawContig_start_end_strand\n" . caller);
return $self->fetch_by_RawContig_start_end_strand(@args);
}
1; 1;
Markdown is supported
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