NAME

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

SYNOPSIS

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

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

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

DESCRIPTION

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.

METHODS

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.

SEE ALSO

Devel::Events, Class::Publisher

AUTHOR

Yuval Kogman <nothingmuch@woobling.org>

COPYRIGHT & LICENSE

        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.