Devel::Events::Generator - An optional base role for event generators.
package MyGen;
use Moose;
with qw/Devel::Events::Generator/;
sub whatever {
my ( $self, @args ) = @_;
# ...
$self->send_event( @event );
}
This convenience role provides a basic
"send_event" method, useful for implementing
generators.
- handler
- Accepts any object.
Required.
- send_event @event
- Delegates to "handler", calling the
method "new_event" on it.
The field "generator" with
the value of the generator object will be prepended.
Bugs may be submitted through the RT bug tracker
<https://rt.cpan.org/Public/Dist/Display.html?Name=Devel-Events> (or
bug-Devel-Events@rt.cpan.org <mailto:bug-Devel-Events@rt.cpan.org>).
XXXX XXX'XX (Yuval Kogman) <nothingmuch@woobling.org>
This software is copyright (c) 2007 by XXXX XXX'XX (Yuval Kogman).
This is free software; you can redistribute it and/or modify it
under the same terms as the Perl 5 programming language system itself.