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 |