Get licence from module

[andreas1234567]

Given a list of modules, how do I produce a list of licences used? Is there a module on cpan that will take me half-way or even to the finish? Pseudo-code:

while(<DATA>) {
  print $_ . " - " . get_licence($_);
}
__DATA__
DateTime
JSON::Schema 
Parse::Dia::SQL

Where the expected output would be:

DateTime - The Artistic License 2.0
JSON::Schema - The MIT Licence
Parse::Dia::SQL - GNU General Public License.

[toolic]

Module::CPANTS::Kwalitee::License looks promising. From the SYNOPSIS:

Checks if the disttribution specifies a license.

[andreas1234567]

Yes, that might work:
Read more... (1343 Bytes)
Output:

$ perl analyse-poc.pl
List-MoreUtils-0.22.tar.gz : Software::License::Perl_5
Log-Dispatch-2.22.tar.gz : perl
Mail-Sendmail-0.79.tar.gz : no license found

Thanks!