Tidy some files

Author: oalders

app.psgi

@@ -12,7 +12,6 @@ use Config::ZOMG       ();
 use Log::Log4perl      ();
 use Log::Log4perl::MDC ();
 use File::Spec         ();
-use File::Path         ();
 use Plack::Builder     qw( builder enable );
 use Digest::SHA        ();
 
@@ -46,7 +45,7 @@ BEGIN {
 }
 
 use lib "$root_dir/lib";
-use MetaCPAN::Web;
+use MetaCPAN::Web ();
 
 STDERR->autoflush;
 

lib/MetaCPAN/Middleware/Static.pm

@@ -1,12 +1,11 @@
 package MetaCPAN::Middleware::Static;
 use strict;
 use warnings;
-use Plack::Builder           qw( builder enable mount );
-use Plack::App::File         ();
-use JavaScript::Minifier::XS ();
-use Cwd                      qw( cwd );
-use Plack::MIME              ();
-use JSON::MaybeXS            ();
+use Plack::Builder   qw( builder enable mount );
+use Plack::App::File ();
+use Cwd              qw( cwd );
+use Plack::MIME      ();
+use JSON::MaybeXS    ();
 
 Plack::MIME->add_type(
     '.eot'   => 'application/vnd.ms-fontobject',

lib/MetaCPAN/Web/Controller/About.pm

@@ -2,7 +2,7 @@ package MetaCPAN::Web::Controller::About;
 
 use Moose;
 
-use Cpanel::JSON::XS qw(encode_json);
+use Cpanel::JSON::XS qw( encode_json );
 
 BEGIN { extends 'MetaCPAN::Web::Controller' }
 

lib/MetaCPAN/Web/Controller/Feed.pm

@@ -5,14 +5,16 @@ use namespace::autoclean;
 
 BEGIN { extends 'MetaCPAN::Web::Controller' }
 
-use DateTime             ();
-use HTML::Escape         qw( escape_html );
-use MetaCPAN::Web::Types qw( ArrayRef Enum HashRef Str Undef Uri DateTime );
+use DateTime                  ();
+use HTML::Escape              qw( escape_html );
+use MetaCPAN::Web::RenderUtil qw( render_markdown );
+use MetaCPAN::Web::Types qw( ArrayRef DateTime Enum HashRef Str Undef Uri );
 use Params::ValidationCompiler qw( validation_for );
 use Path::Tiny                 qw( path );
-use MetaCPAN::Web::RenderUtil  qw( render_markdown );
+use XML::FeedPP::RDF           ();
+use XML::FeedPP::RSS           ();
+use XML::FeedPP::Atom::Atom10  ();
 use URI                        ();
-use XML::FeedPP                ();
 
 sub recent_rdf : Path('/recent.rdf') Args(0) {
     my ( $self, $c ) = @_;
@@ -248,14 +250,12 @@ sub build_feed {
     my $self   = shift;
     my %params = $feed_check->(@_);
 
-    my $format
-        = $params{format} eq 'rdf'  ? 'RDF'
-        : $params{format} eq 'rss'  ? 'RSS'
-        : $params{format} eq 'atom' ? 'Atom::Atom10'
+    my $feed_class
+        = $params{format} eq 'rdf'  ? XML::FeedPP::RDF::
+        : $params{format} eq 'rss'  ? XML::FeedPP::RSS::
+        : $params{format} eq 'atom' ? XML::FeedPP::Atom::Atom10::
         :                             die 'invalid format';
 
-    my $feed_class = "XML::FeedPP::$format";
-
     my $feed = $feed_class->new;
     $feed->title( $params{title} );
     $feed->link("$params{link}");

lib/MetaCPAN/Web/Model/API/Pod.pm

@@ -2,7 +2,7 @@ package MetaCPAN::Web::Model::API::Pod;
 use Moose;
 use namespace::autoclean;
 
-use MetaCPAN::Web::RenderUtil qw( split_index filter_html );
+use MetaCPAN::Web::RenderUtil qw( filter_html split_index );
 use Encode                    qw( encode );
 use Future                    ();
 use HTML::TokeParser          ();

lib/MetaCPAN/Web/Model/GitHub.pm

@@ -7,14 +7,12 @@ use namespace::autoclean;
 
 use Cpanel::JSON::XS qw( decode_json encode_json );
 
-use IO::Async::Loop       ();
-use IO::Async::SSL        ();
-use IO::Socket::SSL       qw( SSL_VERIFY_PEER );
-use Net::Async::HTTP      ();
-use HTTP::Request::Common ();
-use MIME::Base64          qw(encode_base64url);
-use Crypt::OpenSSL::RSA   ();
-use Ref::Util             qw(is_arrayref is_hashref);
+use IO::Async::Loop     ();
+use IO::Socket::SSL     qw( SSL_VERIFY_PEER );
+use Net::Async::HTTP    ();
+use MIME::Base64        qw( encode_base64url );
+use Crypt::OpenSSL::RSA ();
+use Ref::Util           qw( is_arrayref is_hashref );
 
 my $loop;
 

lib/MetaCPAN/Web/RenderUtil.pm

@@ -8,7 +8,20 @@ use HTML::Escape   qw( escape_html );
 use HTML::Restrict ();
 use URI            ();
 use Digest::MD5    ();
-use CommonMark     qw( :node :event );
+use CommonMark     qw(
+    EVENT_ENTER
+    EVENT_EXIT
+    NODE_CODE
+    NODE_CODE_BLOCK
+    NODE_DOCUMENT
+    NODE_HEADER
+    NODE_HRULE
+    NODE_HTML
+    NODE_INLINE_HTML
+    NODE_LINEBREAK
+    NODE_SOFTBREAK
+    NODE_TEXT
+);
 
 our @EXPORT_OK = qw(
     filter_html

static-app.psgi

@@ -1,11 +1,12 @@
 use strict;
 use warnings;
-use Plack::Builder;
+use Plack::Builder qw( builder enable mount );
 use Plack::App::Proxy;
-use File::Basename;
-use Config::ZOMG ();
+use File::Basename ();
+use Config::ZOMG   ();
 
-my $root_dir; BEGIN { $root_dir = File::Basename::dirname(__FILE__); }
+my $root_dir;
+BEGIN { $root_dir = File::Basename::dirname(__FILE__); }
 use lib "$root_dir/lib";
 
 my $port = $ENV{METACPAN_WEB_PORT} || 5001;
@@ -17,8 +18,8 @@ my $config = Config::ZOMG->open(
 
 builder {
     enable '+MetaCPAN::Middleware::Static' => (
-        root => $root_dir,
-        config => $config,
+        root     => $root_dir,
+        config   => $config,
         dev_mode => 1,
     );
     enable sub {
@@ -31,10 +32,10 @@ builder {
         };
     };
     mount '/' => Plack::App::Proxy->new(
-        remote => "http://localhost:$port",
+        remote               => "http://localhost:$port",
         preserve_host_header => 1,
-        backend => 'LWP',
-        options => {
+        backend              => 'LWP',
+        options              => {
             env_proxy => 0,
         },
     )->to_app;