diff --git a/cpanfile b/cpanfile index d5b7c0a..9591056 100644 --- a/cpanfile +++ b/cpanfile @@ -9,7 +9,6 @@ requires "Net::SSLeay" => "1.49"; requires "Ref::Util" => "0"; requires "Safe::Isa" => "0"; requires "Search::Elasticsearch" => "== 2.03"; # pinned -requires "Try::Tiny" => "0"; requires "perl" => "5.010"; requires "strict" => "0"; requires "warnings" => "0"; diff --git a/lib/MetaCPAN/Client/Request.pm b/lib/MetaCPAN/Client/Request.pm index 1fc24a0..e6bb6b1 100644 --- a/lib/MetaCPAN/Client/Request.pm +++ b/lib/MetaCPAN/Client/Request.pm @@ -7,7 +7,6 @@ use Moo; use Carp; use JSON::MaybeXS qw; use Search::Elasticsearch; -use Try::Tiny; use HTTP::Tiny; use Ref::Util qw< is_arrayref is_hashref >; @@ -172,8 +171,12 @@ sub _decode_result { $url =~ m|/source/| and return $content; my $decoded_result; - try { $decoded_result = decode_json $content } - catch { croak "Couldn't decode '$content': $_" }; + eval { + $decoded_result = decode_json $content; + 1; + } or do { + croak "Couldn't decode '$content': $@"; + }; return $decoded_result; }