view release on metacpan or  search on metacpan

t/full_structure.t  view on Meta::CPAN

  return $arr;
}

sub get_headers {
  my $m = shift;

  my @names = sort grep(!/^content-id$/, map {lc $_} $m->header_names);
  my @arr = map {
    my @h = map { $_ =~ s/\s\s*/ /sg; $_ } sort $m->header($_);
    @h = map { sanitize_content_type($_) } @h if lc $_ eq 'content-type';
    @h = map { sanitize_content_disposition($_) } @h if lc $_ eq 'content-disposition';
    $_ . ": " . join "\n", @h;
  } @names;
  return \@arr;
}

sub sanitize_content_type {
  my $s = shift;
  my $ct = parse_content_type($s);
  my $at = $ct->{attributes};