Queue::Q4Pg::Lite 0.03

Queue::Q4Pg::Lite is a Perl module that offers a simple message queue using PostgreSQL, which supports pg_advisory_lock (version 8.2 or later).<br /><br />This algorithms was invented by http://d.hatena.ne.jp/n_shuyo/20090415/mq .<br /><br />Many codes copied from Queue::Q4M.<br /><br />SYNOPSIS<br /><br /> use Queue::Q4Pg::Lite;<br /><br /> my $q = Queue::Q4Pg::Lite- >connect(<br /> connect_info = > [<br /> 'dbi:Pg:dbname=mydb',<br /> $username,<br /> $password<br /> ],<br /> );<br /><br /> for (1..10) {<br /> $q- >insert($table, %fieldvals);<br /> }<br /><br /> while ($q- >next($table)) {<br /> my $cols = $q- >fetch_hashref()<br /> print "col1 = $cols- >{col1}, col2 = $cols- >{col2}, col3 = $cols- >{col3}n";<br /> $q- >ack;<br /> }<br /><br /> $q- >disconnect;<br /><br /> # Table schema requires id column.<br /> CREATE TABLE mq ( id SERIAL PRIMARY KEY, message TEXT );<br /><br />

Requirements:	No special requirements
Platforms:	*nix, Linux
Keyword:	Column,  Create,  Fieldvals,  Gtack,  Gtcol,  Gtcol Quot,  Gtdisconnect,  Gtfetch Hashref,  Gtinserttable,  Gtnexttable,  Lite,  Message,  Primary,  Print,  Q4pg,  Queue,  Queue Lite,  Queueq Pglite,  Quotcol,  Requires,  Serial,  Table
Users rating:	0/10