PurePerl: 3 small changes, see ...

merged get_dom_from_header into get_from_dom

init: also reset header_from and header_from_raw

when getting policy fetch failure reason from DNS, in some instances where the record did not exist in DNS, the reason wasn't getting set. Now it is.
Result: reason is now an arrayref (was hashref)