t/lib/TestApp/Controller/Keyword.pm

   1 package TestApp::Controller::Keyword;
   2
   3 use strict;
   4 use base 'Catalyst::Controller';
   5
   6 #
   7 # Due to 'actions' being used as an attribute up to cat 5.80003 using this name
   8 # for an action causes a weird error, as this would be called during BUILD time
   9 # of the Catalyst::Controller class
  10 #
  11
  12 sub actions : Local {
  13     my ( $self, $c ) = @_;
  14     die("Call to controller action method without context! Probably naming clash") unless $c;
  15     $c->res->output("Test case for using 'actions' as a catalyst action name\n");
  16 }
  17
  18 1;