Devel::Events::Generator::ClassPublisher - Relay events from Class::Publisher

	use Devel::Events::Generator::ClassPublisher;

	my $gen = Devel::Events::Generator::ClassPublisher->new(
		handler => $handler,
	);

	$gen->subscribe( $publisher, $event );

This event generator can glue events from Class::Publisher into the Devel::Events framework.

This is useful if you wish to place certain events like Devel::Events::Objects's ones in a certain context by later analyzing the in memory log.

subscribe $publisher, [ $event ]

unsubscribe $publisher, [ $event ]

These convenience methods are provided if you prefer calling

	$gen->subscribe($publisher, $event);

over

	$publisher->add_subscriber($event, $gen);

If $event is omitted then all events are assumed.

update $publisher, $event, @args

Called by notify_subscribers in Class::Publisher. Will raise an event with the value:

	$event, publisher => $publisher, @args

A custom filter right after this generator to munge @args into a key value pair list is reccomended if your events are not structured that way to begin with.

Devel::Events, Class::Publisher

Yuval Kogman <nothingmuch@woobling.org>

	Copyright (c) 2007 Yuval Kogman. All rights reserved
	This program is free software; you can redistribute it and/or modify it
	under the terms of the MIT license or the same terms as Perl itself.