helpers/generate-license

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 use Software::LicenseUtils;
   6
   7 my ($authors, @licenses) = @ARGV;
   8
   9 my %uniq;
  10 print
  11   join "\n\n",
  12   map { $_->new({holder => $authors})->license }
  13   grep { !$uniq{$_}++ }
  14   map { Software::LicenseUtils->guess_license_from_meta_key($_, 2) }
  15   @licenses;