File Coverage

blib/lib/Text/Forge/CGI.pm

Criterion	Covered	Total	%
statement	15	21	71.4
branch	0	2	0.0
condition	2	6	33.3
subroutine	4	5	80.0
pod	0	2	0.0
total	21	36	58.3

package Text::Forge::CGI;

# use strict;
# use vars qw( @ISA );
use Carp;
use Text::Forge;

@ISA = qw( Text::Forge );

sub new {
  my $class = shift;
  local($_);

  $class = ref($class) || $class;
  my $self = $class->SUPER::new( @_ );
  $self->{'header'}->content_type('text/html');

  $self;
}

sub _post_template {
  my $self = shift;

  $self->SUPER::_post_template;
  $self->{'header'}->content_length( length $self->{content} );
}

sub redirect {
  my $self = shift;
  my $url  = shift;

  # XXX Is this portable?
  $url ||= "http://$ENV{SERVER_NAME}:$ENV{SERVER_PORT}$ENV{REQUEST_URI}";

  if ($self->{_in_template}) {
    $self->{'header'}->header( Status   => '302 Moved',
                               Location => $url );
  } else {
    print "Location: $url\nStatus: 302 Moved\n\n";
  }
}

1;

__END__