The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Devel::Events::Generator - An optional base role for event generators.

SYNOPSIS

package MyGen;
use Moose;

with qw/Devel::Events::Generator/;

sub whatever {
	my ( $self, @args ) = @_;

	# ...

	$self->send_event( @event );
}

DESCRIPTION

This convenience role provides a basic send_event method, useful for implementing generators.

ATTRIBUTES

handler

Accepts any object.

Required.

METHODS

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.