+=func normalize_headers
+
+ $normalized_headers = normalize_headers(\%headers);
+
+Normalize headers. Currently lowercases header keys.
+
+=cut
+
+sub normalize_headers {
+ my $headers_in = shift;
+
+ my $headers = {};
+
+ if (defined $headers_in) {
+ while (my ($key, $value) = each %{$headers_in || {}}) {
+ $headers->{lc($key)} = $value;
+ }
+ }
+
+ return $headers;
+}
+