Re^2: Get licence from module

[andreas1234567]

Yes, that might work:

use strict;
use warnings;
no warnings q{uninitialized};

use Data::Dumper;
use Module::CPANTS::Analyse;

while (<DATA>) {
  chomp;
  my $dist = $_;
  print $dist . " : "; 
  my $analyser =
    Module::CPANTS::Analyse->new({ dist => "$dist", });
  $analyser->unpack;
  $analyser->analyse;
  $analyser->calc_kwalitee;

  my $hashref = $analyser->d;
#  print Dumper $hashref;
#  print Dumper $hashref->{meta_yml};

  # meta_yml->{license}
  if (exists($hashref->{meta_yml}->{license}) && $hashref->{meta_yml}-
+>{license} ne '') {
        print $hashref->{meta_yml}->{license} ."\n";
        next;
  }
  # license_type
  if (exists($hashref->{license_type}) && $hashref->{license_type} ne 
+'') {
        print $hashref->{license_type} ."\n";
        next;
  }

  print "no license found\n";
}


__DATA__
List-MoreUtils-0.22.tar.gz
Log-Dispatch-2.22.tar.gz
Mail-Sendmail-0.79.tar.gz

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!