Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

33 lines (24 sloc) 0.54 kB
#!/usr/bin/env perl
# Use Reflex without Moose. For people who don't like Moose.
use warnings;
use strict;
use lib qw(../lib);
{
package App;
use Reflex::Base;
use Reflex::Timer;
use Reflex::Callbacks qw(cb_role);
use base qw(Reflex::Base);
sub BUILD {
my $self = shift;
$self->{ticker} = Reflex::Timer->new(
interval => 1,
auto_repeat => 1,
);
$self->watch($self->{ticker}, cb_role($self, "ticker"));
}
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.