Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
20 lines (14 sloc) 335 Bytes
#!/usr/bin/env perl
# Inherit Reflex without Moose. For people who don't like Moose.
use warnings;
use strict;
use lib qw(../lib);
package App;
use Reflex::Timer;
use base qw(Reflex::Timer);
sub on_timer_tick {
print "tick at ", scalar(localtime), "...\n";
exit App->new(interval => 1, auto_repeat => 1)->run_all();
Jump to Line
Something went wrong with that request. Please try again.