Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

26 lines (20 sloc) 0.431 kB
#!/usr/bin/env perl
use warnings;
use strict;
use lib qw(../lib);
{
package App;
use Moose;
extends 'Reflex::Object';
use Reflex::Timer;
has ticker => (
isa => 'Reflex::Timer',
is => 'rw',
setup => { interval => 1, auto_repeat => 1 },
traits => [ 'Reflex::Trait::Observer' ],
);
sub on_ticker_tick {
print "tick at ", scalar(localtime), "...\n";
}
}
exit App->new()->run_all();
Jump to Line
Something went wrong with that request. Please try again.