読者です 読者をやめる 読者になる 読者になる

パルカワ2

PerlとRubyとイチャラブ

bless!!!!!!!!!!メソッドを生やす!!!!!!!!!!!!!!使う!!!!!!!!!!!!!!!!!!!!!!

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;