gistfile1.pl

package Apache2::Request::NG;

use Modern::Perl;
use Apache2::Request;

our @ISA = qw(Apache2::Request);

sub new {
	my($class, @args) = @_;
	return bless { r => Apache2::Request->new(@args) }, $class;
}

sub query {
	my($self) = shift;
	my @table = $self->param;

	my @st;
	for my $k (@table) {
		push @st, { $k => $self->param($k) }
	}
	
	\@st;

}

sub query_string {
	my($self) = shift;	
	join '&', map { my($k, $v) = each %{$_}; "$k=$v"} @{$self->query};
}

1;