{"width":"100%","provider_name":"Hatena Blog","provider_url":"https://hatena.blog","height":"190","author_name":"gfx","title":"Test::LeakTrace\u3092CPAN\u306b\u3042\u3052\u305f","type":"rich","author_url":"https://blog.hatena.ne.jp/gfx/","image_url":null,"blog_url":"https://gfx.hatenadiary.org/","blog_title":"Islands in the byte stream (legacy)","version":"1.0","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fgfx.hatenadiary.org%2Fentry%2F20090221%2F1235197434\" title=\"Test::LeakTrace\u3092CPAN\u306b\u3042\u3052\u305f - Islands in the byte stream (legacy)\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","url":"https://gfx.hatenadiary.org/entry/20090221/1235197434","description":"Test::LeakTrace\u3068\u3044\u3046\u30a2\u30a4\u30c7\u30a2\u3092\u5f62\u306b\u3057\u305f\u3002 http://search.cpan.org/dist/Test-LeakTrace/ \u4f7f\u7528\u4f8b\uff1a #!perl -w # example/leaked.pl use strict; use Test::LeakTrace; use Data::Dumper; my @refs = leaked_refs{ my %a; my %b; $a{b} = \\%b; $b{a} = \\%a; }; print Data::Dumper->Dump([\\@refs], ['*leaked']); __END__ \u7d50\u679c\uff1a @leaked = ( \\\u2026","published":"2009-02-21 15:23:54","categories":["Perl","CPAN"]}