[catagits/Catalyst-Runtime.git] / t / lib / TestApp / Controller / Keyword.pm

package TestApp::Controller::Keyword;

use strict;
use base 'Catalyst::Controller';

#
# Due to 'actions' being used as an attribute up to cat 5.80003 using this name
# for an action causes a weird error, as this would be called during BUILD time
# of the Catalyst::Controller class
#

sub actions : Local {
    my ( $self, $c ) = @_;
    die("Call to controller action method without context! Probably naming clash") unless $c;
    $c->res->output("Test case for using 'actions' as a catalyst action name\n");
}

1;
Commit	Line	Data
637be086	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;