sub less_slow { my $object; $object = $dbh -> @{selectall_arrayref("select object from storage")}[0]; if ($object -> exists()) { # behave normally } else { $object = ReallyHuge::SlowObject -> new(%args); $dbh -> do("update storage set object='$object'"); } }