local/params.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

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;
}