view release on metacpan or  search on metacpan

t/response/TestApReqI18N/dump.pm  view on Meta::CPAN

package TestApReqI18N::dump;

use strict;
use warnings FATAL => 'all';

use Apache::Constants 'OK';
use Apache::Request::I18N;
use Data::Dumper;

sub handler {
	my $r = shift;

	$r = Apache::Request::I18N->instance($r);

	$r->send_http_header('text/plain');

	my %vars = map +($_, [ $r->param($_) ]), $r->param;
	my @uploads = map [$_->name, $_->filename, $_->size], $r->upload;

	print Data::Dumper->Dump([\%vars, \@uploads], [qw(*vars *uploads)]);

	OK;
}

1;

__DATA__

<Location /TestApReqI18N__dump>
PerlSetVar DecodeParms ascii