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