#!/usr/bin/perl

use strict;
use SDL::App;
use SDL::Color;

my $app = SDL::App->new(
  -height => 640,
  -width  => 480,
  -depth  => 16,
  -title  => 'My SDL Program',
);

my $color = SDL::Color->new(
  -r => 0x00,
  -g => 0x00,
  -b => 0xff,
);

my $rect = SDL::Rect->new(
  -height => 100,
  -width  => 100,
  -x      => 270,
  -y      => 390,
);

$app->fill( $rect, $color );
$app->update( $rect );

my $actions = {
  SDL_QUIT => sub { exit },
  SDL_KEYDOWN => sub { print "Key pressed\n" }
};

$app->loop($actions);