package flo::CGI;
use CGI;
use strict;
use vars qw /@ISA $FULL_URI/;
@ISA = qw /CGI/;
$FULL_URI = 0;


sub new
{
    my $class = shift;
    return $class->SUPER::new (@_) unless (ref $class);
    
    my $self = $class;
    my $object = $self->SUPER::new ( {} );
    $object->path_info ($self->path_info);
    foreach ($self->param)
    {
	$object->param ($_, $self->param ($_));
    }
    return $object;
}


sub self_url
{
    my $self = shift;
    return $self->url ( -relative  => $FULL_URI ? 0 : 1,
			-path_info => 1,
			-query     => 1 );
}


1;
