perl で?ってどういう意味なんだっけ？
$row->{category_name} = $obj->category ? $obj->category->label : '';
これを解釈したいんだけど
昔やった覚えがあるんだけどわすれてしまったよ