instant_dav_apache2.pl

#!perl
use strict;
use warnings;
use Getopt::Long;
use Test::Httpd::Apache2;
use Path::Class;

my $port = 5000;
my $root = '.';

Getopt::Long::GetOptions(
    p => \$port,
    d => \$root,
);
$root = dir($root)->absolute;


my $apache = Test::Httpd::Apache2->new( 
    auto_start => 0,
    listen => $port,
    required_modules => ['dav', 'dav_fs'],
);
my $tmpdir = $apache->tmpdir;

my $conf = <<END;
DavLockDB "$tmpdir/DavLock"
DocumentRoot "$root"
<Directory "/">
Dav on
</Directory>
END
$apache->custom_conf($conf);
$apache->start;

while (1) {}