view release on metacpan or  search on metacpan

lib/App/aep.pm  view on Meta::CPAN

        poe->heap->{ 'lock' }->{ 'step_completed' } = 0;
        poe->heap->{ 'lock' }->{ 'run_sent' }       = {};
    }
    elsif ( $action eq 'execute' )
    {
        $debug->( 'STDERR', __LINE__, "Lock order exhausted: starting own command." );
        poe->kernel->yield( 'command_start' );
    }
    else
    {
        # idle - do nothing, just keep the event loop alive
        $debug->( 'STDERR', __LINE__, "Lock order exhausted: idling." );
    }

    return;
}

# As client - handle input from the lock server
sub afunixcli_server_input ( $self, $input, $wid )
{
    my $debug = poe->heap->{ '_' }->{ 'debug' };