Class::Data::Inheritable
データどこにもってるかわかんなくて、くらうだーのひとやいなもでのひとにいろいろ聞いてたらなんとなくわかった。
アクセサの中で参照してるから参照カウンタが 0 にならなくて $data
はずっとのこるということらしい(?)。クロージャというらしい。
個人的にはキモイので嫌かも。
つかでもやっぱり Perl の本ちゃんとよまなきゃだめかなぁ。買うかなぁ。
--- /Library/Perl/5.8.6/HTML/FillInForm.pm 2005-10-14 05:49:09.000000000 +0900 +++ lib/HTML/FillInForm.pm 2006-01-06 15:45:37.000000000 +0900 @@ -83,6 +83,7 @@ if(my $file = $option{file}){ $self->parse_file($file); } elsif (my $scalarref = $option{scalarref}){ + $self->utf8_mode(1); $self->parse($$scalarref); } elsif (my $arrayref = $option{arrayref}){ for (@$arrayref){
とかしちゃった。その場しのぎ。
HTML::Parser の warning
Parsing of undecoded UTF-8 will give garbage when decoding entities at /Library/Perl/5.8.6/HTML/FillInForm.pm line 86.
とかってのが input エレメントの数だけ出てうぜええ。
#catalyst-ja @ ircnet
ので、よかったらいらしてください。