|
210
|
1 #!/usr/bin/perl
|
|
|
2 use strict;
|
|
395
|
3
|
|
406
|
4 use YAML::XS;
|
|
|
5 $YAML::XS::DumpCode = 1;
|
|
210
|
6
|
|
406
|
7 my $conf = {
|
|
|
8 '@include' => [qw(security view)],
|
|
|
9 runtime => {
|
|
|
10 type => 'IMPL::Web::Application',
|
|
|
11 params => {
|
|
|
12 handlers => {depdendency => 'filters'}
|
|
|
13 }
|
|
|
14 },
|
|
|
15 filters => [
|
|
|
16 { type => 'IMPL::Web::CookieAuth' },
|
|
|
17 { type => 'IMPL::Web::Security' },
|
|
|
18 { type => 'IMPL::Web::LocaleHandler',
|
|
|
19 params => {
|
|
|
20 locales => [
|
|
|
21 'en-US',
|
|
|
22 'ru-RU'
|
|
|
23 ],
|
|
|
24 default => 'en-US'
|
|
|
25 }
|
|
|
26 },
|
|
|
27 { type => 'IMPL::Web::ContentNegotiation' },
|
|
|
28 { type => 'IMPL::Web::RestController' }
|
|
|
29 ],
|
|
|
30 custom => {
|
|
|
31 factory => sub { return "hi!" }
|
|
|
32 }
|
|
|
33 };
|
|
395
|
34
|
|
406
|
35 print Dump($conf);
|
|
|
36
|
|
|
37 1; |
