6 die "usage: $0\n" if in($ARGV[0], qw/ -? -h --help/);
8 SDL::Init(SDL_INIT_EVERYTHING());
10 print STDERR "Waiting 4 seconds\n";
13 $a = new SDL::Timer sub { my $timer = shift;
14 print STDERR "Timer A: $$timer{-times} runs\n" },
18 $b = new SDL::Timer sub { print STDERR "Timer B: ", ++$i,"\n" }, -delay => 3000;
20 $c = new SDL::Timer sub { print STDERR "Timer C: restarting Timer A\n"; $a->run(1000,10) },
26 print STDERR "Cleaning up...\n";