Arrows in both directions

strange_arrow.pl

#!/usr/bin/perl 

use Bio::Graphics;

$panel = Bio::Graphics::Panel->new(
                -length    => $length,
                -width     => $width,
                -pad_left  => 10,
                -pad_right => 10,
                -key_style => 'between',
                -start => $min,
                -end => $max,
                -spacing   => 10,
               );

my $track = $panel->add_track(
    -glyph              => 'transcript2',
    -key                => 'key',
    -fgcolor            => 'black',
    -bgcolor            => 'purple',
    -connector          => 'dashed',
    -connector_color    => '#666666',
    -font2color         => 'red',
    -strand_arrow       => 1,
    -label              => 1,
    -bump	        => +1,
);

my @features = ();

$sth_edges = $dbh->prepare($sql_edges);
$sth_edges->execute();

my $this_strand = 0;
while (my($name,$strand,$start,$end) = $sth_edges->fetchrow_array()) {
    my $feature = Bio::SeqFeature::Generic->new(
        -display_name => $name,
        -strand       => $strand,
        -start        => $start,
        -end          => $end
       );
    
    push(@features,$feature);
}

my $feature2 = Bio::Graphics::Feature->new(
            -segments=>[@features],
            -display_name => 'ID: '.$pattern_id,
            -type=>'gene');

$track->add_feature($feature2);