view release on metacpan or  search on metacpan

bin/qpubsub  view on Meta::CPAN

    options      => {
        'verbose|v' => 'Output useful information',
        'queue|q=s' => { desc => 'queue to add things to', required => 1 },
        'size|s'    => 'Disply the number of unprocessed items in a task queue',
        'peek|p' => 'Display the next few items in a task queue, use count to limit, default '
            PEEK_DEFAULT,
        'type|t=s' => {
            desc => 'Type of the queue, one of ' . join( ", ", @queue_types ),
            default  => 'task',
            required => 1,
            validate => sub {
                my $t = shift ;
                grep {/$t/} @queue_types ;
            },
        },
        'listen|l' =>
            'Listen for pubsub messages on the queue, use count to limit, default no limit',
        'exec|e=s' => {
            desc =>
                "command to run with the message, use count to limit, default "
                . EXEC_DEFAULT,