יובל קוג'מן (Yuval Kogman) > Devel-Events-0.08 > Devel::Events::Filter::Warn

Download:
Devel-Events-0.08.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  3
Open  0
View/Report Bugs
Source  

NAME ^

Devel::Events::Filter::Warn - log every event to STDERR

SYNOPSIS ^

        # can be used as a handler
        my $h = Devel::Events::Filter::Warn->new();

        # or as a filter in a handler chain

        my $f = Devel::Events::Filter::Warn->new(
                handler => $sub_handler,
        );

DESCRIPTION ^

This is a very simple debugging aid to see that your filter/handler chains are set up correctly.

A useful helper function you can define is something along the lines of:

        sub _warn_events ($) {
                my $handler = shift;
                Devel::Events::Filter::Warn->new( handler => $handler );
        }

and then prefix handlers which seem to not be getting their events with _warn_events in the source code.

METHODS ^

filter_event @event

calls warn "@event". and returns the event unfiltered.

syntax highlighting: