require "factory/param.pm";
my $m = bless{};
$m->param();
print Dumper $m;

$VAR1 = bless( {
                 'CGI' => bless( {
                                   'CONTENT_LENGTH' => 0,
                                   'CONTENT_TYPE' => 'application/x-www-form-urlencoded',
                                   'CONTENT_TYPE_ORIGIN' => 'application/x-www-form-urlencoded',
                                   'QUERY_STRING' => '',
                                   'STDIN' => bless( \*Symbol::GEN0, 'IO::String' ),
                                   'eav' => {},
                                   'json' => {},
                                   'param' => {},
                                   'rawdata' => ''
                                 }, 'xCGI' )
               }, 'main' );

package UNIVERSAL;

use xCGI;

sub param{
    my $self = shift;

    $self->{CGI} = xCGI->new() unless defined $self->{CGI};
    return $self->{CGI}->param(@_);
}

1;