add license to META6.json, fix #15

skaji · Apr 21, 2017 · c5ac2b7 · c5ac2b7
1 parent 9bce964
commit c5ac2b7
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/META6.json b/META6.json
@@ -10,6 +10,7 @@
     "Shell::Command"
   ],
   "description" : "minimal authoring tool for Perl6",
+  "license" : "Artistic-2.0",
   "name" : "App::Mi6",
   "perl" : "6.c",
   "provides" : {

diff --git a/lib/App/Mi6.pm6 b/lib/App/Mi6.pm6
@@ -159,10 +159,22 @@ method regenerate-meta-info($module, $module-file) {
         version       => $already<version> || "*",
         resources     => $already<resources> || [],
         tags          => $already<tags> || [],
+        license       => $already<license> || guess-license(),
     ;
     ($meta-file || "META6.json").IO.spurt: App::Mi6::JSON.encode(%new-meta) ~ "\n";
 }
 
+sub guess-license() {
+    my $file = "LICENSE".IO;
+    return 'NOASSERTION' unless $file.e;
+    my @line = $file.lines;
+    if @line.elems == 201 && @line[0].index('The Artistic License 2.0') {
+        return 'Artistic-2.0';
+    } else {
+        return 'NOASSERTION';
+    }
+}
+
 sub find-description($module-file) {
     my $content = $module-file.IO.slurp;
     if $content ~~ /^^