The Perl implementation was the original AFAIK.
https://metacpan.org/release/Directory-Queue/source/lib/Dire...
So how does one lock a message in s3? Does s3 have a "createIfDoesNotExistOrError"? I'm still having difficulty understanding how the proposed system avoids race conditions.
I can't vouch for the queueing code but I believe it's quite robust too.