The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Apache2::REST::ErrorOutputHandler::response ;
use strict ;
use base qw/Apache2::REST::ErrorOutputHandler/ ;


sub handle{
    my ($self , $e , $resp , $req  ) = @_ ;
    $resp->message('SERVER ERROR: '.$e);
}


1;