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