view release on metacpan or  search on metacpan

MimeXML.pm  view on Meta::CPAN

		}
		elsif ($encoding eq 'utf-16-le') {
			$encoding = $r->dir_config('XMLUtf16EncodingLE') || 'utf-16-le';
			$type =~ s/^text\/xml$/application\/xml/;
		}
		
		$r->notes('is_xml', 1);
		$r->push_handlers('PerlFixupHandler', 
				sub { 
					my $r = shift;
					$r->content_type("$type; charset=$encoding");
					return OK;
				});
	}

	return DECLINED;
}

sub check_for_xml {
	my $filename = shift;