'Regexp' || $ref eq 'REGEXP') { die "Cannot dump regexp objects"; } if ($ref eq 'JSON::PP::Boolean') { return $val ? 't' : 0; # XXX should we dump false as nil or 0? }