2_0_5/t/response/TestModperl/status.pm

package TestModperl::status;

use strict;
use warnings;

use Apache2::RequestRec;
use Apache2::Const -compile => qw(DECLINED);

use ModPerl::Util;
use Apache::TestUtil qw(t_server_log_error_is_expected);

sub handler {

    my $rc = shift->args;

    if ($rc eq 'die' ||
        $rc eq Apache2::Const::DECLINED ||
        $rc =~ m/foo/) {
        t_server_log_error_is_expected();
    }

    ModPerl::Util::exit if $rc eq 'exit';

    die if $rc eq 'die';

    return if $rc eq 'undef';

    return $rc;
}

1;
__END__