package CGI::Vars;

# this isn't in L.pm because the CGI module is too slow to load
# methinks I shouldn't be using the CGI module at all...

use strict; use warnings;

use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(cgi_vars);

use CGI;

sub cgi_vars {
	my ($query) = @_;
	my %data;
	for ($query->param()) {
		$data{$_} = $query->param($_);
	}
	return \%data;
}

1
