#!/usr/bin/env perl
use warnings;
use strict;
my $aa;
{
package Class;
use Moose;
extends 'Reflex::Base';
sub method {
print "AfterAwhileClass called a method!\n";
$aa = undef;
}
}
use AfterAwhileClass;
use Reflex::Callbacks qw(cb_method);
my $object = Class->new();
$aa = AfterAwhileClass->new(
awhile => 1,
on_done => cb_method($object, "method"),
);
$aa->run_all();