`@$result[0]->{'is_voted'}` この部分とか Model::Song のインスタンスになっていればインスタンスメソッドにできるんですよ。
あとこれ条件の順番逆じゃないとからの時に undef へのメソッド呼び出しにならん?