NAME

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

VERSION

version 0.10

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.

SUPPORT

Bugs may be submitted through the RT bug tracker (or bug-Devel-Events@rt.cpan.org).

AUTHOR

יובל קוג'מן (Yuval Kogman) <nothingmuch@woobling.org>

COPYRIGHT AND LICENCE

This software is copyright (c) 2007 by יובל קוג'מן (Yuval Kogman).

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.