Yet Another CPAN Grep

App-Basis-Queue ( M/MO/MOODFARM/App-Basis-Queue-000.600.100.tar.gz, MOODFARM, 2017; MetaCPAN )

App-Basis-Queue/lib/App/Basis/Queue.pm ( view source; MetaCPAN )

rict ;
use warnings ;
use Moo ;
use MooX::Types::MooseLike::Base qw/InstanceOf HashRef Str/ ;
use JSON ;
use Data::UUID ;
use Try::Tiny ;
use POSIX qw( strftime) ;
use Time::HiRes qw(gettimeofday tv_i

self->{debug} ) {

        $self->_debug(
            "ACTUAL QUERY: $query\nQUERY PARAMS: " . to_json( \@params ) ) ;
        my $sql = _build_sql_stmt( $query, $p ) ;
        $self->_debug( 'BUILT Q

     $result{success}   = 1 ;

            $self->_debug(
                'QUERY RESPONSE: ' . to_json( $result{rows} ) . "\n" ) ;
        } else {
            if ($rv) {
                $result{row_c