BEGIN { extends 'Catalyst::Controller::MessageDriven' };
sub testaction : Local {
- my ($self, $c) = @_;
+ my ($self, $c, $request) = @_;
# Reply with a minimal response message
my $response = { type => 'testaction_response' };
$c->stash->{response} = $response;
}
+sub badaction : Local {
+ my ($self, $c, $request) = @_;
+ die "oh noes";
+}
+
1;