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

package TestApp::Model;
use Moose;
use namespace::clean -except => 'meta';

extends 'Catalyst::Model';

# Test a closure here, r10394 made this blow up when we clone the config down
# onto the subclass..
__PACKAGE__->config(
    escape_flags => {
        'js' => sub { ${ $_[0] } =~ s/\'/\\\'/g; },
    }
);

__PACKAGE__->meta->make_immutable;
Commit	Line	Data
b99e1171	1	package TestApp::Model;
	2	use Moose;
	3	use namespace::clean -except => 'meta';
	4
	5	extends 'Catalyst::Model';
	6
	7	# Test a closure here, r10394 made this blow up when we clone the config down
	8	# onto the subclass..
	9	__PACKAGE__->config(
	10	escape_flags => {
	11	'js' => sub { ${ $_[0] } =~ s/\'/\\\'/g; },
	12	}
	13	);
	14
	15	__PACKAGE__->meta->make_immutable;
	16