From BioPerl

Contents 1 Examples 1.1 Updating the sub-locations in a Split location

---

Pdoc documentation: Bio::Location::Split	CPAN documentation: Bio::Location::Split

---

Examples

Updating the sub-locations in a Split location

#!/usr/bin/perl -w
use Bio::Location::Split;
use Bio::Location::Simple;
 
my $split = Bio::Location::Split->new;
$split->add_sub_Location(Bio::Location::Simple->new(-start => 1, -end => 20,
						    -strand => 1));
$split->add_sub_Location(Bio::Location::Simple->new(-start => 25, -end => 35,
						    -strand => 1));
 
print $split->to_FTstring(),"\n";
for my $subloc ( $split->each_Location ) {
  $subloc->start($subloc->start + 1001);
  $subloc->end($subloc->end + 1001);
}
 
print $split->to_FTstring(),"\n";