use strict; use warnings; use utf8; use Encode; use Data::Util qw(install_subroutine); my $gomi = bless {}, "私のようなゴミ虫が書くブログを見て頂き本当にありがとうございます。"; install_subroutine(ref $gomi, kill => sub { die encode_utf8 "消すものがない" }); print $gomi->kill;
Plack::Utilになんかそれっぽいのあったりする。
my $o = Plack::Util::inline_object( write => sub { $h->push_write(@_) }, close => sub { $h->push_shutdown }, ); $o->write(@stuff); $o->close;