5 use Software::LicenseUtils;
6 use Getopt::Long qw(:config gnu_getopt);
9 "o|output=s" => \(my $output = '-'),
10 ) or die("Error in command line arguments!\n");
12 my ($authors, @licenses) = @ARGV;
19 open $out, '>', $output
20 or die "Unable to write to $output: $!\n";
26 map { $_->new({holder => $authors})->license }
28 map { Software::LicenseUtils->guess_license_from_meta_key($_, 2) }