tool for Coke++

rakudo · Oct 22, 2015 · fb39bda · fb39bda
1 parent a76c349
commit fb39bda
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/docs/release_guide.pod b/docs/release_guide.pod
@@ -26,6 +26,10 @@ Names can be gotten from L<http://www.pm.org> if you
 canʼt think of one with any particular significance to Perl
 6 or Rakudo.
 
+There is a rudimentary tool for discerning available Perl Monger group
+names that have not already been used for a release in 
+F<tools/available-pm-names.p6>
+
 =head2 Steps to create a release (for release managers)
 
 =over 4

diff --git a/tools/available-pm-names.p6 b/tools/available-pm-names.p6
@@ -0,0 +1,8 @@
+#!/usr/bin/env perl6
+
+use LWP::Simple;
+
+my $json = LWP::Simple.get("http://www.pm.org/groups/perl_mongers.json");
+my @pm-names = from-json($json).map:{ $_<name> ~~ s/ '.pm' $//; $_<name> };
+my @release-names = grep { / ^ <[A..Z]> \w+ / }, qx{git tag}.lines;
+.say for (@pm-names (-) @release-names).map(*.key).sort;