comparison variant_effect_predictor/Bio/EnsEMBL/Variation/RegulationVariation.pm @ 0:1f6dce3d34e0

Uploaded

0:1f6dce3d34e0

=head1 LICENSE

 Copyright (c) 1999-2012 The European Bioinformatics Institute and
 Genome Research Limited.  All rights reserved.

 This software is distributed under a modified Apache license.
 For license details, please see

   http://www.ensembl.org/info/about/code_licence.html

=head1 CONTACT

 Please email comments or questions to the public Ensembl
 developers list at <[e-mail]>.

 Questions may also be sent to the Ensembl help desk at
 <[e-mail]>.

=cut

package Bio::EnsEMBL::Variation::RegulationVariation;

use strict;
use warnings;

use base qw(Bio::EnsEMBL::Variation::VariationFeatureOverlap);

sub feature_label {
    my ($self, $feature_label) = @_;
    $self->{feature_label} = $feature_label if $feature_label;
    return $self->{feature_label};
}

sub target_feature {
    # XXX: fetch the target feature
}

sub target_feature_stable_id {
    my ($self, $target_feature_stable_id) = @_;
    $self->{target_feature_stable_id} = $target_feature_stable_id if $target_feature_stable_id;
    return $self->{target_feature_stable_id};
}

1;