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

#!/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;
Commit	Line	Data
c97878e5	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;