File Coverage

blib/lib/OpenPlugin/Param/CGI.pm

Criterion	Covered	Total	%
statement	16	21	76.1
branch	1	6	16.6
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	22	33	66.6

package OpenPlugin::Param::CGI;

# $Id: CGI.pm,v 1.18 2003/04/03 01:51:25 andreychek Exp $

use strict;
use OpenPlugin::Param();
use base   qw( OpenPlugin::Param );
use CGI    qw( -no_debug );

$OpenPlugin::Param::CGI::VERSION = sprintf("%d.%02d", q$Revision: 1.18 $ =~ /(\d+)\.(\d+)/);

sub init {
    my ( $self, $args ) = @_;

    return $self unless $self->OP->request->object;

    # Tell OpenPlugin about each parameter we were sent
    foreach my $field ( $self->OP->request->object->param() ) {

        # Don't show uploads in this plugin
        next if ( $self->OP->request->object->upload( $field ));

        my @values = $self->OP->request->object->param( $field );
        if ( scalar @values > 1 ) {
            $self->set_incoming( $field, \@values );
        }
        else {
            $self->set_incoming( $field, $values[0] );
        }
    }

    return $self;
}


1;

__END__