File Coverage

blib/lib/OpenPlugin/HttpHeader/CGI.pm

Criterion	Covered	Total	%
statement	20	27	74.0
branch	1	4	25.0
condition	0	2	0.0
subroutine	5	6	83.3
pod	0	2	0.0
total	26	41	63.4

package OpenPlugin::HttpHeader::CGI;

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

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

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

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

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

    my @headers;

    { # The HTTP sub in CGI.pm can produce some odd looking warnings
        local $^W = 0;
        @headers = $self->OP->request->object->http();
    }
    # Tell OpenPlugin about each header we were sent
    foreach my $header ( @headers ){
        $self->set_incoming( $header,
                $self->OP->request->object->http( $header ));
    }

    return $self;
}

*send = \*send_outgoing;

sub send_outgoing {
    my ( $self, $type ) = @_;

    $type ||= "text/html";
    $self->set_outgoing( "-content_type", $type );

    print $self->OP->request->object->header( $self->get_outgoing );

    # If the cookie plugin is loaded, check to see if we need to send any
    # cookies along with the header
    $self->OP->cookie->bake if
                    grep "OpenPlugin::Cookie", $self->OP->loaded_plugins;


    return undef;
}

1;

__END__