Commit | Line | Data |
---|---|---|
4585dfb1 | 1 | package TestApp;\r |
2 | \r | |
3 | use strict;\r | |
4 | use Catalyst;\r | |
5 | use Data::Dumper;\r | |
6 | \r | |
7 | our $VERSION = '0.01';\r | |
8 | \r | |
9 | TestApp->config(\r | |
10 | name => 'TestApp',\r | |
11 | );\r | |
12 | \r | |
13 | TestApp->setup( qw/RequireSSL/ );\r | |
14 | \r | |
15 | sub default : Private {\r | |
16 | my ( $self, $c ) = @_;\r | |
17 | \r | |
18 | }\r | |
19 | \r | |
20 | 1;\r |