Adds URLS

lib/Utils.pm6

@@ -32,3 +32,16 @@ sub get-issues($token) is export {
 sub modules-not-ok( $file = "data/blin-output.txt" ) is export {
     $file.IO.slurp.lines.grep(  / \– \s+ <!before OK>/ ).map( (*.words)[0] );
 }
+
+#! Issue per module
+sub issue-per-module( @tickets, @modules --> Hash ) is export {
+    my %issues-by-title = @tickets.map: { $_<title> => $_<url> };
+    my %issue-per-module;
+    for @modules -> $m {
+        %issue-per-module{$m} = %issues-by-title{$m}:exists??%issues-by-title{$m}!!Nil;
+    }
+    return %issue-per-module;
+
+}
+
+#| Edit issue

t/1.t6

@@ -10,10 +10,15 @@ ok Utils::url, "{Utils::url} is declared";
 my $file = "data/blin-output.txt".IO.e??"data/blin-output.txt"!!"../data/blin-output.txt";
 my @not-ok-modules = modules-not-ok( $file );
 ok @not-ok-modules, "Some modules are not OK";
+my @tickets;
 if %*ENV{'GH_TOKEN'} {
-    my @tickets = get-issues( %*ENV{'GH_TOKEN'} );
+    @tickets = get-issues( %*ENV{'GH_TOKEN'} );
     ok @tickets, "Downloads tickets";
     cmp-ok @tickets.elems, ">", 1, "There are tickets";
+    my %mapping = issue-per-module( @tickets, @not-ok-modules );
+    ok %mapping, "Mapping done";
+    dd %mapping;
 } else {
     skip "No token for issues",1;
 }
+