view release on metacpan or  search on metacpan

t/01_refcnt.t  view on Meta::CPAN

use strict;
use Scalar::Util;


package Foo;
use Acme::Sneeze::JP;

my $dest;
sub DESTROY { $dest++ }

package main;
use Test::More tests => 1;

eval {
    my $foo = bless {}, "Foo";
    $foo->sneeze;
};

ok !$dest;