my $object;
do_transaction(code => sub {....$object->update..})