#!/usr/local/bin/perl5.8.8 -w

eval 'exec /usr/local/bin/perl5.8.8 -w -S $0 ${1+"$@"}'
    if 0; # not running under some shell
use strict;

use Module::CPANTS::Analyse;
use Getopt::Std;
use IO::Capture::Stdout;
use Data::Dumper;

my %opts;
getopts('d',\%opts);

my $dist=shift(@ARGV);

die "usage: cpants_lint.pl path/to/Foo-Dist-1.42.tgz\n" unless $dist;
die "Cannot find $dist\n" unless -e $dist;

my $mca=Module::CPANTS::Analyse->new({dist=>$dist});
my $cannot_unpack=$mca->unpack;
if ($cannot_unpack) {
    if ($opts{d}) {
        print Dumper($mca->d);
    } else {
        print "Cannot unpack \t\t".$mca->tarball,"\n";
    }
    exit;
}
$mca->analyse;
$mca->calc_kwalitee;


if ($opts{d}) {
    $Data::Dumper::Sortkeys=1;
    print Dumper($mca->d);
} else {

    # build up lists of failed metrics
    my (@core_failure,@opt_failure);
    my ($core_kw,$opt_kw)=(0,0);
    my $kwl=$mca->d->{kwalitee};
        
    foreach my $ind (@{$mca->mck->get_indicators}) {
        if ($ind->{is_extra}) {
            next if $ind->{name} eq 'is_prereq';
            if ($kwl->{$ind->{name}}) {
                $opt_kw++;
            } else {
                push(@opt_failure,"* ".$ind->{name}."\n".$ind->{remedy});
            }
        } else {
            if ($kwl->{$ind->{name}}) {
                $core_kw++;
            } else {
                push(@core_failure,"* ".$ind->{name}."\n".$ind->{remedy});
            }
        }
    }

    # output results 
    print "\n";
    print "Checked dist \t\t".$mca->tarball,"\n";

    my $max_core_kw=$mca->mck->available_kwalitee;
    my $max_kw=$mca->mck->total_kwalitee;
    my $total_kw=$core_kw+$opt_kw;

    print "Kwalitee rating\t\t".sprintf("%.2f",100*$total_kw/$max_core_kw)."% ($total_kw/$max_core_kw)\n";


    if ($total_kw == $max_kw -1) {  # -1 because of is_prereq
        print "\nCongratulations for building a 'perfect' distribution!\n";
    } else {
        if (@core_failure) {
            print "\nHere is a list of failed Kwalitee tests and\nwhat you can do to solve them:\n\n";
            print join ("\n\n",@core_failure,'');
        }
        if (@opt_failure) {
            print "\nFailed optional Kwalitee tests and\nwhat you can do to solve them:\n\n";
            print join ("\n\n",@opt_failure,'');
        }
    }
}
__END__

=head1 NAME

cpants_lint.pl - commandline frontend to Module::CPANTS::Analyse

=head1 SYNOPSIS

  cpants_lint.pl path/to/Foo-Dist-1.42.tgz

=head1 DESCRIPTION

See C<Module::CPANTS::Analyse>

=head1 AUTHOR

Thomas Klausner, <domm@cpan.org>, http://domm.zsi.at

=head1 LICENSE

You may use and distribute this module according to the same terms
that Perl is distributed under.

=cut