[ViewVC] Contents of: cvs/Net-IRC3/scripts/kwalitee

#!/opt/perl/bin/perl
use Module::CPANTS::Analyse;
my $ana = Module::CPANTS::Analyse->new ({
   dist => $ARGV[0]
});
$ana->unpack;
$ana->analyse;
$ana->calc_kwalitee;
use Data::Dumper;
for (keys %{$ana->d->{kwalitee}}) {
   printf "%-30s %s\n", $_, $ana->d->{kwalitee}->{$_}
}
Revision:	1.1
Committed:	Sun Feb 25 10:58:59 2007 UTC (17 years, 3 months ago) by elmex
Branch:	MAIN
CVS Tags:	HEAD
Log Message:	raised kwalitee score and raised coverage of the tests a bit.
#	Content
1	#!/opt/perl/bin/perl
2	use Module::CPANTS::Analyse;
3	my $ana = Module::CPANTS::Analyse->new ({
4	dist => $ARGV[0]
5	});
6	$ana->unpack;
7	$ana->analyse;
8	$ana->calc_kwalitee;
9	use Data::Dumper;
10	for (keys %{$ana->d->{kwalitee}}) {
11	printf "%-30s %s\n", $_, $ana->d->{kwalitee}->{$_}
12	}