Can anyone help me create a line with label like this? The line is cut in the middle. The label is placed on top to avoid the probelem when too points are too close.

This is what I have so far.

lines[{a1_, a2_}, color_, label_] := Block[{},
  {Thickness[0.01], color, Line[{a1, a2}]}]

Graphics@lines[{{1, 2}, {3, 5}}, Red]