refactor the hardcoded attribute stuff in as_dot
[scpubgit/stemmatology.git] / stemmaweb / lib / stemmaweb.pm
1 package stemmaweb;
2 use Moose;
3 use namespace::autoclean;
4
5 use Catalyst::Runtime 5.80;
6
7 # Set flags and add plugins for the application.
8 #
9 # Note that ORDERING IS IMPORTANT here as plugins are initialized in order,
10 # therefore you almost certainly want to keep ConfigLoader at the head of the
11 # list if you're using it.
12 #
13 #         -Debug: activates the debug mode for very useful log messages
14 #   ConfigLoader: will load the configuration from a Config::General file in the
15 #                 application's home directory
16 # Static::Simple: will serve static files from the application's root
17 #                 directory
18
19 use Catalyst qw/
20     -Debug
21     ConfigLoader
22     Static::Simple
23     Unicode::Encoding
24 /;
25
26 extends 'Catalyst';
27
28 our $VERSION = '0.01';
29
30 # Configure the application.
31 #
32 # Note that settings in stemmaweb.conf (or other external
33 # configuration file that you set up manually) take precedence
34 # over this when using ConfigLoader. Thus configuration
35 # details given here can function as a default configuration,
36 # with an external configuration file acting as an override for
37 # local deployment.
38
39 __PACKAGE__->config(
40     name => 'stemmaweb',
41     # Disable deprecated behavior needed by old applications
42     disable_component_resolution_regex_fallback => 1,
43     default_view => 'TT',
44         'View::JSON' => {
45                 expose_stash => 'result',
46         },
47 );
48
49 # Start the application
50 __PACKAGE__->setup();
51
52
53 =head1 NAME
54
55 stemmaweb - Catalyst based application
56
57 =head1 SYNOPSIS
58
59     script/stemmaweb_server.pl
60
61 =head1 DESCRIPTION
62
63 [enter your description here]
64
65 =head1 SEE ALSO
66
67 L<stemmaweb::Controller::Root>, L<Catalyst>
68
69 =head1 AUTHOR
70
71 Tara L Andrews
72
73 =head1 LICENSE
74
75 This library is free software. You can redistribute it and/or modify
76 it under the same terms as Perl itself.
77
78 =cut
79
80 1;