package Test::Catalyst::Action::REST::Controller::REST;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
-use base 'Catalyst::Controller::REST';
+BEGIN { extends 'Catalyst::Controller::REST' }
sub test : Local {
my ( $self, $c ) = @_;
);
}
+sub test_status_multiple_choices : Local {
+ my ( $self, $c ) = @_;
+ $self->status_multiple_choices(
+ $c,
+ location => '/rest/choice1',
+ entity => { choices => [qw(/rest/choice1 /rest/choice2)] }
+ );
+}
+
sub test_status_accepted : Local {
my ( $self, $c ) = @_;
$self->status_accepted( $c, entity => { status => "queued", } );