The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Devel-Events-0.08
River stage one • 5 direct dependents • 6 total dependents
1 ++
/ Devel::Events::Filter::Callback

NAME

Devel::Events::Filter::Callback - Callback based Devel::Events::Filter

SYNOPSIS

        use Devel::Events::Filter::Callback;

        Devel::Events::Filter::Callback->new(
                callback => sub {
                        my ( @event ) = @_;

                        return if bad_event(@event); # drop it

                        return map { filter($_) } @event; # change it
                },
                handler => $handler,
        );

DESCRIPTION

Duh.

ATTRIBUTES

handler

Devel::Events::Handler

callback

a code ref

METHODS

filter_event

Delegates to callback