Apache-Wyrd

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

require 5.6.1;
use ExtUtils::MakeMaker;
use lib qw(../blib/lib lib );
use Cwd;

push @ARGV, '-maxclients', '2';

my $mod_perl_ok = 0;
my $mod_perl_version = 'unknown or uninstalled';
eval 'use Apache';
unless ($@) {
	$mod_perl_version = $Apache::VERSION;
	$mod_perl_ok = 1 if (($mod_perl_version < 1.99) and ($mod_perl_version >= 1.26));

t/5_index.t  view on Meta::CPAN

use strict;
use warnings;
no warnings qw(uninitialized);
use Cwd;
use Apache::Test;
use Apache::TestUtil;
use Apache::TestRequest qw(GET_BODY GET_OK);
use Apache::Wyrd::Services::Index;
my $directory = getcwd();
#Note -- This line is to silence some errors using Apache::Test v. 1.19
eval 'use lib $directory';
$directory = "$directory/t" if (-d 't');

unlink ("$directory/data/testindex.db", "$directory/data/testindex2.db", "$directory/data/testindex_big2.db");

my $count = &count;
print "1..$count\n";

my $index = undef;

print "not " unless (GET_OK '/13.html');

t/7_mysqlindex.t  view on Meta::CPAN

use strict;
use warnings;
no warnings qw(uninitialized);
use Cwd;
use Apache::Test;
use Apache::TestUtil;
use Apache::TestRequest qw(GET_BODY GET_OK);
use Apache::Wyrd::Services::MySQLIndex;
my $directory = getcwd();
#Note -- This line is to silence some errors using Apache::Test v. 1.19
eval 'use lib $directory';
$directory = "$directory/t" if (-d 't');

my $index = undef;
my $dbh = undef;
my $count = &count;

eval <<'EVAL';
	use DBI;
	$dbh = DBI->connect('DBI:mysql:test', 'test', '');
EVAL

t/conf/extra.conf.in  view on Meta::CPAN

PerlTaintCheck on
<Perl>
	use strict;
	use lib '@ServerRoot@/../blib/lib';
	use Apache::Wyrd::Services::Key;
	Apache::Wyrd::Services::Key->instance('A predictable keyphrase.');
</Perl>
PerlModule Apache::Wyrd::Request
<Location />
	SetHandler perl-script
	PerlHandler TESTCLIENT::Handler
</Location>
<Location /restricted/>
	SetHandler	perl-script