Fix identify format

(a) there didn't seem to be any tests for identify_format

and

(b) the POD examples implied that you passed in $xml, when in fact it's expecting a scalar ref, aka \$xml

Happy to change the commits to suit if you tell me what you'd prefer.