How to pick consecutive numbers from list?

Question

Question is very simple. If we have

tst = {2,3,4,6,7,9,11}

result must be

{{2,3,4}, {6,7}, {9}, {11}}

There are similar questions, but not exact.

My best solution is:

myFun[arr_] := Module[{prev = First@arr, tag = First@arr},
Reap[
 Sow[prev, tag];
 Do[
  If[prev != e - 1, tag = e];
  Sow[e, tag];
  prev = e,
  {e, Rest@tst}]
 ]][[2]];

Is it possible to do it better?

Answer 1

Split[] was meant for this:

Split[{2, 3, 4, 6, 7, 9, 11}, #2 - #1 == 1 &]
   {{2, 3, 4}, {6, 7}, {9}, {11}}