license file generation

[p5sagit/Distar.git] / helpers / generate-license

diff --git a/helpers/generate-license b/helpers/generate-license
new file mode 100755 (executable)
index 0000000..1229056
--- /dev/null
+++ b/helpers/generate-license
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+use Software::LicenseUtils;
+
+my ($authors, @licenses) = @ARGV;
+
+my %uniq;
+print
+  join "\n\n",
+  map { $_->new({holder => $authors})->license }
+  grep { !$uniq{$_}++ }
+  map { Software::LicenseUtils->guess_license_from_meta_key($_, 2) }
+  @licenses;