view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

sv_pvutf8n||5.006000|
sv_pvutf8||5.006000|
sv_pv||5.006000|
sv_recode_to_utf8||5.007003|
sv_reftype|||
sv_release_COW|||
sv_release_IVX|||
sv_replace|||
sv_report_used|||
sv_reset|||
sv_rvweaken||5.006000|
sv_setiv_mg|5.006000||p
sv_setiv|||
sv_setnv_mg|5.006000||p
sv_setnv|||
sv_setpv_mg|5.006000||p
sv_setpvf_mg_nocontext|||pvn
sv_setpvf_mg|5.006000|5.004000|pv
sv_setpvf_nocontext|||vn
sv_setpvf||5.004000|v
sv_setpviv_mg||5.008001|

t/simple.t  view on Meta::CPAN

use Devel::GC::Helper;
print "1..2\n";

use strict;
use Scalar::Util qw(weaken);
my $check;
{

  my $blah = {};
  my $foo = "bar";
  $blah->{bar} = \$foo;
  $blah->{foo} = \$blah;
  $check = \$blah;
  weaken($check);
}

if ($check) {
  print "ok 1 - did leak ($check)\n";
} else {
  print "not ok 1 - did not leak ($check)\n";
}


my $leaks = Devel::GC::Helper::sweep;