wierdness with events

[Bob Maccione]

I'm building what should be a simple app and for some reason I can't get
events to be processed... Is there a way to tell POE to throw and exception
when an event handler isn't found.

I've modifed the Jobserver code:
http://poe.perl.org/?POE_Cookbook/Job_Server  to show what's wrong.  It
seems that I can't use a coderef in the inline section.  look for >>>>>>>>
below.

#!/usr/bin/perl

use warnings;
use strict;


package Foo;

# Include POE, POE::Component::Server::TCP, and POE::Wheel::Run.
use POE qw(Component::Server::TCP Wheel::Run);

# The programs that are allowed to run, with their names.
my %programs =
  ( time => "/bin/date",
    uptime => "/usr/bin/uptime",
    ls     => "/bin/ls /tmp/*",
    echo   => "/bin/cat -",
  );

# Start a TCP server.  The client will be presented with a list of
# valid commands.  They can enter one command: that will execute, and
# its output will be sent back to the client.  Then the server will
# close the connection.

POE::Component::Server::TCP->new
  ( Alias => "job_server",
    Port => 32080,

    # Send the client a list of available commands when it connects.
    ClientConnected => sub {
        $_[KERNEL]->yield("usage");
    },

    # Make sure the job is destroyed when the client exits.
    ClientDisconnected => sub {
        delete $_[HEAP]->{job};
    },

    # Process client input.  When no job is running, accept input and
    # try to spawn a new one.  While a job is running, however, pass
    # the client's input to it.

    ClientInput => sub {
        my ( $heap, $input ) = @_[ HEAP, ARG0 ];

        if ( $heap->{job} ) {
            $heap->{job}->put($input);
            return;
        }

        my $program = $programs{$input};
        unless ( defined $program ) {
            $_[KERNEL]->yield("usage");
            return;
        }

        $heap->{job} = POE::Wheel::Run->new
          ( Program => $program,
            StdoutFilter      => POE::Filter::Line->new(),
            #StdoutEvent => "got_job_stdout",
>>>>>>>>>>>>>>>>  here is what i did.
            StdoutEvent => \&PrintIt,
            StderrEvent => "got_job_stderr",
            #CloseEvent  => "got_job_close",
            CloseEvent  => "do_close",
          );

        $heap->{client}->put( "Job " . $heap->{job}->PID . " started." );
    },

    # Inline states are custom event handlers.  These add handlers for
    # job output, job status, and a convenient usage message.

    InlineStates =>
      {
        do_stdout => \&Foo::PrintIt,
        do_close => \&Foo::Closed,


        got_job_stdout => sub {
            $_[HEAP]->{client}->put("out: $_[ARG0]");
            print( "got_job_stdout\n" );
        },

        got_job_stderr => sub {
            $_[HEAP]->{client}->put("ERR: $_[ARG0]");
            print( "got_job_stderr\n");
        },

        got_job_close => sub {
            my ( $kernel, $heap ) = @_[ KERNEL, HEAP ];
            my $job = delete $heap->{job};
            $heap->{client}->put( "Job " . $job->PID . " stopped." );
            print( "got_job_close\n");
        },

        usage => sub {
            my @commands = sort keys %programs;
            $_[HEAP]->{client}->put("Commands: @commands");
        },
      },
  );

sub PrintIt {
  print "PrintIt called: $_[ARG0]\n";
}
sub Closed {
  print "Closed\n";
}

# Run the server until it's done.
$poe_kernel->run();


Any suggestions would be most helpful,  note that I did try  \&Foo::PrintIt,
as well.

If anyone knows how to track this sort of stuff it would be real helpful.

thx
bobm