seqfeatures are just a location that may possibly have sublocations

cjfields · Feb 20, 2012 · b1ba37b · b1ba37b
1 parent 2caef8f
commit b1ba37b
Showing 1 changed file with 1 addition and 8 deletions.
diff --git a/lib/Biome/SeqFeature/Generic.pm b/lib/Biome/SeqFeature/Generic.pm
@@ -5,20 +5,13 @@ use namespace::clean -except => qw(meta);
 use List::MoreUtils qw(any);
 use Biome::Location::Simple;
 
+with 'Biome::Role::Location::Simple';
 with 'Biome::Role::Location::Split';
 with 'Biome::Role::Location::Locatable';
 with 'Biome::Role::SeqFeature';
 
-sub BUILD {
-    my ($self, $params) = @_;
-    if (any { exists $params->{$_} } qw(start end strand seq_id)) {
-        $self->add_sub_Location(Biome::Location::Simple->new(%$params));
-    }
-}
-
 __PACKAGE__->meta->make_immutable;
 
 1;
 
 __END__
-