fixed warn "uninitialized value $called_with"