第一引数がオブジェクト自身になるのなんてPerlだけだろ