Here is the standard way (I think it's found in several places on site):

    Normal@Series[
       A /. v : Alternatives @@ Variables[A] :> v $t, {$t, 0, 
        1}] /. $t -> 1
    
    (*  -1 + a + b  *)