File Coverage

blib/lib/OpenPlugin/Request/CGI.pm

Criterion	Covered	Total	%
statement	20	23	86.9
branch	2	4	50.0
condition	1	3	33.3
subroutine	6	7	85.7
pod	0	3	0.0
total	29	40	72.5

package OpenPlugin::Request::CGI;

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

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

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

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

    unless ( $self->state->{'cgi'} ) {

        # Use an existing CGI object if given one
        if(( not exists $self->state->{'cgi'} ) &&
           ( ref $args->{'cgi'} eq "CGI" )) {

            $self->state->{'cgi'} = $args->{'cgi'};
        }
        # Otherwise, create a new one
        else {
            $self->state->{'cgi'} = CGI->new();
        }
    }

    # Set the uri
    $self->state->{'uri'} = $self->state->{'cgi'}->url;

    return $self;
}


sub object { my $self = shift; return $self->state->{'cgi'}; }
sub uri    { my $self = shift; return $self->state->{'uri'}; }

1;

__END__