use strict ;
use warnings ;
use Perl6::Say ;

my $subref = sub{
                  my $self = shift ;
                  $self->{msg} ;
} ;

say  MyClass->new->$subref  ;

package MyClass ;
use strict ;
use warnings ;

sub new{
    my $class = shift ;
    bless { msg => 'Hello ' . __PACKAGE__ } ,  $class ;

}

実行結果

$ perl mokkori.pl 
Hello MyClass

2008-10-08

音楽の話

雑記

「音楽どういうの聴いているの？」
って聞かれて、レディオヘッドとか言っておけばいいフシってあるじゃんか。
　
そんな理由で今までずっとレディオヘッド敬遠してたの。
でも改めて聞いてみると、良いじゃんか。すっごく。
　
こないだも髪を短くしたわけどさ。あれ、トムヨークの影響だからね。
(でも整髪の仕方がわからない)
　
リスナーとしての間口が広がった今は、いろんな音楽を聞いてみたい。
こんど皆で、マイベスト集の交換をしようぜ。
俺もPANTERAと、ニューヨークハードコアのテープを作ってくるよ。
　
みんなもPANTERAを聞こう。

2008-09-02

God save the ass.

今日うんこしたら、紙がなかったの。
幸いウォシュレットだったから大惨事には至らなかったんだけど。

それでも、いかんせん尻についた水滴が気持ち悪いよね。

高速で尻を振ったら、乾くかなと思ったんだけどダメでした。
しょうがないので、尻まるだしで隣の便器に移動しました。

男の器が試されるときってあるよね。
果たして僕の解答は、ベストアンサーだったのでしょうか？

2008-07-12

猫って

かわいいよな〜
　
と思うようになったのは、ここ最近の心境の変化です。
昔は猫どころか動物全般好きじゃなかったのにね。
　
犬もいいよな。
ちょっと飼ってみたいなとも思うけど、まあ無理だろうね。
だって、世話できないもん。うんこの処理とかオエッとなるもん、きっと。
偉いよね、ちゃんと世話している人は。
　
たまーに、自分のペットに服着せちゃう飼い主とかいるじゃないですか。
アレ見て、「うわ〜」と思うのは自分だけじゃないと思うんだけど、
そんな人もちゃんとうんこの処理しているんだよね。
そう考えると、そんな飼い主にも寛容になれるような気がするよ。
　
でもアレだけはだめだ。ペットOKのカフェとか。
他人のペットと一緒に茶が飲めるか。こ汚い。
赤痢になるよ、赤痢に。
　

2008-02-17

適職フェア

どうでもよいこと

渋谷にて撮影。我こそはという方は是非！

クォーターパウンダーCM 宣言編 ｜AmebaVision

Ghetto Bombs - 우린 언제나 | YouTube

クォーターパウンダーCM 宣言編｜AmebaVision