[Bio] / FigKernelPackages / Overlap.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/Overlap.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Tue Jul 26 20:10:59 2005 UTC revision 1.2, Sun Jul 31 16:59:31 2005 UTC
# Line 140  Line 140 
140  =item loc0, loc1  =item loc0, loc1
141    
142  Location objects representing the locations for which overlap information is desired.  Location objects representing the locations for which overlap information is desired.
143    These may be B<BasicLocation>s or B<FullLocation>s.
144    
145  =item RETURN  =item RETURN
146    
# Line 157  Line 158 
158      my ($loc0, $loc1) = @_;      my ($loc0, $loc1) = @_;
159      # Declare the return variables.      # Declare the return variables.
160      my ($type, $len) = (undef, 0);      my ($type, $len) = (undef, 0);
161        # If these are full locations, get the bounds.
162        if ($loc0->isa('FullLocation')) {
163            ($loc0, undef, undef) = $loc0->GetBounds();
164        }
165        if ($loc1->isa('FullLocation')) {
166            ($loc1, undef, undef) = $loc1->GetBounds();
167        }
168      # Both locations must belong to the same contig.      # Both locations must belong to the same contig.
169      if ($loc0->Contig eq $loc1->Contig) {      if ($loc0->Contig eq $loc1->Contig) {
170          # Sort the locations.          # Sort the locations.

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3