Permalink
Fetching contributors…
Cannot retrieve contributors at this time
26 lines (20 sloc) 424 Bytes
#!/usr/bin/env perl
# vim: ts=2 sw=2 noexpandtab
use warnings;
use strict;
use lib qw(../lib);
{
package App;
use Moose;
extends 'Reflex::Base';
use Reflex::Interval;
use Reflex::Trait::Watched qw(watches);
watches ticker => (
isa => 'Reflex::Interval',
setup => { interval => 1, auto_repeat => 1 },
);
sub on_ticker_tick {
print "tick at ", scalar(localtime), "...\n";
}
}
exit App->new()->run_all();