4 use warnings FATAL => 'all';
8 warnings->import(FATAL => 'all');
9 warnings->unimport('syntax');
10 warnings->import(FATAL => qw(
11 ambiguous bareword digit parenthesis precedence printf
12 prototype qw reserved semicolon
14 my ($class, $app_package) = @_;
15 $class->_export_into($app_package);
19 my ($class, $app_package) = @_;
22 *{"${app_package}::dispatch"} = sub {
23 $app_package->_setup_dispatchables(@_);
25 *{"${app_package}::filter_response"} = sub (&) {
26 $app_package->_construct_response_filter($_[0]);
28 *{"${app_package}::default_config"} = sub {
30 *{"${app_package}::_default_config"} = sub { @defaults };
32 *{"${app_package}::self"} = \${"${app_package}::self"};
33 require Web::Simple::Application;
34 unshift(@{"${app_package}::ISA"}, 'Web::Simple::Application');