@@ -4,15 +4,14 @@ use Moose;
4
4
5
5
# # no critic (Modules::RequireEndWithOne)
6
6
use Catalyst qw( +MetaCPAN::Role::Fastly::Catalyst ) , ' -Log=warn,error,fatal' ;
7
- use Log::Log4perl::Catalyst;
8
-
9
7
use CatalystX::RoleApplicator;
8
+ use Digest::SHA;
10
9
use File::Temp qw( tempdir ) ;
10
+ use Log::Log4perl::Catalyst;
11
+ use Plack::Builder;
11
12
use Plack::Middleware::ReverseProxy;
12
13
use Plack::Middleware::ServerStatus::Lite;
13
14
use Ref::Util qw( is_arrayref is_hashref ) ;
14
- use Plack::Builder;
15
- use Digest::SHA;
16
15
17
16
extends ' Catalyst' ;
18
17
@@ -123,23 +122,6 @@ sub app {
123
122
enable ' Rewrite' , rules => sub {s { ^/?v\d +/} {} } ;
124
123
}
125
124
126
- # Using an ES client against the API requires an index (/v0).
127
- # In production nginx handles this.
128
-
129
- unless ( $ENV {HARNESS_ACTIVE } or $0 =~ / \. t$ / ) {
130
- my $scoreboard = $class -> path_to(qw( var tmp scoreboard) );
131
-
132
- # This may be a File object if it doesn't exist so change it, then make it.
133
- my $dir = Path::Class::Dir-> new(
134
- ref $scoreboard ? $scoreboard -> stringify : $scoreboard );
135
- $dir -> mkpath unless -d $dir ;
136
-
137
- enable ' ServerStatus::Lite' ,
138
- path => ' /server-status' ,
139
- allow => [' 127.0.0.1' ],
140
- scoreboard => $scoreboard ,
141
- ;
142
- }
143
125
$class -> apply_default_middlewares( $class -> psgi_app );
144
126
};
145
127
}
0 commit comments