Skip to content

Instantly share code, notes, and snippets.

@davorg
Created December 6, 2020 12:36
Show Gist options
  • Save davorg/faab75c5f40c9a580aa532f441442eb6 to your computer and use it in GitHub Desktop.
Save davorg/faab75c5f40c9a580aa532f441442eb6 to your computer and use it in GitHub Desktop.
Simple program to find CPAN distributions by an author that do not include information about a bugtracker
#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use MetaCPAN::Client;
my $author_name = shift
or die "Usage: $0 CPAN_AUTHOR_ID\n";
my $mcpan = MetaCPAN::Client->new;
my $author = $mcpan->author($author_name);
my $releases = $author->releases;
while ( my $rel = $releases->next ) {
next if $rel->resources->{bugtracker}{web};
say 'Distribution ', $rel->distribution,
' does not include bugtracker information';
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment