@rem = '--*-Perl-*--

@set "ErrorLevel="

@if "%OS%" == "Windows_NT" @goto WinNT

@perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9

@set ErrorLevel=%ErrorLevel%

@goto endofperl

:WinNT

@perl -x -S %0 %*

@set ErrorLevel=%ErrorLevel%

@if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" @goto endofperl

@if %ErrorLevel% == 9009 @echo You do not have Perl in your PATH.

@goto endofperl

@rem ';

#!/usr/bin/perl

#line 30

​

# ABSTRACT: list details of all kwalitee metrics installed on the system

# PODNAME: kwalitee-metrics

use strict;

use warnings;

use Module::CPANTS::Analyse 0.91;

​

my $verbose = @ARGV && ($ARGV[0] eq '--verbose' || $ARGV[0] eq '-v');

​

my $analyzer = Module::CPANTS::Analyse->new({

    distdir => '.',

    dist => '.',

    opts => { no_capture => 1 },

});

​

# TODO: MCA needs an API for doing this iteration.

​

for my $generator (@{ $analyzer->mck->generators })

{

    print $generator, ' ', $generator->VERSION, "\n";

​

    for my $indicator (sort { $a->{name} cmp $b->{name} } @{ $generator->kwalitee_indicators })

    {

        print "  $indicator->{name}";

​

        my @flags = grep { exists $indicator->{$_} }

            qw(is_extra is_experimental needs_db);

        print ' (', join(', ', @flags), ')' if @flags;