package TestApReq::inherit;
use Apache2::Cookie;
use base qw/Apache2::Request Apache2::Cookie::Jar/;
use strict;
use warnings FATAL => 'all';

use APR;
use Apache2::RequestRec;
use Apache2::RequestIO;
use Apache2::Const -compile => qw(OK);

sub handler {
    my $r = shift;
    $r = __PACKAGE__->new($r); # tickles refcnt bug in apreq-1
    die "Wrong package: ", ref $r unless $r->isa('TestApReq::inherit');
    $r->content_type('text/plain');
    # look for segfault when $r->isa("Apache2::Request")

    my $req = bless { r => $r };
    $req->printf("method => %s\n", $req->method);
    $req->printf("cookie => %s\n", $req->cookies->{"apache"}->as_string);
    return Apache2::Const::OK;
}

sub DESTROY { $_[0]->print("DESTROYING ", __PACKAGE__, " object\n") }

1;