The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#TODO: shadow, shadow_color, shadow_offset

use strict;
use warnings;
use lib '../lib';
use SDL;
use SDLx::App;
use SDLx::Text;

my $app = SDLx::App->new();

my $normal = SDLx::Text->new;
my $shadow = SDLx::Text->new( shadow => 1 );

# other variations
my $shadow_off = SDLx::Text->new( shadow => 1, shadow_offset => 4 );
my $shadow_color = SDLx::Text->new( shadow => 1, shadow_color => [150, 150, 0] );

$app->add_show_handler( sub {
    $app->draw_rect( [0, 0, $app->w, $app->h], 0x00ffff );

    $normal->write_xy( $app, 10,  0, 'Hello, World!'  );
    $shadow->write_xy( $app, 10, 50, 'Hello, Shadow!' );

    $shadow_off->write_xy(   $app, 10, 100, 'Hello, Shadow with offset!' );
    $shadow_color->write_xy( $app, 10, 150, 'Hello, colored Shadow!'     );

    $app->update;
});

$app->run;