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

POD fix for method get_all_DAS_Features

parent d87acfea
No related branches found
No related tags found
No related merge requests found
......@@ -2994,6 +2994,18 @@ sub get_all_DASFactories {
return [ $self->adaptor()->db()->_each_DASFeatureFactory ];
}
sub get_all_DASFeatures_dsn {
my ($self, $source_type, $dsn) = @_;
if(!$self->adaptor()) {
warning("Cannot retrieve features without attached adaptor");
return [];
}
my @X = grep { $_->adaptor->dsn eq $dsn } $self->adaptor()->db()->_each_DASFeatureFactory;
return [ $X[0]->fetch_all_Features( $self, $source_type ) ];
}
=head2 get_all_DASFeatures
Arg [1] : none
......@@ -3009,19 +3021,6 @@ sub get_all_DASFactories {
Status : Stable
=cut
sub get_all_DASFeatures_dsn {
my ($self, $source_type, $dsn) = @_;
if(!$self->adaptor()) {
warning("Cannot retrieve features without attached adaptor");
return [];
}
my @X = grep { $_->adaptor->dsn eq $dsn } $self->adaptor()->db()->_each_DASFeatureFactory;
return [ $X[0]->fetch_all_Features( $self, $source_type ) ];
}
sub get_all_DAS_Features{
my ($self) = @_;
......
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