[ViewVC] Annotation 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 (19 years, 6 months ago) by elmex
Branch:	MAIN
CVS Tags:	HEAD
Log Message:	raised kwalitee score and raised coverage of the tests a bit.
#	User	Rev	Content
1	elmex	1.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			}