Abs of product with FullSimplify and assumptions not simplifying

Questions
1

See the commands below.

Open in Wolfram Cloud ↗

Is there a way for Abs[x y]^2 function to simplify further in first case?

2

Mathematica thinks that Abs[x y]^2 is simpler than x^2 y^2:

LeafCount[Abs[x y]^2]
LeafCount[x^2 y^2]

Try this:

FullSimplify[Abs[x y]^2, Element[x | y, Reals], 
 ComplexityFunction -> (Count[#, Abs, All, Heads -> True] &)]
3

Thanks Gianluca Gorni!