@@ -4,15 +4,14 @@ use Moose;
44
55# # no critic (Modules::RequireEndWithOne)
66use Catalyst qw( +MetaCPAN::Role::Fastly::Catalyst ) , ' -Log=warn,error,fatal' ;
7- use Log::Log4perl::Catalyst;
8-
97use CatalystX::RoleApplicator;
8+ use Digest::SHA;
109use File::Temp qw( tempdir ) ;
10+ use Log::Log4perl::Catalyst;
11+ use Plack::Builder;
1112use Plack::Middleware::ReverseProxy;
1213use Plack::Middleware::ServerStatus::Lite;
1314use Ref::Util qw( is_arrayref is_hashref ) ;
14- use Plack::Builder;
15- use Digest::SHA;
1615
1716extends ' Catalyst' ;
1817
@@ -123,23 +122,6 @@ sub app {
123122 enable ' Rewrite' , rules => sub {s { ^/?v\d +/} {} } ;
124123 }
125124
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- }
143125 $class -> apply_default_middlewares( $class -> psgi_app );
144126 };
145127}
0 commit comments