The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package POE::Session::Dead;

use strict;

sub _invoke_state {
	my $self = shift;
	my ($from, $event, $args) = @_;

	warn( "Event dispatch happening on a session that has been destroyed: ($self) Event: $event Args: @$args\n" );
}

1;