view release on metacpan or  search on metacpan

t/00-report-prereqs.t  view on Meta::CPAN

                if ( $DO_VERIFY_PREREQS && $type eq 'requires' ) {
                    push @dep_errors, "$mod is not installed ($req_string)";
                }
            }
        }

        if ( @reports ) {
            push @full_reports, "=== $title ===\n\n";

            my $ml = _max( map { length $_->[0] } @reports );
            my $wl = _max( map { length $_->[1] } @reports );
            my $hl = _max( map { length $_->[2] } @reports );

            if ($type eq 'modules') {
                splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl];
                push @full_reports, map { sprintf("    %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports;
            }
            else {
                splice @reports, 1, 0, ["-" x $ml, "-" x $wl, "-" x $hl];
                push @full_reports, map { sprintf("    %*s %*s %*s\n", -$ml, $_->[0], $wl, $_->[1], $hl, $_->[2]) } @reports;
            }

            push @full_reports, "\n";
        }
    }
}

if ( @full_reports ) {
    diag "\nVersions for all modules listed in $source (including optional ones):\n\n", @full_reports;
}

t/data/perlcriticrc  view on Meta::CPAN

[-ControlStructures::ProhibitMutatingListFunctions]

# It's okay to do "no warnings 'foo'" if needed - you are expected to
# know what you're doing if you do that!
[TestingAndDebugging::ProhibitNoWarnings]
allow_with_category_restriction = 1

# If I use <STDIN>, I don't want <>!
[-InputOutput::ProhibitExplicitStdin]

# This is useful in map to map an array to a hash ( map { $_, $_ } ... )
[ValuesAndExpressions::ProhibitCommaSeparatedStatements]
allow_last_statement_to_be_comma_separated_in_map_and_grep = 1

# We don't want to require these
[-ErrorHandling::RequireUseOfExceptions]

# I want to know about redefined variables
[Variables::ProhibitReusedNames]
severity = 4

# Testing for found words
[BadStrings]