hyper isn't working for now, subbing in loop

cjfields · Aug 16, 2015 · e5b5268 · e5b5268
1 parent 776ce39
commit e5b5268
Showing 1 changed file with 10 additions and 7 deletions.
diff --git a/lib/Bio/Role/Range.pm6 b/lib/Bio/Role/Range.pm6
@@ -87,13 +87,16 @@ role Bio::Role::Range {
     method union (*@ranges, RangeTest :$test = 'ignore') {
         my $union_strand = self.strand;  # Strand for the union range object.
 
-        # beware the hyperoperator!
-        $union_strand = 0 if any(@ranges».strand) != $union_strand;
-
-        @ranges.unshift(self);
-
-        my $max = @ranges.max: { $^a.end <=> $^b.end };
-        my $min = @ranges.min: { $^a.start <=> $^b.start };
+        #$union_strand = 0 if any(@ranges».strand) != $union_strand;
+        for @ranges -> $range {
+            if $range.strand != $union_strand {
+                $union_strand = 0;
+                last;    
+            }
+        }
+
+        my $max = (@ranges, self).flat.max: { $^a.end <=> $^b.end };
+        my $min = (@ranges, self).flat.min: { $^a.start <=> $^b.start };
 
         # what if the end is undef...
         return self.new(start  => $min.start,