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 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.
These convenience methods are provided if you prefer calling
$event is omitted then all events are assumed.
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.
Yuval Kogman <email@example.com>
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.