lib/LXRng/ModPerl.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

package LXRng::ModPerl;

use strict;
use LXRng;
use LXRng::Web;

use Apache2::Const -compile => qw(FORBIDDEN OK);
use CGI;

use Data::Dumper;

sub handler {
    my ($req) = @_;

    my $query = CGI->new();
    LXRng::Web->handle($query);

    return Apache2::Const::OK;
}

1;