view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

         * Added kseq()
         * Minor documentation updates
         * Skip t/32leakcheck.t before perl version 5.8.0

0.08    CHANGES:
         * Added kpar()
         * Only opportunisticly use Sub::Name, don't hard-depend on it in case
           of pure-perl scenarios

0.07    CHANGES:
         * Added note about perl before 5.8 not implementing weaken properly,
           so possible memory leaks if gkwhile()'s continuations are lost

        BUGFIXES:
         * Second attempt at making gkwhile() work on perl 5.6

0.06    CHANGES:
         * Created CPS::Governor::Deferred
         * Use Sub::Name to correctly name the gkwhile iteration closure

0.05    CHANGES:
         * Added kdescendd() and kdescendb()
         * (Hopefully) work on perl 5.6 again
         * Created the concept of a Governor and implemented a simple one

0.04    CHANGES:
         * Added dropk() analogous to liftk()
         * Added 'use warnings'
         * Various small updates to keep CPANTS happy

0.03    BUGFIXES:
         * Declare dependency on at least perl 5.8 since weaken() fails tests on
           earlier perls

0.02    CHANGES:
         * Use Scalar::Util::weaken() in kwhile(), breaking cycle for $iter
           and allowing body to care less about leaks. Also allows passthrough
           of $k without intermediate sub{}

0.01    First version, released on an unsuspecting world.

t/32leakcheck.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

use CPS qw( kwhile );

if( $] < 5.008 ) {
   plan skip_all => "weaken() doesn't work before 5.8";
}

my $destroycount = 0;

my $poke;

{
   my $obj = DestroyCounter->new( \$destroycount );
   my $callcount = 0;