Permalink
Fetching contributors…
Cannot retrieve contributors at this time
24 lines (17 sloc) 480 Bytes
#!/usr/bin/env perl
# vim: ts=2 sw=2 noexpandtab
# This is pretty close to the final syntax.
# TODO - Provide a way to next() on multiple objects at once.
# TODO - Clean out all previous promise-like examples.
use warnings;
use strict;
use lib qw(../lib);
use Reflex::Interval;
use ExampleHelpers qw(eg_say);
my $t = Reflex::Interval->new(
interval => 1,
auto_repeat => 1,
);
while (my $event = $t->next()) {
eg_say("next() returned an event (", $event->_name(), ")");
}