my ($self, $exon, $ens_exon) = @_;
unless($exon->has_tag('supporting_feature')){
return;
}
my ($sf) = $exon->each_tag_value('supporting_feature');
unless(defined $sf){
$self->warn("no supporting feature is attached in exon");
return;
}
# $self->{_bio_ens_seqFeature}->contig($self->contig);
$self->{_bio_ens_seqFeature}->analysis($self->analysis);
my $ens_f1 = $self->{_bio_ens_seqFeature}->_convert_single($sf->feature1);
my $ens_f2 = $self->{_bio_ens_seqFeature}->_convert_single($sf->feature2);
$self->{_bio_ens_featurePair}->contig($self->contig);
$self->{_bio_ens_featurePair}->analysis($self->analysis);
my $ens_sf = $self->{_bio_ens_featurePair}->_convert_single($sf);
my @align_feautre_args = (
-feature1 => $ens_f1,
-feature2 => $ens_f2,
-features => [$ens_sf]
);
my $ens_supporting_feature =
$ens_exon->add_supporting_features($ens_supporting_feature);
}