package Apache::Crash;
# File: Apache/Crash.pm
use strict;
use Apache::Constants qw(:common);
use constant CRASH => 1;

sub handler {
    my $r = shift;
    return SERVER_ERROR if CRASH;
    $r->content_type('text/plain');
    $r->send_http_header;
    return OK if $r->header_only;
    $r->print('Half a haddock is better than none.');
    return OK;
}

1;
__END__