Permalink
Fetching contributors…
Cannot retrieve contributors at this time
23 lines (18 sloc) 323 Bytes
#!/usr/bin/env perl
# vim: ts=2 sw=2 noexpandtab
use warnings;
use strict;
use lib qw(./lib ../lib ./eg);
{
package Foo;
use Moose;
extends 'Reflex::Timeout';
use ExampleHelpers qw(eg_say);
sub on_done {
eg_say "custom got timeout";
$_[0]->reset();
}
}
my $to = Foo->new(delay => 1);
Reflex->run_all();
exit;