diff --git a/cpanfile b/cpanfile index efd1bfd02..e10a5ee2e 100644 --- a/cpanfile +++ b/cpanfile @@ -67,7 +67,6 @@ requires 'IO::Prompt::Tiny'; requires 'IO::Uncompress::Bunzip2', '2.106'; requires 'IO::Zlib'; requires 'IPC::Run3', '0.048'; -requires 'JSON::MaybeXS', '1.004004'; # indirect dep requires 'List::Util', '1.62'; requires 'Log::Any::Adapter'; requires 'Log::Any::Adapter::Log4perl'; diff --git a/lib/MetaCPAN/Script/Tickets.pm b/lib/MetaCPAN/Script/Tickets.pm index 4faa209a8..120696144 100644 --- a/lib/MetaCPAN/Script/Tickets.pm +++ b/lib/MetaCPAN/Script/Tickets.pm @@ -7,11 +7,11 @@ use namespace::autoclean; $ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0; use HTTP::Request::Common qw( GET ); -use Log::Contextual qw( :log :dlog ); -use Net::GitHub::V4 (); -use Ref::Util qw( is_hashref is_ref ); -use Text::CSV_XS (); -use URI::Escape qw( uri_escape ); +use Log::Contextual qw( :log :dlog ); +use Net::GitHub::V4 (); +use Ref::Util qw( is_hashref is_ref ); +use Text::CSV_XS (); +use URI::Escape qw( uri_escape ); with 'MetaCPAN::Role::Script', 'MooseX::Getopt'; @@ -21,12 +21,6 @@ has rt_summary_url => ( default => 'https://rt.cpan.org/Public/bugs-per-dist.tsv', ); -has github_issues => ( - is => 'ro', - required => 1, - default => 'https://api.github.com/repos/%s/%s/issues?per_page=100', -); - has github_token => ( is => 'ro', lazy => 1, @@ -117,8 +111,6 @@ sub index_github_bugs { my %summary; - my $json = JSON::MaybeXS->new( allow_nonref => 1 ); - RELEASE: while ( my $release = $scroll->next ) { my $resources = $release->resources; my ( $user, $repo, $source ) @@ -261,7 +253,7 @@ sub parse_tsv { source => $self->rt_dist_url( $row->{dist} ), active => $row->{active}, closed => $row->{inactive}, - map { $_ => $row->{$_} + 0 } + map { $_ => $row->{$_} + 0 } grep { not /^(dist|active|inactive)$/ } keys %$row, }; @@ -312,4 +304,3 @@ http://fastapi.metacpan.org/v1/distribution/Moose http://fastapi.metacpan.org/v1/distribution/HTTP-BrowserDetect =cut - diff --git a/t/00_setup.t b/t/00_setup.t index 982dbeb11..b0341ff21 100644 --- a/t/00_setup.t +++ b/t/00_setup.t @@ -117,11 +117,6 @@ ok( scheme => 'file', path => $fakecpan_dir->child('bugs.tsv')->absolute->stringify, ), - github_issues => uri( - scheme => 'file', - path => $fakecpan_dir->child('github')->absolute->stringify - . '/%s/%s.json?per_page=100' - ), } )->run, 'tickets' );