MariaDB-NonBlocking

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "requires" : {
            "Alien::libmariadbclient" : "0.01",
            "ExtUtils::MakeMaker" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "Alien::libmariadbclient" : "0.01",
            "AnyEvent" : "0",
            "AnyEvent::XSPromises" : "0",
            "Ref::Util" : "0",
            "Sub::StrictDecl" : "0",
            "perl" : "5.006"
         }
      }
   },
   "release_status" : "stable",
   "version" : "0.31",
   "x_serialization_backend" : "JSON::PP version 4.05"
}

META.yml  view on Meta::CPAN

  version: '1.4'
name: MariaDB-NonBlocking
no_index:
  directory:
    - t
    - inc
requires:
  Alien::libmariadbclient: '0.01'
  AnyEvent: '0'
  AnyEvent::XSPromises: '0'
  Ref::Util: '0'
  Sub::StrictDecl: '0'
  perl: '5.006'
version: '0.31'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

Makefile.PL  view on Meta::CPAN

    CONFIGURE_REQUIRES => {
        'ExtUtils::MakeMaker' => '0',
        'Alien::libmariadbclient' => '0.01',
    },
    BUILD_REQUIRES => {
        'Test::More' => '0',
        'Alien::libmariadbclient' => '0.01',
    },
    PREREQ_PM => {
        'AnyEvent'             => '0',
        'Ref::Util'            => '0',
        'Sub::StrictDecl'      => '0',
        'AnyEvent::XSPromises' => '0',
        'Alien::libmariadbclient' => '0.01',
    },
    LIBS    => $makemaker_libs,
    INC     => $makemaker_inc,
    CCFLAGS   => $ccflags,
    LDDLFLAGS => $lddlflags,
    PERL_ARCHIVE_AFTER => join(' ', @archive_after),
    dist  => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },

lib/MariaDB/NonBlocking.pm  view on Meta::CPAN

    'all' => [ @EXPORT_OK ]
);

use constant {
    OPERATION_RUN_QUERY => 0x01,
    OPERATION_CONNECT   => 0x02,
    OPERATION_PING      => 0x04,
};

# Better to import this, since it is a custom op
use Ref::Util qw(is_arrayref is_coderef);
use Scalar::Util qw(weaken);

sub new {
    my $class = shift;
    my $obj = $class->init;
    return $obj;
}

sub ___clean_object {
    my ($maria) = @_;

lib/MariaDB/NonBlocking/Promises/Pool.pm  view on Meta::CPAN

use constant MYSQL_MAX_SLAVE_RETRIES  => 4; # magic number

use Data::Dumper;

use Carp ();
BEGIN {
    $Carp::Internal{+__PACKAGE__}     = 1;
    $Carp::CarpInternal{+__PACKAGE__} = 1;
}

use Ref::Util    qw(is_arrayref is_hashref);
use Time::HiRes  qw(time);  # for high-res time
use List::Util   qw(shuffle sum);
use Scalar::Util qw(weaken refaddr);

use MariaDB::NonBlocking::Promises qw(); # our default connector class

use if DEBUG, 'Digest::MD5' => qw(md5_hex); # dumb fingerprinting when DEBUG is true
BEGIN { *md5_hex = sub {} unless DEBUG };

use constant {