copy code over from wiggle_data to more properly handle the draw_cove…

…rage implementation
GMOD · Mar 20, 2012 · af47c12 · af47c12
1 parent 0d2e7b1
commit af47c12
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/lib/Bio/Graphics/Glyph/wiggle_xyplot.pm b/lib/Bio/Graphics/Glyph/wiggle_xyplot.pm
@@ -100,10 +100,15 @@ sub draw {
 
 sub draw_coverage {
     my $self    = shift;
-    my $feature = shift;
+    my $feature = shift;   
     my $array   = shift;
-
-    $array      = [split ',',$array] unless ref $array;
+    if (! $array || ref($array) ne 'ARRAY'){
+     unshift(@_,$array);
+     my @arr = (eval{$feature->get_tag_values('coverage')});
+     $array  = $arr[0];
+    } else {
+     $array   = [split ',',$array] unless ref $array;
+    }
     return unless @$array;
 
     my ($start,$end)    = $self->effective_bounds($feature);