Yet Another CPAN Grep

Mojolicious-Plugin-DirectoryQueue ( F/FU/FUKAI/Mojolicious-Plugin-DirectoryQueue-0.01.tar.gz, FUKAI, 2014; MetaCPAN )

Mojolicious-Plugin-DirectoryQueue/lib/Mojolicious/Plugin/DirectoryQueue.pm ( view source; MetaCPAN )

ojolicious::Plugin::DirectoryQueue;

use Mojo::Base 'Mojolicious::Plugin';
use Mojo::JSON qw(decode_json encode_json);
use Directory::Queue;
use POSIX qw(chown);

our $VERSION = '0.01';


sub register

elper(
        enqueue => sub {
            my ($self, $args) = @_;
            $dirq->add(encode_json($args));
        },
    );

    $app->helper(
        dequeue => sub {
            for (my $name

  my $data = $dirq->get($name);
               $dirq->remove($name);
               return decode_json($data) if $data;
            }
            return;
        },
    );

    $app->helper(
        s