$Bio::EnsEMBL::Utils::Converter::ens_bio_featurePair::VERSION
=
'112.0.0_58'
;
$Bio::EnsEMBL::Utils::Converter::ens_bio_featurePair::VERSION
=
'112.0.058'
;
@ISA
=
qw(Bio::EnsEMBL::Utils::Converter::ens_bio)
;
sub
_convert_single {
my
(
$self
,
@args
) =
@_
;
}
sub
_convert_single_repeatFeature {
my
(
$self
,
$ens_repeat
) =
@_
;
my
$feature1
= new Bio::SeqFeature::Generic(
-start
=>
$ens_repeat
->start,
-end
=>
$ens_repeat
->end,
-strand
=>
$ens_repeat
->strand,
-source_tag
=>
$ens_repeat
->source_tag
-primary_tag
=>
$ens_repeat
->repeat_class,
-seq_id
=>
$ens_repeat
->seqname
);
my
(
$start2
,
$end2
);
if
(
$ens_repeat
->strand == 1){
$start2
=
$ens_repeat
->hstart;
$end2
=
$ens_repeat
->hend;
}
elsif
(
$ens_repeat
->strand == -1){
$start2
=
$ens_repeat
->hend;
$end2
=
$ens_repeat
->hstart;
}
else
{
$self
->throw(
"strand cannot be out of range (1, -1)"
);
}
my
$feature2
= new Bio::SeqFeature::Generic(
-start
=>
$start2
,
-end
=>
$end2
,
-source_tag
=>
$ens_repeat
->source_tag,
-primary_tag
=>
$ens_repeat
->repeat_class,
-seq_id
=>
$ens_repeat
->repeat_name
);
my
$output_module
=
$self
->out;
eval
"require $output_module"
;
return
new Bio::SeqFeature::FeaturePair(
-feature1
=>
$feature1
,
-feature2
=>
$feature2
);
}
1;