view release on metacpan or  search on metacpan

lib/Test/HTTP/Server.pm  view on Meta::CPAN

{
	my $self = shift;

	my %default_headers = (
		content_type => "text/plain",
		date => $self->_http_time,
	);
	$self->{out_headers} = { %default_headers };

    my $raw_uri = $self->{request}->[1];
    my @req_parts = split m#\?#, $raw_uri;
    my $req = shift @req_parts;
	$req =~ s#^/+##;
	my @args = map { uri_unescape $_ } split m#/#, $req;
	my $func = shift @args;
	$func = "index" unless defined $func and length $func;

	my $body;
	eval {
		$body = $self->$func( @args );
	};
	if ( $@ ) {
		warn "Server error: $@\n";
		$self->out_response( "404 Not Found" );