<<FeynCalc`

ScalarProduct[k,k]=0;
ScalarProduct[p,p]=m^2;

top=FAD[{q1,m},{q1-p},{q1-2 p,m},{q1-k-2 p,m}];

ApartFF[top,{q1}]