無名サブルーチンに名前を付ける
Class::Accessorの使い方