-$obj->lf_int=444;
+sub lf_int :lvalue { $obj->lf_int }
+lf_int=444;