Apache-Request-I18N

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

name:         Apache-Request-I18N
version:      0.08
version_from: I18N.pm
installdirs:  site
requires:
    Apache::Constants:             0
    Apache::Request:               0.32
    Apache::Table:                 0
    Apache::Test:                  1.13
    HTTP::Headers::Util:           0
    HTTP::Request:                 0

distribution_type: module
generated_by: ExtUtils::MakeMaker version 6.30_01

Makefile.PL  view on Meta::CPAN

    VERSION_FROM      => 'I18N.pm',
    PREREQ_PM         => {
    				'Apache::Test'		=> MIN_APACHE_TEST_VERSION,
				# libapreq
    				'Apache::Request'	=> 0.32,
				# mod_perl 1.x
    				'Apache::Constants'	=> 0,
    				'Apache::Table'		=> 0,
				# libwww-perl
				'HTTP::Headers::Util'	=> 0,
				'HTTP::Request'		=> 0,
    			},
    clean             => { FILES => 't/TEST' },
    test              => { TESTS => HAVE_APACHE_TEST ? '' : 't/00_load.t' },
    ($] >= 5.005 ?
      (ABSTRACT_FROM  => 'I18N.pm',
       AUTHOR         => 'Frédéric Brière <fbriere@fbriere.net>') : ()),
);

t/lib/TestApReqI18N.pm  view on Meta::CPAN

package TestApReqI18N;

use 5.008;
use strict;
use warnings FATAL => 'all';
  
use Apache::TestRequest;
use Carp;
use Exporter;
use HTTP::Request;
use IO::File;

our @ISA = qw(Exporter);
our @EXPORT = qw(request_from_file last_test_name);


my $ua = Apache::TestRequest::user_agent;
my $hostport = Apache::TestRequest::hostport(Apache::Test::config);
my %headers = ('Host' => (split ':', $hostport)[0]);

t/lib/TestApReqI18N.pm  view on Meta::CPAN

			my $caller = caller;
			${"$caller\::TODO"} = $line;
		}
	}

	# FIXME: What to do with an empty request?

	$line =~ s!^(\s*\w+\s+)!$1http://$hostport$root!;
	$line = join ('' => $line, $fh->getlines);

	my $request = parse HTTP::Request $line
		or croak "Cannot parse request $source";
	
	my $content_type = $request->header('Content-Type');
	if ($content_type && $content_type =~ /x-www-form-urlencoded/) {
		my $content = $request->content_ref;
		chomp $$content;
	}

	unless (defined $request->header('Content-Length')) {
		$request->header('Content-Length', length $request->content);