SDL_gfx_primitives support has not been compiled at /usr/local/lib/perl/5.14.2/SDLx/Surface.pm line 245.
	SDLx::Surface::draw_line(SDLx::App=SCALAR(0x8d455f8), ARRAY(0x8d4560c), ARRAY(0x8d45698), ARRAY(0x8d45710)) called at Documents/dev.pl line 9

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use SDL;
use SDLx::App;

my $app=SDLx::App->new(width=>400,height=>400);
$app->draw_line([200, 20],[20,200],[255, 255, 0, 255]);

$app->update;
sleep(5);