|
|
|
@ -136,7 +136,6 @@ sub HEAD :Allow {
|
|
|
|
|
$c->response->body(q());
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub OPTIONS :Allow {
|
|
|
|
|
my ($self, $c) = @_;
|
|
|
|
|
my $allowed_methods = $self->allowed_methods_filtered($c);
|
|
|
|
@ -148,13 +147,10 @@ sub OPTIONS :Allow {
|
|
|
|
|
$c->response->body(JSON::to_json({ methods => $allowed_methods })."\n");
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub end : Private {
|
|
|
|
|
my ($self, $c) = @_;
|
|
|
|
|
|
|
|
|
|
$self->log_response($c);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
no Moose;
|
|
|
|
|
1;
|
|
|
|
|
|
|
|
|
|