sub mytool {
      $tb->ok(...); # BailOnFail is triggered here
      $tb->diag(...); # Lost
    }