package CatDap; use Moose; use namespace::autoclean; use Catalyst::Runtime 5.80; # Set flags and add plugins for the application # # -Debug: activates the debug mode for very useful log messages # ConfigLoader: will load the configuration from a Config::General file in the # application's home directory # Static::Simple: will serve static files from the application's root # directory use Catalyst qw/ ConfigLoader Static::Simple Session Session::State::Cookie Session::Store::File Captcha Authentication Authorization::Roles I18N Unicode::Encoding /; extends 'Catalyst'; our $VERSION = '0.01'; $VERSION = eval $VERSION; # Configure the application. # # Note that settings in catdap.conf (or other external # configuration file that you set up manually) take precedence # over this when using ConfigLoader. Thus configuration # details given here can function as a default configuration, # with an external configuration file acting as an override for # local deployment. __PACKAGE__->config( name => 'CatDap', # Disable deprecated behavior needed by old applications disable_component_resolution_regex_fallback => 1, ); sub begin : Private { my ( $self, $c ) = @_; my $locale = $c->request->param('locale'); $c->response->headers->push_header( 'Vary' => 'Accept-Language' ); # hmm vary and param? $c->languages( $locale ? [ $locale ] : undef ); } #c->languages(['af']); # Start the application __PACKAGE__->setup(); =head1 NAME CatDap - Catalyst based application =head1 SYNOPSIS script/catdap_server.pl =head1 DESCRIPTION [enter your description here] =head1 SEE ALSO L, L =head1 AUTHOR Buchan Milne =head1 LICENSE This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself. =cut sub end : ActionClass('RenderView') {} 1;