package local::params;
require Exporter;
use CGI qw(:standard);
use strict;
use base "Exporter";

sub new
{
  my $invocant = shift;
  my $class = ref($invocant) || $invocant;
  # my $self  = $class->SUPER::new(@_);
  my $self=bless {@_}, $class;
  return $self;
}

sub has_params
{
  my $self=shift;
  return param()?1:0;
}

sub get_as_hash
{
  my $self = shift;
  my %result;
  for my $key (param) {
    $result{$key}=param($key);
  }

  return %result;
}