The then tucs now metacpan API we use for checking dists isn't workin…

…g, so don't bother
davorg · Feb 3, 2022 · e9d9a9c · e9d9a9c
1 parent 9192e57
commit e9d9a9c
Show file tree

Hide file tree

Showing 4 changed files with 1 addition and 148 deletions.
diff --git a/lib/CPANRatings/Control.pm b/lib/CPANRatings/Control.pm
@@ -1,8 +1,7 @@
 package CPANRatings::Control;
 use Moose;
-extends qw(Combust::Control Combust::Control::Bitcard::DBIC Combust::Control::StaticFiles);
+extends qw(Combust::Control Combust::Control::StaticFiles);
 use LWP::Simple qw(get);
-use CPANRatings::Model::SearchCPAN;
 use Combust::Constant qw(OK);
 use PerlOrg::Template::Filters;
 

diff --git a/lib/CPANRatings/Control/Search.pm b/lib/CPANRatings/Control/Search.pm
@@ -1,7 +1,6 @@
 package CPANRatings::Control::Search;
 use strict;
 use base qw(CPANRatings::Control);
-use CPANRatings::Model::SearchCPAN;
 use Combust::Constant qw(OK);
 
 sub render {

diff --git a/lib/CPANRatings/Control/Show.pm b/lib/CPANRatings/Control/Show.pm
@@ -1,7 +1,6 @@
 package CPANRatings::Control::Show;
 use strict;
 use base qw(CPANRatings::Control);
-use CPANRatings::Model::SearchCPAN qw();
 use Combust::Constant qw(OK NOT_FOUND);
 use URI::Escape qw(uri_escape);
 
@@ -18,9 +17,6 @@ sub render {
     return NOT_FOUND
       unless ($mode eq 'dist' or $mode eq 'd');
 
-    return NOT_FOUND
-      unless (CPANRatings::Model::SearchCPAN->valid_distribution($id));
-
     my $metacpan = 'https://metacpan.org/release/' . uri_escape($id);
 
     if ($format eq "html") {

diff --git a/lib/CPANRatings/Model/SearchCPAN.pm b/lib/CPANRatings/Model/SearchCPAN.pm