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

package TestApp::Controller::Action::ConfigSmashArrayRefs;

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

 sub foo : Action {}

# check configuration for an inherited action
__PACKAGE__->config(
    action => {
        foo => { CustomAttr => [ 'Bar' ] }
    }
);

sub _parse_CustomAttr_attr {
    my ($self, $app, $name, $value) = @_;
    warn $value;
    return CustomAttr => "PoopInYourShoes";
}


1;
Commit	Line	Data
e95b2b49	1	package TestApp::Controller::Action::ConfigSmashArrayRefs;
	2
	3	use strict;
	4	use base 'Catalyst::Controller';
	5
	6	sub foo : Action {}
	7
	8	# check configuration for an inherited action
	9	__PACKAGE__->config(
	10	action => {
	11	foo => { CustomAttr => [ 'Bar' ] }
	12	}
	13	);
	14
	15	sub _parse_CustomAttr_attr {
	16	my ($self, $app, $name, $value) = @_;
	17	warn $value;
	18	return CustomAttr => "PoopInYourShoes";
	19	}
	20
	21
	22	1;
	23