/usr/local/CPAN/Apache-SWIT/Apache/SWIT/Test/Request.pm

• package Apache::SWIT::Test::Request
  • unparsed_uri
  • pool
  • prev
  • headers_in
  • cleanup_register
  • run_cleanups
  • get_server_port
  • get_server_name
  • log_error
• EOF

use strict;
use warnings FATAL => 'all';

package Apache::SWIT::Test::Request;
use base 'HTML::Tested::Test::Request';
use Carp;

sub unparsed_uri { return shift()->uri; }
sub pool { return shift; }
sub prev { return shift; }
sub headers_in { return { Referer => 'hihi.haha' } }

sub cleanup_register {
	my ($self, $func) = @_;
	push @{ $self->{cleanups} }, $func;
}

sub run_cleanups {
	my $self = shift;
	$_->() for @{ $self->{cleanups} };
}

sub get_server_port { return 80; }
sub get_server_name { return "some.host"; }

sub log_error {
	my ($self, $err) = @_;
	confess $err;
}

1;