Cache-Memcached-AnyEvent

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

=======

0.00023 2015-07-30T23:51:22Z
    * Avoid reconnnecting when already disconnecting (PR #5)

0.00022 2013-10-04T03:39:14Z
    * Add new serializers (JSON, MessagePack)
    * Update layout by switching to Minilla

0.00021 - 19 Nov 2012
    * Apply PR #3 to fix callbacks from leaking memory (Sawyer X)
    * Apply PR #2 to fix 'deprecated use of qw() warnings (Sawyer X)
    * Apply PR #1 to fix POD erros (Schuk)
    * Add Travis CI hooks (only on repo)
    * Add .gitignore (only on repo)

0.00020 - 24 Sep 2010
    * Fix incompatible hashing.
    * Micro-optimizations.
    * Add "contributing" section
    * Updated benchmark script to also check for correctness. Broken

Changes  view on Meta::CPAN

      this test might fail with a segmentation fault. 
      This probably results from something in the cleanup that I'm missing
      to perform correctly, but I don't know what it is at the moment, so
      this test will force AnyEvent to use AnyEvent::Impl::Perl.
      If you have any pointers, patches are certainly appreciated!

0.00012 - 25 Feb 2010
    * Fix for when set operations (include set, add, and the like)
      might cause the client to stall. This only happens if you are using
      the text protocol.
    * Also, the paramter passed to these callbacks were bogus. That's been
      fixed too

0.00011 - 22 Feb 2010
    * Implement auto-reconnect
    * Tests now use Test::Memcached

0.00010 - 11 Feb 2010
    * Fix get/get_multi

0.00009 - 11 Feb 2010

t/CMAETest/Commands.pm  view on Meta::CPAN

package t::CMAETest::Commands;
use strict;
use AnyEvent::Impl::Perl;
use t::Util;
use Test::More;
use Test::Fatal;

my $key = random_key();
my @keys = map { "commands-$_" } (1..10);
my @callbacks = (
    sub { my ($memd, $cv) = @_; $memd->flush_all(sub { is($_[0], 1, 'Flush all records'); $cv->end }); },
    sub {
        my ($memd, $cv) = @_;
        my $cb = AE::cv {
            is($_[0]->recv, 1, 'Flush all records (via condvar)');
            $cv->end
        };
        $memd->flush_all($cb);
    },
    sub {

t/CMAETest/Commands.pm  view on Meta::CPAN

        $memd->version( sub {
            while ( my($host_port, $version) = each %{$_[0]} ) {
                note("[$protocol/$selector] using memcached $version on $host_port");
            }
            $cv->end;
        } );

        $cv->recv;

        $cv = AE::cv;
        foreach my $code (@callbacks) {
            $cv->begin();
            eval {
                $code->($memd, $cv);
            };
            if ($@) {
                ok(0, "an error occurred: $@");
                $cv->end;
            }
        }
        $cv->recv;