考えてみればそのとおりだけど、subの中にオブジェクトの名前を書いちゃうと参照カウンタが増える。 これによってDESTORY実行のフェーズが変わってしまってしばらくはまってしまったって話。 そのままsay #!/usr/bin/env perl use strict; use warnings; use…

Test::Clear hixi-hyi/p5-Test-Clear · GitHub っていうのを作ってる。 case "{name} case" => { name => 'hixi' }, sub { my $dataset = shift; my $ret = $module->get_person($dataset->{name}); is $ret, xxxxx; }; # Subtest: basically name:hixi subt…

ぱっとプログラムが思いつかなかったので、メモっておく どれがエンコードされるかとかちゃんと把握してないんだよなぁ。 ASCII文字コード ： IT用語辞典 #!/usr/bin/env perl use strict; use warnings; use URI::Escape; sub print_escape { my $code = sh…

こう書けばNVとPV混じったものが出来ると思っている時期がありました。 #!/usr/bin/env perl use strict; use warnings; use Devel::Peek; use JSON::XS qw(encode_json); print "$] \n"; { no warnings 'void'; my $value = ~0 + 1; $value . ''; Devel::Pe…

Devel::Peek::Dumpは同じアドレス空間の変数に対して、IV/NV/PVとかここの要素は更新しないっぽい。 (最後のundefをdumpした時にもIV/NVが存在しているし、SV=XXの部分も更新されない) #!/usr/bin/env perl use 5.10.0; use strict; use warnings; use Devel…