package MyDB::Schema::Result::Queue;
use strict;

use base qw/DBIx::Class::Core/;

__PACKAGE__->table('queue');
__PACKAGE__->add_columns( id => { is_auto_increment => 1},
                         qw/ msg box /);
__PACKAGE__->set_primary_key('id');

1;

##</code><code>##

my $rs = $schema->resultset('Queue');

my $q = $rs->search ({ -bool => "is_free_lock(me.box)" }, { order_by => 'id', rows => 1 })->single;