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

removed more deprecated methods

parent a64aa50e
......@@ -154,12 +154,4 @@ sub remove {
return $self->{'_primary_adaptor'}->remove($feature);
}
1;
......@@ -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
Arg [1] : list of arbitrary args @args
......
......@@ -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;
......@@ -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
Arg [1] : list of arbitrary args @args
......
......@@ -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
Arg [1] : Bio::EnsEMBL::RawContig $contig
......
......@@ -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;
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