mod_perl and http status codes

[clintonm9]

I am writing a RESTFul mod_perl program and having a hard time sending different http status codes back to the client. I am currently using the Apache2::Registry handler. I have tried many different wants to send back a different status code with no luck.

my($r) = shift;
$r->status_line("401");

I have also tried with no luck:

return Apache2::Const::HTTP_UNAUTHORIZED;

&

return Apache2::Status::HTTP_UNAUTHORIZED;

Do i have to write my own handle to send back different error status?

[jdrago999]

Works like this:

package My::Handler;

use strict;
use warnings 'all';
use Apache2::RequestRec;

sub handler : method {
  my ($class, $r) = @_;

  $r->status( 401 );
  return 401;
}

1;# return true:

[clintonm9]

Thank you that worked!