The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package AsyncAwhileClass;
use Moose;
extends 'Reflex::Base';

has name    => ( is => 'ro', isa => 'Str', default => 'awhile' );
has awhile  => ( is => 'ro', isa => 'Int', default => 1 );

with 'AsyncAwhileRole' => {
	cb => make_emitter(on_done => "done"),
};

1;